[ホーム] > [VBScript FAQ 一覧] > [Excel 指定したシートの範囲をcsv で書き出すサンプル]

Excel 指定したシートの範囲をcsv で書き出すサンプル | VBScript / VBA FAQ






Excel で指定した範囲を csv で書き出すサンプルプログラムです。

mini, maxi で 縦列の範囲を指定します。
minj, maxj で 横列の範囲を指定します。

==========================================================

Sub main()
MsgBox "csv 書き出し開始"
writeSheetToCSV "c:\temp\data1.csv", 2, 902, 1, 5
writeSheetToCSV "c:\temp\label1.csv", 2, 902, 11, 15

writeSheetToCSV "c:\temp\data1_test.csv", 902, 1001, 1, 5
writeSheetToCSV "c:\temp\label1_test.csv", 902, 1001, 11, 15
MsgBox "csv 書き出し終了"
End Sub


Sub writeSheetToCSV(strCSVFileName, mini, maxi, minj, maxj)


Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)

Open strCSVFileName For Output As #1

Rem iは縦列、jは横列
Rem もしなくなるまでなら ws.Cells(i, 1).Value <> "" に変更する

For i = mini To maxi
For j = minj To maxj - 1
Print #1, ws.Cells(i, j).Value & ",";
Next
Rem 最後はカンマは不要
Print #1, ws.Cells(i, j).Value & vbCrLf;
Next
Close #1

End Sub


==========================================================








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





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