エクセルVBAでCSVファイルから取り込みたいのですが・・・

質問

CSVファイルのデータを取り込むコードを教えていただけないでしょうか。

「共有フォルダ」の中に「作業用.xls」と「090820.csv」があります。csvファイルは日によって名前が変わりますが、必ず一つしか入れないことにしています。
CSVファイルの1行目は見出しです。2行目以降がデータになっています。
A2からI列最終行を「作業用.xls」のsheet1のA6にコピー(取り込み)したいのですが、よろしくお願いします。

回答No.3

imogasi

>コードを教えていただけないでしょうか
VBAコードを回答者に全的に書かせるのは、丸投げで、規約違反。
質問で聞く前に、マクロの記録が使える部分があるので、勉強のこと。
操作はデーター外部データの取り込みーデータの取り込みです。
当方でも念のためやってみて出来た。
＞CSVファイルの1行目は見出しです。ーー＞０ｋ
＞A2からI列最終行をーー＞これはどこ。Ｃｓｖ－＞エクセルシートでしょう。何のことだか。
＞xls」のsheet1のA6にコピー(取り込み)したいのですが
取り込みの左上セルの指定する画面が操作途中にある。
ーー
問題はＣＳＶファイル名が、＞名前が変わりますが＞一つしか入れないことにしていますーー＞
であるならそのフォルダのファイルを全部調べないといけない。
Ｄｉｒ関数がよかろう。
Ｇｏｏｇｌｅで「フォルダ　ファイル　Ｄｉｒ関数」で照会し、自分で調べること。
たくさんコード例が出る。
＝＝
ＴｅｘｔファイルをＶＢで読んで、フィールドに分割し、エクセルシートの各セルに代入する方法もあるが（難しく無い）、課題として将来勉強したら。

回答No.2

rukuku

こんばんは

cistronezkさんの回答に補足です。

ファイルを選択するのには、ダイアログボックスを呼び出す方法があります。「ファイル」→「開く」と同じダイアログボックスからファイルを選択できます。

ただ、かなり前に使ったきりなので方法は忘れました。
具体的な方法が分かりましら、改めて回答します。

また、以下のページから探してみてください。
http://www.google.co.jp/search?hl=ja&lr=&safe=off&num=100&q=Excel+VBA+%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E9%81%B8%E6%8A%9E+%E3%83%80%E3%82%A4%E3%82%A2%E3%83%AD%E3%82%B0&revid=473955874&ei=sT6NSu3QJdj_kAW_7fW9DA&sa=X&oi=revisions_inline&resnum=0&ct=top-revision&cd=1

回答No.1

cistronezk

（Ａ）ファイルの検索は「DIR」関数です。

（Ｂ）CSVの取り込みは、以下の操作を「新しいマクロの記録」をしてください。
（１）「データ」ー「外部データの取り込み」ー「データの取り込み」でデータファイルを選択します。
（２）「テキスト　ファイルウィザードー１／３」で「取り込み開始行」を２にして「次へ」ボタンを押します。
（３）「テキスト　ファイルウィザードー２／３」の「区切り文字」の「カンマ」にチェックを入れて「次へ」ボタンを押します。
（４）「テキスト　ファイルウィザードー３／３」では、必要に応じて、各列のデータ形式を設定して「完了」ボタンを押してください。
（５）「データ取り込み」画面が表示されるので、「既存のワークシート」に「=$A$6」を入力してOKします。
以上です。

ヘルプや書籍やＷｅｂ検索を参考にしてＡ，Ｂを合わせれば、ＣＳＶファイルの取り込みマクロが作成できます。