エクセルのヘッダーを自動的に切り替えるソフト

質問

夢のような話かもしれませんが、エクセルで作成した書類のごく一部（この場合はヘッダーのみ）自動的に指定した文字に切り替えることはできるのでしょうか？

要点を申し上げると会社移転により住所がかわるのですが、エクセルで作成した1000枚以上の書類のヘッダーを全て打ち直さなくてはならないので、なにか簡単に処理できる方法は無いものかとおもったのですが・・だれか助けてください。。

回答No.3

nekotaru · ベストアンサー

＃２です。
注意！！
使用方法をあやまると、ぜーーんぶのエクセルのヘッダが書き換わるので十分注意してください。

下記マクロのc:\tmpの部分を自身の環境に合わせて変更してください。
SearchSubFolders = Trueに変更すると、指定したフォルダ配下すべてのエクセルが対象になります。
左ヘッダ、中央ヘッダ、右ヘッダの設定変更できますので変更しないところは削除してください。

使用方法をあやまるとすごいことになるので、気をつけてくださいー

Sub test()

Dim i As Integer

Dim ws As Worksheet
Dim wb As Workbook

With Application.FileSearch
.NewSearch
.LookIn = "C:\tmp" 'ここを任意に変更してください
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(i)
Set wb = ActiveWorkbook
For Each ws In wb.Worksheets
With ws.PageSetup
If .LeftHeader <> "" Then
.LeftHeader = "左ヘッダ"
End If
If .CenterHeader <> "" Then
.CenterHeader = "中央ヘッダ"
End If
If .RightHeader <> "" Then
.RightHeader = "右ヘッダ"
End If
End With
Next
wb.Close True

Next i
Else
MsgBox "検索条件を満たすファイルはありません。"
End If
End With

End Sub

お礼

お礼がおそくなりましたがトライしてみます！
有難うございました。

回答No.2

nekotaru

補足で知りたいのですが
打ち直す内容は１０００枚すべて同じですか？
それとも異なります？
同じなら一気に書き換えやすいのですが、、、

お礼

お礼がおそくなりましたがトライしてみます！
有難うございました。

補足

実際に１０００枚はなさそうですが、打ち直す部分は全て同じ内容です。
その下につく文面はそれぞれ異なります。
要するにレターヘッドの部分が変わるのみです。

回答No.1

prairie-gentian

お力にはなれそうにありませんが・・・。

ヘッダーの書き換え自体は、ＶＢＡで出来ます。しかし、１０００枚もある書類に対して、全部自動的に書き換えるのは、かなりＶＢＡに慣れた方じゃないと無理では？フォルダーもあちこちバラバラでしょうから。

詳しい方のアドバイスを期待しましょう。それまでの間、「ＶＢＡ」「ヘッダー」で検索をかけて、予習しておくといいかも知れません。