|
おはようございます。
CSVファイルのデータを取り込むマクロを作成中で、
とりあえず以下の様なマクロを作成しました。
そこで質問なのですが、一度に一つのファイルではなく
一度に複数の異なるファイル(全てCSV)を取り込むことは
可能でしょうか?
どなたかご存知の方がいらっしゃいましたら宜しくお願いします。
Private pfile As String
Private dfile As String
Private fileToOpne As Variant
Private i, j, k, l As Integer
Private a As Variant
Sub GetData()
pfile = ActiveWorkbook.Name
'ファイル名の取得
fileToOpen = Application.GetOpenFilename( _
filefilter:="CSVファイル (*.csv), *.csv", _
Title:="ファイルを選択してください", MultiSelect:=False)
'ファイルを開く
If fileToOpen <> False Then
Workbooks.Open Filename:=fileToOpen
Else
End
End If
'データを代入する
dfile = ActiveWorkbook.Name
For i = 1 To 60
For j = 1 To 10
Workbooks(pfile).Activate
a = Workbooks(dfile).Worksheets(1).Cells(i, j)
Workbooks(pfile).Worksheets(1).Cells(i, j) = a
Next
Next
'ファイル名を記入する
Range("i11") = dfile
'開いたデータファイルを閉じる
Workbooks(dfile).Close SaveChanges:=False
Sheets("MeasData").Select
End Sub
|
|