|
こんにちは。かみちゃん です。
>Set WB=Workbooks.Open("test_051130.xls")
>としたいのですが、051130 のところがころころ変わります。
>test_で始まる、ファイルを開くと指定することは可能ですか?
どのように指定するのでしょうか?
以下の例は、InputBox関数を使った方法です。
Sub test()
Dim strFileName As String
Dim WB As Workbook
strFileName = InputBox("ファイル名を入力してください(例)051130", , Format(Date, "yymmdd"))
If strFileName <> "" Then
strFileName = "test_" & strFileName & ".xls"
If Dir(strFileName) <> "" Then
Set WB = Workbooks.Open(strFileName)
Else
MsgBox strFileName & "がありません"
End If
End If
End Sub
他に、Dir関数を使うと特定のフォルダに入っているものを順次開くということ
もできます。
詳しくは、Dir関数のヘルプをご確認ください。
|
|