Excelマクロ CSV出力
Private Sub cmd_csv_Click()
Open "\\サーバ名\フォルダ名\あああ.csv" For Output Access Write As #1
With Sheets("データ")
For intRow = 3 To .Range("a2").End(xlDown).Row
Print #1, .Cells(intRow, 1) & "," & .Cells(intRow, 2) & "," & .Cells(intRow, 3) & "," & .Cells(intRow, 4) & "," & .Cells(intRow, 5) & "," & .Cells(intRow, 6) & "," & .Cells(intRow, 7) & "," & .Cells(intRow, 8) & "," & .Cells(intRow, 9) & "," & .Cells(intRow, 10) & "," & .Cells(intRow, 11) & "," & .Cells(intRow, 12) & "," & .Cells(intRow, 13) & "," & .Cells(intRow, 14) & "," & .Cells(intRow, 15)
Next intRow
End With
Close #1
MsgBox "出力完了しました。 " & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "出力ファイル:フォルダ名\あああ.csv"
End Sub
-------------------------------------------------------------
上記のロジックで「データ」シートのA3からO列の最終行までをCSV出力しています。
このマクロにA列に値が入った行のみを出力する(A列が空白なら無視し次の行へ)というロジックを追加したいのですが、方法がわかる方いらっしゃいますか?
どなたか教えてくださいm(__)m!!
お礼
ご回答ありがとうございます。 期待動作をさせることが出来ました。