エクセル2019VBAで空白行を削除し詰めてCSV書き出ししたい。

＞CSVで出力するとこの空白行は

＞,,,,,,,

＞のような形で出力されてしまいます。

CSVで出力するコードを一部抜き出すと

buf = .Trim(buf)

buf = Replace(buf, " ", ",")

Print #1, buf

Next

の部分で、

buf = Replace(buf, " ", ",")

Print #1, buf

かな。

＞,,,,,,,

＞のような形で出力

なので、

＞,,,,,,,

の時は、出力したくないので※しつこいな

buf = .Trim(buf)
If Len(Trim(buf)) > 7 Then  '7文字以上ならデータありにする？手抜きだけど 
    buf = Replace(buf, " ", ",")  'スペースをカンマにしてから
    Print #1, buf                 'テキストファイル csvへ一行書き込む
End If

↑なんか変だけど、

現在

＞,,,,,,,

＞のような形で出力

は、動いているので、

単純に If Len(Trim(buf)) > 7 Then とかbufがLenで調べて7文字以上なら書き出す

そんな手抜き処置を提案してみたり。

手抜き回答ですが、解決のヒントとなれば幸いです。

※外していたらスミマセン。と定型文を書きつつ、うまく動くといいな・・・

あっ、

＞※実際は空白行に,,,などのコンマが並んでいますが、

＞他の方の説明で使われていた下記VBAの式をいれると上記のようになります。

空白行までできてるなら、

buf = .Trim(buf)  '←あっ、ここで、Bufから空白抜いてるジャン、見落とした・・・
If Len(buf) > 1 Then  '1文字以上ならデータありにする？手抜きだけど 
    buf = Replace(buf, " ", ",")  'スペースをカンマにしてから
    Print #1, buf                 'テキストファイル csvへ一行書き込む
End If

↑こんな感じで、

buf = .Trim(buf) 'ここで、Bufから空白抜いて

If Len(buf) > 1 Then '1文字以上ならデータありなので↓書き込む

buf = Replace(buf, " ", ",") 'スペースをカンマにしてから

Print #1, buf 'テキストファイル csvへ一行書き込む

End If

素朴な疑問ですが、

　　A B　　 C

1 青木 太朗,２月,メール配信可,-

2 秋葉 花子,２月,メール配信可,-

など、

氏名でセイとメイの間にスペースがあった時、

単純に

buf = Replace(buf, " ", ",") 'スペースをカンマにしてから

Print #1, buf 'テキストファイル csvへ一行書き込む

だと、別問題が発生するような未来が見えるような、見えないような。

名前にスペースが入らなかったらスミマセン、スルーしてください。

buf = .Trim(buf)  '←あっ、ここで、Bufから空白抜いてるジャン、見落とした・・・
If Len(buf) > 1 Then  '1文字以上ならデータありにする？手抜きだけど 
    buf = Replace(buf, " ", ",")  'スペースをカンマにしてから
    Print #1, buf                 'テキストファイル csvへ一行書き込む
End If

で、動くといいなぁ・・・・