|
VBA初心者のです。
エクセルのシート1を開いた状態で対象のCSVファイルを選択し、
ある条件のデータを抽出し、結果をシート1へ反映したのですが、
どなたかご教授頂けますでしょうか。
過去の結果を検索してもわかりませんでした。
――――――――――――――――――――――――――――――――――――
*****【CSVファイル名:C:\tmp\aaaYYYYMMDD.csv】*
YYYYMMDDは日付により変わります。
――――――――――――――――――――――――――――――――――――
*****【CSVファイル内容】**********************
101,11,3AA1,1,200,A,1,300,1,5,001
201,ZZ,3BB2,2,200,2,2,200, ,2,002
301,22,3BB2,2,200,2,2,200, ,2,002
Z01,55,3EE5,5,500,B,5,B00,5,5,005
401,44,3CC3,A,400,4,4,400,4,4,00A
Z01,ZZ,0EE1,5,A00,5,5,B00,5,5,000 ←抽出対象データ
Z01,55,3EE5,5,500,B,5,B00,5,5,005
Z01,ZZ,0EE2,5,C00,5,5,D00,5,5,000 ←抽出対象データ
501,55,3FF6,5,C00,5,C,500,C,5,005
601,66,3GG7,8,800,8,8,800,8,8,008
Z01,ZZ,0EE3,5,E00,5,5,000,5,5,00F ←抽出対象データ
Z01,ZZ,0EE4,4,000,5,5,G00,5,5,00H ←抽出対象データ
Z01,FF,3EE5,5,500,B,5,B00,5,5,005
701,77,3GG7,8,800,8,8,800,8,8,008
Z01,ZZ,0EE5,5,J00,5,5,K00,5,5,000 ←抽出対象データ
――――――――――――――――――――――――――――――――――――
*****【エクセル結果内容】**********************
[Sheet1] ( 抽出結果 )
A B C D E F
1 |項目1 項目2 項目3 項目4 項目5 項目6
2 |Z01 ZZ 0EE5 A00 B00 000
3 |Z01 ZZ 0EE5 C00 D00 000
4 |Z01 ZZ 0EE5 E00 000 00F
5 |Z01 ZZ 0EE5 000 G00 00H
6 |Z01 ZZ 0EE5 J00 K00 000
――――――――――――――――――――――――――――――――――――
●CSVファイル(aaaYYYYMMDD.csv)を1件づつ読込み、
1行目の項目が"Z01"で2行目の項目が"ZZ"のデータを抽出し、
エクセルの抽出結果シートに項目設定する。
※項目は前ゼロがある可能性があります。
<項目設定>
1.csvの1列目の項目をエクセルのA列の項目に設定
2.csvの2列目の項目をエクセルのB列の項目に設定
3.csvの3列目の項目をエクセルのC列の項目に設定
4.csvの5列目の項目をエクセルのD列の項目に設定
5.csvの8列目の項目をエクセルのE列の項目に設定
5.csvの11列目の項目をエクセルのF列の項目に設定
※csvがゼロ件の場合は処理を行いません。
|
|