Excel VBA質問箱 IV

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

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


56969 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   特に言い方法は、有りませんが?
地道にやる他、無い様な気がします?

Sub TextOutput2()

  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
      strBuff = vntData(1, 1)
      For j = 2 To UBound(vntData, 2)
        Select Case j
          Case 4
            vntData(1, j) = Format(vntData(1, j), "yyyymmdd")
          Case 5
            vntData(1, j) = Left(vntData(1, j), 100)
          Case 6
            vntData(1, j) = "ABC"
        End Select
        strBuff = strBuff & "," & vntData(1, j)
      Next j
      Print #dfn, 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 お礼

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