- ベストアンサー
エクセル（ＶＢＡ）にて、ＣＳＶファイルを自動的に読み込むマクロ。
aaa.csvというcsvファイルがあるとします。 そこで、 エクセルのあるシートにボタンを用意して、マクロを登録し、そのボタンを押すと、sheetという名前のシートへ一発入力（インポート）するようにしたいのです。 マクロをいじったりしましたが、だめです。 よろしければ、上記のような動作をするためのソースを簡単に提供いただけないでしょうか？ ＊マクロの記録は使いたくないです・・・。 すみませんが、よろしくお願いいたします。
- seapassion
- お礼率21% (62/287)
- オフィス系ソフト
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
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列まであるときの例です。
お礼
ありがとうございましたっ！！！ それが分かれば、あとは応用させてがんばりますっ。 感謝ですっ！