|
はじめまして。
複数のCSVファイルについてです。
過去ログを見てチャレンジしてみたのですが、 どうしてもうまくいかず
皆さんの力をお貸しください。
csvファイル"00000001"から"00000100"までbook1の特定の表にデータを抽出するマクロを作ってみたのですが、1行目が00000001の値、2行目が00000002の値となるようにしたいのですが。
説明不足かもしれませんが、何かいい方法ありませんでしょうか?
よろしくお願いいたします。
Dim myFLName As String
Dim csvfile As String
Dim 範囲 As Range
Dim a As Variant
Dim d As Variant
csvfile = Dir(ThisWorkbook.Path & "\00000001.csv")
If csvfile = "" Then
MsgBox "シートがありません", vbInformation, "確認してください"
Exit Sub
Else
myFLName = ThisWorkbook.Path & "\00000001.csv"
Workbooks.Open Filename:=myFLName
End If
For Each a In Array(2, 7, 9, 11, 27, 29, 31, 33, 37)
Windows("00000001.csv").Activate
Set 範囲 = Worksheets("00000001").Range("a8:d27")
値 = Application.WorksheetFunction.VLookup(a, 範囲, 4)
Windows("book1").Activate
If a = 2 Then
ActiveCell.Offset(rowoffset:=2, columnoffset:=-48).Activate
ActiveCell.Formula = 値
Else
ActiveCell.Offset(columnoffset:=1).Activate
ActiveCell.Formula = 値
End If
Next a
ActiveCell.Offset(columnoffset:=11).Activate
For Each d In Array(14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 50)
値 = Application.WorksheetFunction.VLookup(d, 範囲, 4)
If d = 14 Then
ActiveCell.Formula = 値
Else
ActiveCell.Offset(columnoffset:=1).Activate
ActiveCell.Formula = 値
End If
Next d
Windows("00000001.csv").Activate
ActiveWorkbook.Close SaveChanges:=False
End Sub
|
|