エクセルマクロ 教えてください

質問

エクセルの自動記録でマクロを取り組み始めたばかりの初心者です。

本部から毎月送られてくるエクセルファイルにこちらで別のワークブックに記録したマクロを使って加工しようとしていますが方法がわかりません。
他の人がこのファイルを間単に加工出来るようマクロを使って
（マクロのコードの書き換え等の作業をしないで）行えるようにしようとしています。
※送られれくるエクセルファイルは月毎にファイル名が違います（シート名は変わりません）。

下記は自動記録の内容ですがこれを適用させる方法であります。

宜しくお願いいたします。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2008/9/8 ユーザー名 : *******
'

'
ActiveWindow.TabRatio = 0.819
Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")).Select
Sheets("Sheet1").Activate
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
Sheets(Array("Sheet6", "Sheet7", "Sheet1", "Sheet2")).Select
Sheets("Sheet1").Activate
ActiveWindow.Zoom = 120

End Sub

回答No.1

n-jun · ベストアンサー

コードを書いたブックと変更したいブックを、両方とも開いておいて

Sub Macro2()
'
' Macro1 Macro
' マクロ記録日 : 2008/9/8 ユーザー名 : *******

Dim wb As Workbook

For Each wb In Workbooks
If wb.Name <> ThisWorkbook.Name Then
wb.Activate

ActiveWindow.TabRatio = 0.819
Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")).Select
Sheets("Sheet1").Activate
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
Sheets(Array("Sheet6", "Sheet7", "Sheet1", "Sheet2")).Select
Sheets("Sheet1").Activate
ActiveWindow.Zoom = 120

End If
Next
End Sub
ではどうでしょう。

お礼

早速のお答えありがとうございます。

私にとっては完璧な回答と思います。
ネットで調べたり他の方法で何度もやり直ししましたが見つからなかった答えです。

本当にありがとうございました。