エクセル２００７ CSV形式に変換

質問

Sheet１に表があり、マクロボタンを押すとA1からJ１２までの表をCSV形式に変換して、フォルダのE:\一覧用の中に入れていきたいのですがマクロの記述をどのようにするか教えてください。

回答No.1

keithin · ベストアンサー

sub macro1()
　dim a,res,i
　’具体的なファイル名の付け方は別途工夫する事
　open "E:\一覧用\test.csv" for output as #1
　for i = 1 to 12
　　a = application.transpose(range(cells(i, "A"), cells(i, "J")).value)
　　res = join(application.transpose(a), ",")
　　print #1, res
　next i
　close #1
end sub
みたいな。

回答No.2

bin-chan

「マクロの記録」を起動してＶＢＡを記録・生成し、改造します。

１）「マクロの記録」を起動
２）Sheet１のセルA1からJ１２までを選択
３）「名前をつけて保存」で、形式を「カンマ区切り」にしておく
４）フォルダのE:\一覧用の中に入れてファイル名を付ける
５）「マクロの記録」を終了

６）Sheet１にボタンを貼り付ける
７）６）のボタンに、作成されてるモジュール（たぶん[Macro1]）を関連づける