| |
こんにちは。
下記のようなマクロを組みました。
注意事項.xlsのシート「諸注意」を東ﾃﾞｰﾀ（7月〜10月）.xlsと西ﾃﾞｰﾀ（7月〜10月）.xlsに複製しています。
実際にはもっと多数のファイルがあります。
そして毎月、ファイル名の一部が7月〜11月、7月〜12月などと変化します。
その際、手で置換すると間違える恐れがあります。
そこで質問です。マクロのテキストの一部をマクロで置換できますか？
具体的には、下記テキスト中の7月〜10月を7月〜11月にマクロで置換できますか？
どなたかよろしくお願いします。
Sub Macro666()
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Application.ScreenUpdating = False
Set Wb1 = Workbooks.Open("C:\支店\注意事項.xls")
Set Wb2 = Workbooks.Open("C:\支店\東ﾃﾞｰﾀ（7月〜10月）.xls")
Wb1.Sheets("諸注意").Copy Before:=Wb2.Sheets("東実績")
Wb2.Close Savechanges:=True
Set Wb2 = Nothing
Set Wb2 = Workbooks.Open("C:\支店\西ﾃﾞｰﾀ（7月〜10月）.xls")
Wb1.Sheets("諸注意").Copy Before:=Wb2.Sheets("西実績")
Wb2.Close Savechanges:=True
Set Wb2 = Nothing
Wb1.Close Savechanges:=False
Wb2.Close Savechanges:=True
Application.ScreenUpdating = True
Set Wb1 = Nothing
Set Wb2 = Nothing
End Sub
|
|
にしもり
- 05/11/11(金) 10:37 -
