|
▼G-Luck さん:
>Path = 'ディレクトリ名
>FileName = "M*_6.csv"
>Fn = Dir(Path & Applicaiton.Pathseparetor & FileName)
>
>Do
> Workbooks.Open FileName:= Path & Applicaiton.Pathseparetor & Fn
> '処理
> Fn = Dir()
> IF Fn = "" Then Exit Do
>Loop
ありがとうございます。
実行してみたのですが、"M*_6.csv" で『*』にエラーが出てしまうみたいです。
現在このように組んでますが・・・
myFileName = "M*_16.csv"
myCnc1 = "TEXT;"
myCnc2 = ThisWorkbook.Path & "\" & myFileName
With ActiveSheet.QueryTables.Add(Connection:=myCnc1 & myCnc2, Destination:=Range("r5"))
.TextFileCommaDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
.TextFileColumnDataTypes = Array(2, 1, 9, 9, 9, 9, 9, 1)
.Refresh
End With
|
|