今日と昨日の日付.CSVファイルを選択し読み込む

質問

日付.csvのファイルが下記のように同じフォルダーに自動書き出しされています。
20171101.csv
20171102.csv
20171103.csv

このファイル群から、今日と昨日のファイルだけを選択して、一枚のxlsシートに
書き出すマクロはどうすればいいでしょうか？
現在は、下記11行目を日々書き直して処理しています。

よろしくご教示をお願いします。

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+a
'
Range("B4:E10000").Select
Selection.ClearContents
Range("B4").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Z:\bme280-data\20171130.csv", Destination:=Range( _
"$B$4"))

.Name = "No1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 932
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False

Call Macro2

End With
End Sub

回答No.1

tsubu-yuki · ベストアンサー

あまりよく読んでいなかったりしますが、
　　With ActiveSheet.QueryTables.Add(Connection:= _
　　　　　"TEXT;Z:\bme280-data\20171130.csv", Destination:=Range( _
　　　　　"$B$4"))
ココを例えば
　　With ActiveSheet.QueryTables.Add(Connection:= _
　　　　"TEXT;Z:\bme280-data\" & Format(Date, "yyyymmdd") & ".csv", _
　　　　Destination:=Range("$B$4"))
こうすると、当日。
ついでに
　　With ActiveSheet.QueryTables.Add(Connection:= _
　　　　"TEXT;Z:\bme280-data\" & Format(Date - 1, "yyyymmdd") & ".csv", _
　　　　Destination:=Range("$B$4"))
こうすると１日前。
ただし、休日を挟む場合は何かと色々考えないといけませんね。

別解。
インプットボックスを使って、いちいち日付を指定「させる」やりかた。
Dim myDay As String
　　myDay = Application.InputBox(Prompt:="日付を指定(YYYYMMDD)" _
　　　　　　　　　　　　　& vbNewLine & "※省略すると本日")
　　　　' キャンセルされたら終了。
　　　　If myDay = "False" Then Exit Sub　
　　　　' 空白だったら今日。
　　　　If myDay = "" Then myDay = Format(Date, "yyyymmdd")　

　　With ActiveSheet.QueryTables.Add(Connection:= _
　　　　"TEXT;Z:\bme280-data\" & myDay & ".csv", _
　　　　Destination:=Range("$B$4"))
など。
こちらの方が汎用性は高いかも。

ただ、「日付」として翌日などを判断させて
連続で処理しようと思うと注意が必要です。
　　※20171130 + 1 = 20171131　　・・？？？
その場合は、初めに日付の体で「2017/11/30」と打たせ、
Format関数で整えるのが望ましいです。
まぁ、翌日を読むときにもインプットボックスを出せば良いだけですが。
・・・という意味でも汎用性は高いです。

（主にテストデータを用意するのが面倒だったという理由で）
どちらもテストしていませんので、少し手直しが必要かもです。

あー、あと細かい話ではありますが・・
ＣＴＲＬ＋Ａは「全選択」とか「使用領域選択」とかで使いませんか？
いや、使わないなら構わないんですが(笑)。
個人的にはかなり使うショートカットキーなのでちょっと引っ掛かりました。
失礼しました。