Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28166 / 76736

←次へ　｜　前へ→


	【53875】複数のCSVファイルについて

TKM - 08/2/13(水) 11:12 -


	引用なし

	パスワード

はじめまして。
複数の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

0 hits

▼

【53875】複数のCSVファイルについて TKM 08/2/13(水) 11:12

≪