EXCELVBAでデータをテキストファイルで出力したいと
EXCELVBAでデータをテキストファイルで出力したいと考えています。
*****************************
作成したVBA
*****************************
Sub test_Click()
Dim fNAME As String
fNAME = "c:\test.txt"
Open fNAME For Output As #1
i = 1
Print #1, "<test=" & Cells(1, i) & "," & Cells(2, i) & "," & Cells(3, i) & "," & Cells(4, i) & "," & Cells(5, i) & ">"
Close #1 '閉じる
End Sub
*****************************
エクセルの値
*****************************
Ａ列
１
２
３
４
５
*****************************
出力されたテキストファイル
*****************************
<test=１,２,３,４,５>
このようになっていますが、
エクセルが
Ａ列
１
２
のように、２個しかないと、
<test=１,２,,,>
のようになってしまいます。
<test=１,２>
↑のようになるように、エクセルの値に応じて、
「,」が出力しないようにしたいです。
どうしたらよいのでしょうか。
よろしくおねがいします。
