Excel VBAでのテキスト出力について
excel vbaでの文字列出力について
エクセルからテキスト(メモ帳とか)に出力したいのですが
下記のように出力できなくて困っております。
どなたか教えてほしいです。
●入力エクセル
AAA BBB CCC DDD EEE
セル(1,1)~(1,5)にそれぞれ文字列が入っている状況です。
これを下記のように出力したいのです。
●テキスト出力
"AAA","BBB",CCC,"DDD",EEE
CCCとEEEをダブルクォーテーションを付けないで出力したいのです。
出力の方法でwriteとprintがありますが
writeで
Write #1, Cells(1,1),Cells(1,2),Cells(1,3),Cells(1,4),Cells(1,5)
やると、自動で全ての文字がダブルクォーテーションで囲まれて、カンマが自動でつき
"AAA","BBB","CCC","DDD","EEE"
のようになってしまします。CCCとEEEのダブルクォーテーションが不要です。
printで
Print #1, CStr(Cells(1,1)), & "," CStr(Cells(1,2)), & "," Cells(1,3), & "," CStr(Cells(1,4)), & "," Cells(1,5)
とすると
"AAA", "BBB", CCC, "DDD", EEE
となり、カンマの後ろに空白が何個か入った状態になります。
(ブラウザでは空白が分かりづらいですが、テキストですと入っております。)
Trim関数でTrim(",")とか色々試しましたが上手くいきません。
どうしたら望み通りの出力ができるでしょうか。
ぜひ教えて頂きたいです。
よろしくお願いします。