|
wadaさん、Hirofumi さん、こんにちは。
>>たとえばsheet1に10行(1行目は見出し)10列のデータがあり、これらを出力(ファイル名text.csv)すると、各データがダブルコーテーションで囲まれますが、これをあとから取り除く方法があればご教示願います。
>>(たとえば、Close #1のあとに、再度データを読み込んでreplace関数でダブルコーテーションを空白に置き換えるとか)
>
>データに","やCrLfが有る場合、本来はダブルコーテーションが必要なんですがね?
私もそう思いますが・・・。
'========================================
Sub TextOutput2()
Dim prdata As String
Worksheets("Sheet1").Select
Open ThisWorkbook.Path & "\" & "text.csv" For Output As #1
For I = 2 To 11
prdata = Join(Application.Transpose( _
Application.Transpose( _
Range("a" & I & ":j" & I).Value)), ",")
Print #1, prdata
Next
Close #1
End Sub
確認してみて下さい。
|
|