[ホーム] ＞ [VBScript FAQ 一覧] ＞ [VBAでExcel シートの内容をCSV形式で出力]

VBAでExcel シートの内容をCSV形式で出力 | VBScript / VBA FAQ

excelの内容を csv ファイルに出力するVBAのサンプルコードです。
メニューからExcelをcsv形式で保存すればできますが、VBAコード内で実行したい場合もあるでしょう。
そんな場合のサンプルです。

以下の例では sheetname というシートの内容を c:\temp\test.csv というファイルにCSV形式のテキストファイルで出力します。

Function exportSheetToTEXT()


Dim txtFileName As String
txtFileName = "c:\temp\test.csv"

Open txtFileName For Output As #1

Dim i As Long
i = 1
Do While Sheets("sheetname").Cells(i, 1).Value <> ""
Print #1, Sheets("sheetname").Cells(i, 1).Value
i = i + 1
Loop

Close #1



End Function

[ホーム] ＞ [VBScript FAQ 一覧]