[FAQ CENTER トップ]
[VBScript FAQ トップへ]

VBScript / VBA FAQ


スポンサード リンク

【質問】 VBAでExcel シートの内容をCSV形式で出力

スポンサード リンク

【答え】
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 トップへ]
[FAQ CENTER トップ]





(ご注意) 本サイト内の内容を使用して発生したいかなる時間的損害、金銭的損害あるいはいかなる損害に対して、いかなる人物も一切の責任を負いません。あくまでも個人の判断で使用してください。
本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。
このページはリンクフリーです。(このページへの直接リンクも可能です。)
雑誌等での紹介は特に連絡は不要です。
Copyright(c) tooljp.com 2007-2014