Excel VBA質問箱 IV

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

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


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

26773 / 76732

←次へ　｜　前へ→


	【55288】Re:テキストファイル（ＣＳＶ）に変換

Yuki - 08/4/25(金) 17:06 -


	引用なし

	パスワード

▼KOCCI さん：
こんにちは。

>ただ、ＣＳＶといいながら、セパレータはカンマではなく＠にしたいのです。
>対象列は５つ（Ａ～Ｅ）で、それぞれのセルは文字か空白です。
>
>"abcdef"@""@"xyz"@"lmn123"@""
>
>のように出力させたいのです

参考に

Sub Macro2()
　　Dim FName　 As String
　　Dim i　　　 As Long
　　Dim j　　　 As Long
　　Dim lCol　　As Long
　　Dim vD()　　As Variant
　　Dim vA　　　As Variant
　　Dim strA　　As String
　　
　　FName = "D:\Excel\Test7\CSV_AT.CSV"
　　
　　With Worksheets(1)
　　　　vA = .Range("A1:D" & .Range("A" & .Rows.Count).End(xlUp).Row)
　　　　lCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
　　　　ReDim vD(1 To lCol)
　　End With
　　
　　Open FName For Output As #1
　　　　For i = 1 To UBound(vA)
　　　　　　For j = 1 To lCol
　　　　　　　　vD(j) = Chr(34) & vA(i, j) & Chr(34)
　　　　　　Next
　　　　　　strA = Join(vD, "@")
　　　　　　Print #1, strA
　　　　Next
　　Close #1
End Sub

1 hits

▼

【55281】テキストファイル（ＣＳＶ）に変換 KOCCI 08/4/25(金) 15:53