[[20120313053925]]　『VBA初心者のものです』（いち）　ページの最後に飛ぶ

『VBA初心者のものです』（いち）

[VBA初心者のものです。
指定したフォルダに入っている全てのCSVファイルの内容をアクティブなエクセル内のシートの６行目から書き出して、CSVファイルを取り込むごとに、書き出したシートの空行に内容を追加していきたいです。

①フォルダ内のCSVファイルを全て読み込む。
②CSVファイルの１行目は項目の為、２行目からエクセル内にシートの６行目からCSVファイルの内容を書き出していく。
※CSVファイルは不定形の為、配列で読み込まないと上手くデータをはれませんでした。

以上、よろしくお願いします。

win：vista　EXCEL2003（英語版）

]（いち）

 最近、おなじテーマで回答したのでご参考まで。
[[20120307175036]]　『外部csv取り込み』（まさまさ）
このSample2が1行目から取り込むコード。
[[20120307211054]]　『質問をさせてください』（ｓｋ）　
ここで、それを2行目から取り込むように調整。
　
(ぶらっと)

 ┏━━━━━━━━━━━┓
 ┃作成するプログラム　　┃
 ┃━━━━━━━━━━━┛
 ┃
 ┃　　
 ┃┏━━━━━━━━━━━━━━━━━━━━━━┳┓　┏━━━━━━━━━━━━━━━━━━━┓
 ┣┫指定フォルダ内のCSVファイル名を全部取り出す ┃┣━┃取得ファイル名のデータをシートに表示　┃
 ┃┗━━━━━━━━━━━━━━━━━━━━━━┻┛　┗━━━━━━━━━━━━━━━━━━━┛
 ┃
 ┣━━━━━━━━━┓
 ┃終わり           ┃
 ┗━━━━━━━━━┛

 １　指定したフォルダに入っている全てのCSVファイルを取り出す

 　　VBAで、指定フォルダ内から特定条件のファイル名を取り出す方法は、

     Dir関数を使う

 　　File System Object（FSO）　を使う　　という方法が考えられます。
     APIという方法もありますが、ここではこれは、扱いません。

 　　Dir関数は、扱いが簡単なこととその割りに処理速度が速い。
     が、今のOSに合わない箇所がちょっとある
     （長いパスでエラーになる可能性がある）
     FSOは、扱いはDirに比べて面倒だし、処理速度は、遅いが、
     ファイル管理に関しては、安定感がある。

 ２ 一つのCSVファイルのデータをシートに表示
 　　Openステートメント　Line Inputステートメント等VBAにある機能を使って、
     １行毎に読み込んで、シートの所定場所に設定する

　　 FSOを使って、CSVファイルのデータをシートに貼り付ける

　　 Excelが持ってる機能を使ってCsvファイルをシートに読み込んで所定位置に貼り付ける

 記述したワードについて知らなければ、調べて使い方を学んでください。
 そして、できるところまでコードを記述し、投稿してください。

 この過程で疑問点があれば、質問を絞って投稿してください。

 ichinose

コメント返信：

[ 一覧(最新更新順) ]

[[20120313053925]] 『VBA初心者のものです』（いち） ページの最後に飛ぶ

[[20120313053925]]　『VBA初心者のものです』（いち）　ページの最後に飛ぶ