Excel VBA質問箱 IV

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

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


8853 / 76732 ←次へ | 前へ→

【73447】Re:CSV File作成について
発言  kanabun  - 13/1/11(金) 17:04 -

引用なし
パスワード
   ▼yokomichi さん:
こんにちは〜

セミコロン区切りですか

解決後ですが、参考です

Sub セミコロン区切り()
 Dim rr As Range, r As Range
 Dim io As Integer
 Dim Filename As String
 Dim v As Variant
 Dim ss As String
 
 Set rr = ActiveSheet.Range("A1").CurrentRegion '出力範囲
 
 Filename = "D:\CSVMac\CSV3.csv" '出力ファイル名
 io = FreeFile()
 Open Filename For Output As io
 For Each r In rr.Rows
   v = Application.Index(r.Value, 0#)
   ss = """" & Join(v, """;""") & """"
   Print #io, Replace(ss, vbLf, "<BR>")
 Next
 Close io

End Sub

なお、最後の項目のあとにも ; をつけるなら、
>   ss = """" & Join(v, """;""") & """"


    ss = """" & Join(v, """;""") & """;"

にしてください。
247 hits

【73443】CSV File作成について yokomichi 13/1/11(金) 15:16 質問
【73445】Re:CSV File作成について UO3 13/1/11(金) 15:47 発言
【73446】Re:CSV File作成について yokomichi 13/1/11(金) 16:06 お礼
【73447】Re:CSV File作成について kanabun 13/1/11(金) 17:04 発言
【73456】Re:CSV File作成について yokomichi 13/1/12(土) 11:15 質問
【73457】Re:CSV File作成について kanabun 13/1/12(土) 15:09 発言
【73497】Re:CSV File作成について yokomichi 13/1/16(水) 12:15 質問
【73498】Re:CSV File作成について UO3 13/1/16(水) 13:09 発言
【73500】Re:CSV File作成について yokomichi 13/1/16(水) 14:41 お礼
【73458】Re:CSV File作成について UO3 13/1/12(土) 15:31 発言
【73461】Re:CSV File作成について yokomichi 13/1/12(土) 21:38 お礼

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