エクセルVBAでボタンを割り当てて、そこに入力行数とCSV形式出力をおこなうように記述したい。

エクセルのVBAでエクセルの入力データをCSVに出力するVBAを書こうとしておりますが、２点ほどわかりません。
まず、入力行数を調べたいのですが、Ａ列で入力があるところまでを個数としたいのですがどのように求めるかわかりません。

あと、データをCSV形式でファイルに落としたいのですがどうすればよいのでしょうか？


Dim fp As Integer
Dim fname As String
dim num as integer

num = 入力数(たとえば、a列に入力がある行数など)
　msgbox("入力行数=" & cstr(num) & "です。")

fname = "test.csv"
fp = FreeFile

Open fname For Output As #fp

CSV形式で出力する


Close #fp

No.1 ベストアンサー 回答者： BLUEPIXY 回答日時： 2006/05/26 01:44

概ねこんな感じかと

A列で入力がある行数
num = ActiveSheet.Range("A65536").End(xlUp).Row

ＣＳＶ形式で保存
ActiveWorkbook.SaveAs Filename:="test.csv", fileFormat:=xlCSV

この回答へのお礼

ありがとうございます。
解決できました。

このような知識は経験から得られるものでしょうか？
インターネットや書籍からでも調べられるのでしょうか？

お礼日時：2006/05/26 12:00

No.2 回答者： BLUEPIXY 回答日時： 2006/05/26 12:24

>このような知識は経験から得られるものでしょうか？

>インターネットや書籍からでも調べられるのでしょうか？
そうですね、書籍、経験、ネットから得られます。

このサイトでも同様の質問が繰り返しあります。