[[20040818112453]]　『フッターについて』（aug）　ページの最後に飛ぶ

『フッターについて』（aug）

EXCEL2002にある機能でフッターに表示させることが出来る「&[パス]&[ファイル名]」を2000でも使うことは出来ないでしょうか？　　　　　　　　　　

同じように入力するとファイル名は表示されるのですが、[パス]はそのままパスと表示されてしまうのです。

そのファイルがどこに保存されているのかがわかればいいのですが・・・

 XL2000では仕様上ヘッダー／フッターにパス表示機能がないので、
自動で行うにはVBAでパスの取得をしてフッターに文字列として
都度設定をするか、適当なセルに=CELL("filename")として
フッターの代わりにするか。
マクロサンプル↓
 Private Sub Workbook_BeforePrint(Cancel As Boolean)
 Dim MyPath As String
 MyPath = ThisWorkbook.Path

     With ActiveSheet.PageSetup
         .LeftFooter = MyPath & "\&F"
     End With

 End Sub
(KAMIYA)

KAMIYAさん、返答ありがとうございます。

マクロを使ったことがないので、マクロの方もご教授いただければ嬉しいです。

KAMIYAさんのｻﾝﾌﾟﾙをコピーして貼り付けてみたのですが、実行しようとした時に
End Subが必要です。というエラーが出てしまったのです。
お願いします。

何度もすみません。

マクロではなく=CELL("filename")の方で解決することが出来ました。

アリガトウございました。

 解決されたようですが、念のために・・・

 貼り付けたときに、End Sub　が抜けているのではありませんか？

 構文の最後に追加してみてください。
 （川野鮎太郎）

コメント返信：

[ 一覧(最新更新順) ]

[[20040818112453]] 『フッターについて』（aug） ページの最後に飛ぶ

[[20040818112453]]　『フッターについて』（aug）　ページの最後に飛ぶ