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！！

回答No.1

kmetu · ベストアンサー

For intRow = 3 To .Range("a" & Rows.Count).End(xlUp).Row
'この行も一部変更しているので注意してください。↑
If Cells(intRow, 1).Value <> "" Then
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)
End If

Next intRow

にしてみてください。

お礼

Excelのバージョンの問題ではありませんでした。
ご回答を参考にマクロを完成させることができました。
本当にありがとうございました。

補足

ご回答ありがとうございます。
教えていただいたとおりに変更してみたのですが、

実行時エラー'1004';
アプリケーション定義またはオブジェクト定義のエラーです。

というエラーメッセージが出てしまいます。
ちなみにExcel2000で実行していますが、問題ありますでしょうか？

回答No.4

kmetu

ふと思ったのですが
該当コードを

With Sheets("データ")
と
End With

の中に入れ込んでますよね

回答No.3

kmetu

2000でもいけると思ったのですが…

For intRow = 3 To .Range("a" & Rows.Count).End(xlUp).Row
↓
For intRow = 3 To .Range("A65535").End(xlUp).Row

If Cells(intRow, 1).Value <> "" Then
↓
If Range("A" & intRow).Value <> "" Then

に変更したらどうなるでしょう。

回答No.2

imogasi

Print　＃の塊をまたぐ形で、
For intRow ・・・
If　セルが空白でなければ
Print #1、・・・
End　If
Next intRow
とするだけでは？
質問のコードはどこかを引き写したのかな。
質問のコード内容と釣り合わない質問だな。
１－１５列まで途切れないらしいから
For　j=1 to 15
s=s & Cells(i,j) & ","
Next j
s=Left(s,Len(s)-1)
とネストすれば、読み易くなるのでは。
一々各列を羅列するのは稚拙。
intRowもiにした。

お礼

ご回答ありがとうございました。
全くの初心者で、他のコードを参考に作ったものでして。
一から勉強が必要ですね。