エクセル（ＶＢＡ）にて、ＣＳＶファイルを自動的に読み込むマクロ。

aaa.csvというcsvファイルがあるとします。
そこで、
エクセルのあるシートにボタンを用意して、マクロを登録し、そのボタンを押すと、sheetという名前のシートへ一発入力（インポート）するようにしたいのです。

マクロをいじったりしましたが、だめです。
よろしければ、上記のような動作をするためのソースを簡単に提供いただけないでしょうか？
＊マクロの記録は使いたくないです・・・。

すみませんが、よろしくお願いいたします。

No.1 ベストアンサー 回答者： ribisi 回答日時： 2003/04/12 09:57

Workbooks.Open Filename:="aaa.csv"

LastRow = Range("A65536").End(xlUp).Row
Range("A1:I" & CStr(LastRow)).Select
Selection.Copy Destination:=Workbooks("aaa.xls").Worksheets("sheet").Range("A1")
ActiveWindow.Close

2行目は、csvファイルの最後の行番号を取得しています。
3行目ですが、列がI列まであるときの例です。

この回答へのお礼

ありがとうございましたっ！！！
それが分かれば、あとは応用させてがんばりますっ。

感謝ですっ！

お礼日時：2003/04/12 12:49