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

質問

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

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

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

回答No.1

ribisi · ベストアンサー

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列まであるときの例です。

お礼

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

感謝ですっ！