Excel ページ設定－ヘッダーの編集でファイル名の拡張子を出力しないようにするには？

質問

Excel文書の印刷でファイル名を出そうとしています。
ファイル（Ｆ）－ページ設定－「ヘッダー／フッター」タブ－「ヘッダーの編集」ボタンで
"[ファイル名]"を設定しました。

印刷してみると、ファイル名の部分は「ファイル名.xls」と「.xls」のようにファイル拡張子が
出力されてしまいます。
この「.xls」を出さないようにする方法はあるのでしょうか？

回答No.1

Wendy02 · ベストアンサー

こんにちは。
自動的に入れるのでしたら、以下のようなVBAのコードしかありません。
そうでなければ、ご自分で入れるしかないと思います。

ツール－マクロ－Visual Basic Editor を開いたら、左上のプロジェクト・エクスプローラーの中から、ThisWorkbook をダブルクリックして開きます。後は、以下を貼り付けて、
Alt + Q で閉じます。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
　 With ActiveSheet
　　　If .Name = "Sheet1" Then 'シート名を入れます
　　　　 .PageSetup.LeftHeader = Mid$(ThisWorkbook.Name, 1, InStr(ThisWorkbook.Name, ".") - 1)

　　　'プロパティの種類は以下のとおり
　　　'LeftHeader,CenterHeader,RightHeader
　End If
　 End With
End Sub

お礼

回答ありがとうございました。

ソースを参考に入れてみたいと思います。

回答No.4

wisemac21

コントロールパネルを開き、フォルダーオプションの「表示」タブの詳細設定で「登録されている拡張子は表示しない」にチェックをいれて、OKをクリックする。
これで拡張子はファイル名に付かないようになります。

お礼

回答ありがとうございました。

＃３へのお礼と入れ違いのようでした^^;
ありがとうございました。

回答No.3

imogasi

>「.xls」のようにファイル拡張子が出力されてしまいます。
私がやって（ヘッダーに＆[ファイル名]を設定して印刷して）みると、拡張子は印刷されませんでした。
エクセル２００２．
オプションなどの設定も見てみましたが、影響を与えそうな箇所が見つかりませんでした。

お礼

回答ありがとうございました。

Excelの設定以外で拡張子が印刷されなくする方法が分かりました。
エクスプローラのフォルダオプションで
「登録されている拡張子は表示しない」をチェックすればいいみたいです。

ただ、私はエクスプローラで拡張子を表示したいので、
チェックを外してありました。

回答No.2

chairwarmer

基本的には＃１の方のご回答と同じで、VBAのコードが違うだけですが．．．

Private Sub Workbook_BeforePrint(Cancel As Boolean)
　　ActiveSheet.PageSetup.CenterHeader = Replace(ThisWorkbook.Name, ".xls", "")
End Sub

左上、中央、右上のどこに表示させたいかによって、「ActiveSheet.PageSetup.」の後を
LeftHeader, CenterHeader, RightHeader のいずれかにすれば良いわけです。
LeftFooter, CenterFooter, RightFooter を使えばもちろんフッターにも印字できますよ。

お礼

回答ありがとうございました。

ソースを参考に入れてみたいと思います。
詳しい説明をありがとうございます。