こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

あと、データを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

投稿日時 - 2006-05-26 00:49:00

QNo.2175519

暇なときに回答ください

質問者が選んだベストアンサー

概ねこんな感じかと

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

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

投稿日時 - 2006-05-26 01:44:13

お礼

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

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

投稿日時 - 2006-05-26 12:00:03

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

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

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

投稿日時 - 2006-05-26 12:24:18

あなたにオススメの質問