|
下記の記述でCSVに書き込みをすると、全角文字の場合は例えば、「文字,文字」となるのですが、半角文字の場合は例えば、「 1 , 2 , 3 ,」のように半角文字の左右にスペースがついてしまいます。色々と元のデータの書式とか調べてみましたが、どうも記述文に原因があるようですが一向にわかりません。スペースを取り除いて「1,2,3,」のようにするにはどのような方法がありますでしょうか?宜しくお願いします。
Dim myPath As String
Dim N As Integer
Dim j As Integer
Dim LastRow As Long
Dim LastColumn As Integer
myPath = ThisWorkbook.Path & "C:\test.csv"
N = FreeFile
Open "C:\test.csv" For Output As #N
With Worksheets("sheet1")
LastColumn = .Cells(1, Columns.Count).End(xlToLeft).Column
Print #N, .Cells(1, 1).Value;
For j = 2 To LastColumn
Print #N, ","; .Cells(1, j).Value;
Next
Print #N, ""
End With
Close #N
|
|