Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


56971 / 76732 ←次へ | 前へ→

【24502】Re:csv出力の際のダブルコーテーション
発言  ichinose  - 05/4/23(土) 13:23 -

引用なし
パスワード
   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

確認してみて下さい。

0 hits

【24499】csv出力の際のダブルコーテーション wada 05/4/23(土) 12:33 質問
【24501】Re:csv出力の際のダブルコーテーション Hirofumi 05/4/23(土) 13:19 回答
【24502】Re:csv出力の際のダブルコーテーション ichinose 05/4/23(土) 13:23 発言
【24503】Re:csv出力の際のダブルコーテーション wada 05/4/23(土) 14:02 質問
【24504】Re:csv出力の際のダブルコーテーション Hirofumi 05/4/23(土) 14:33 回答
【24507】Re:csv出力の際のダブルコーテーション wada 05/4/23(土) 18:47 お礼

56971 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free