Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

56972 / 76732

←次へ　｜　前へ→


	【24501】Re:csv出力の際のダブルコーテーション

Hirofumi - 05/4/23(土) 13:19 -


	引用なし

	パスワード

>たとえばsheet1に１０行（１行目は見出し）１０列のデータがあり、これらを出力（ファイル名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