|
こんにちは。かみちゃん です。
>>エクセルのB3に予め2005/10〜2005/12という具合に期間を記載してあるため
>>この日付を利用しファイルをまとめて選択したい
>
>B3に、
>2005/10〜2005/12
>と記載されていたら、
>051001.txt、051002.txt・・・051230.txt、051231.txt
>というファイルを選択したいということですか?
ファイル名を生成するだけでしたら、以下のような感じになります。
Sub Macro1()
Dim StartDate As Date
Dim EndDate As Date
Dim TargetDate As Date
Dim strFileName As String
Const strPath As String = "C:\list\"
'処理開始日
StartDate = DateValue(Split(Range("B3").Value, "〜")(0) & "/1")
'処理終了日(翌月の1日の前日)
EndDate = DateValue(Format(DateAdd("m", 1, DateValue(Split(Range("B3").Value, "〜")(1) & "/28")), "yyyy/mm/01")) - 1
TargetDate = StartDate
Do While TargetDate <= EndDate
'対象期間のファイル名を生成
strFileName = strPath & Format(TargetDate, "yymmdd"".txt""")
'生成したファイル名をイミディエイトウィンドウに表示
Debug.Print strFileName
TargetDate = TargetDate + 1
Loop
MsgBox "処理終了"
End Sub
|
|