|
▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>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関数のヘルプをご確認ください。
横入りにて失礼致します。
Dir関数はどこに入れればいいですか?
|
|