| |
wadaさん、Hirofumi さん、こんにちは。
>>たとえばsheet1に１０行（１行目は見出し）１０列のデータがあり、これらを出力（ファイル名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
確認してみて下さい。
|
|
ichinose
- 05/4/23(土) 13:23 -
