Excel VBA質問箱 IV

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

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


56972 / 76732 ←次へ | 前へ→

【24501】Re:csv出力の際のダブルコーテーション
回答  Hirofumi  - 05/4/23(土) 13:19 -

引用なし
パスワード
   >たとえばsheet1に10行(1行目は見出し)10列のデータがあり、これらを出力(ファイル名text.csv)すると、各データがダブルコーテーションで囲まれますが、これをあとから取り除く方法があればご教示願います。
>(たとえば、Close #1のあとに、再度データを読み込んでreplace関数でダブルコーテーションを空白に置き換えるとか)

データに","やCrLfが有る場合、本来はダブルコーテーションが必要なんですがね?

Option Explicit

Sub TextOutput()

  Dim i As Long
  Dim j As Long
  Dim dfn As Integer
  Dim vntData As Variant
  Dim strBuff As String
  
  dfn = FreeFile
  Open ThisWorkbook.Path & "\" & "text.csv" For Output As #dfn
  
  With Worksheets("Sheet1")
    For i = 2 To 11
      vntData = .Cells(i, 1).Resize(, 10).Value
      For j = 1 To UBound(vntData, 2)
        If strBuff <> "" Then
          strBuff = strBuff & ","
        End If
        strBuff = strBuff & vntData(1, j)
      Next j
      Print #dfn, strBuff
      strBuff = ""
    Next i
  End With

  Close #dfn

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 お礼

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