| |
マクロでマクロのコードを書き換えるという処理は、ウィルスの動作と全く変わりが
ありませんから、出来ることは出来てもお答えできません。
なので最も単純で簡単な方法を提示してみます。ユーザーからInputBoxでファイル名
の一部を取得する。というものです。
Sub Macro666()
Dim Wb1 As Workbook, Wb2 As Workbook
Dim MyF As String, GetF1 As String, GetF2 As String
Do
MyF = InputBox("開くブック名に含まれる月の名前を" & vbLf & _
"「○月〜×月」の形で入力して下さい")
If MyF = "" Then Exit Sub
GetF1 = Dir("C:\支店\東ﾃﾞｰﾀ（" & MyF & ").xls")
GetF2 = Dir("C:\支店\西ﾃﾞｰﾀ（" & MyF & ").xls")
If GetF1 = "" Or GetF2 = "" Then
MsgBox "その名前のファイルは見つかりません", 48
End If
Loop While GetF1 = "" Or GetF2 = ""
Application.ScreenUpdating = False
Set Wb1 = Workbooks.Open("C:\支店\注意事項.xls")
Set Wb2 = Workbooks.Open("C:\支店\" & GetF1)
Wb1.Sheets("諸注意").Copy Before:=Wb2.Sheets("東実績")
Wb2.Close Savechanges:=True: Set Wb2 = Nothing
Set Wb2 = Workbooks.Open("C:\支店\" & GetF2)
Wb1.Sheets("諸注意").Copy Before:=Wb2.Sheets("西実績")
Wb2.Close Savechanges:=True: Set Wb2 = Nothing
Wb1.Close Savechanges:=False: Set Wb1 = Nothing
Application.ScreenUpdating = True
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
