エクセルデータをカンマ区切り、ダブルコーテーションで囲んだデータにする方法を教えてください

Question

はじめまして。
仕事でエクセルデータをカンマ区切り、ダブルコーテーション囲みのテキストデータにする必要があります。

例）
”111”,"222","","","","666""

このように空白のセルもあり、そのセルもダブルコーテーションで囲みたいです。
VBAで変更する方法をどこかで見かけましたが、張り付けてみましたが、上手く動きませんでした。
超初心者ですので、わかりやすく教えていただけると有り難いです。

お手数をおかけしますが、宜しくお願い致します。

WindFaller · Accepted Answer

Unicode 出力の件ですが、せっかく、個人用マクロブックに納められる（つもり）ので、それを、書き換えるよりも、後づけマクロのほうがよいかもしれません。一緒にしてしまうと、Unicodeのみになってしまいますから、それも望まないし……
とあれこれ考えて、単独マクロで、Unicodeファイル判別するプログラムもつけました。BigEndien も LittleEndienも別けますが、出力は、BigEndienだけです。
こういうのは、余計なものかもしれません。

'//
Public Sub Convert2UNICODE()
'シフトJISをUnicodeに替えるマクロ
Dim stream As Object
Dim stream2 As Object
Dim fname As Variant
Dim buf As Variant
Dim b() As Byte
Dim i As Long
fname = Application.GetOpenFilename _
　("File (*.*), *.*", 1, "ファイルオープン")
　If VarType(fname) = vbBoolean Then Exit Sub
　Open fname For Binary As #1
　　　ReDim b(1 To 6)
　　　　Get #1, , b
　 Close #1
　For i = 1 To 6
　buf = buf & Hex(b(i))
　Next
　If buf Like "FFFE*" Or buf Like "FEFF*" Then
　　MsgBox "ファイルはすでにUnicodeです。", vbExclamation
　　Exit Sub
　End If
　'-------変換プログラム-----------
On Error GoTo ErrHandler
Set stream = CreateObject("ADODB.Stream")
　　stream.Open
　　stream.Type = 2
　　stream.Charset = "shift_jis"
　　stream.LoadFromFile fname

Set stream2 = CreateObject("ADODB.Stream")
　　stream2.Open
　　stream2.Charset = "unicode"
　　stream.CopyTo stream2
　　stream2.SaveToFile (fname), 2
　　stream2.Close
　　stream.Close

Set stream2 = Nothing
Set stream = Nothing
Exit Sub
ErrHandler:
　If Err.Number <> 0 Then　
　　Msgbox Err.Number & " :" & Err.Description
End If
End Sub

WindFaller · Answer

>こちらは、そのマクロの後に追加で付けたらいいんでしょうか？

この件については、私は迷いました。どうしたものかと。
私のほうが言い出した話ですし、ノウハウを公開しても、その価値と需要とは比例していません。

CSVの出力に組み込んでしまえばよいのですが、必ずしも、UNICODE CSVが必要とは限らないわけです。オプションで切り分けるには、UserFormなどで作った方がよいけれども、それほどにはないかもしれません。それが、必要なときは、Windowsをやっている時で、年に1度の頻度もないかもしれません。
例えば、テキストエディタのNotePad ++ でも、変換が利きます。

私の持論なのですが、個人用マクロブックに入れるものは、本当に厳選したものしかいれないように、また頻繁に使うものだけにする、ということにしています。あまり詰め込むと、Excelの起動が遅くなるからです。

参考にするだけで、テキストファイルにしておいて、何か思い出した時にでも、コードを貼り付けて使っていただいてもよろしいのではありませんか？

もし、Unicode　CSVなどが、よく使うようでしたら、もう一度、コードを練り直すべきかもしれません。VBAでは、考えている以上の自由なことは出来ますが、汎用性がありません。新しい技術で、Excel DNAアドインなどにすれば、メモリ負担も少なく便利なのですが、未だ、私の技術は、新しい技術には伴わないのです。

なお、Excelは、Access の代わりのデータベースになります。
データベースのJet で、ADODB が使えます。
もうひとつは、本来のExcelの機能のひとつ、Ms Query です。
他にも、MySQL がありますね。

なかなか、全部が万能だとはいきませんが、新しい技術も古い技術も、使えるようになっていれば、新しい表計算スタイルの時代が来ても乗り越えられるような気がします。

mike_g · Answer

[No.4お礼]へのコメント、
Accessでの確認が出来なかったこと、了解です。
現状の Excel でも、データに「,」が含まれている場合(例:\12,345)は「ダブルコーテーション囲みのテキストデータ」になることを申し添えておきます。
他の回答の中に、このことが弊害になるものがないことを祈っています。

WindFaller · Answer

#3の回答者です。
まず、このマクロは、Excel2003の時に開発されたもので、当時は、Unicodeなど問題にならなかった時代です。Unicodeの話は後にさせていただいて、私個人としては、なかなか使えるマクロだなって思っています。
（本来は、文字には、「" "」  が付き、数字には、つかないというものだったのです。）

「個人用マクロブック」は、
ここらにも書かれてありますが……
https://allabout.co.jp/gm/gc/297809/

1．記録マクロ（左下の帯の部分－準備完了や開発タブを開いて記録マクロをクリック）
2．「マクロの記録」というダイアログで、保存先を個人用マクロブックにします。

3．画面のどこでもよいので、マウスを一回クリックします。

4．マクロ終了■　で止めます。

5．Alt-F11 で、VBA Editor で画面が開きます。

6．プロジェクトエクスプローラーという画面があります。なければ、
Ctrl + R のショートカットキーで出てきます。

7．VBAProject(PERSONAL.EXLB )あるはずですから、ダブルクリックで開いてみます。

8.標準モジュールというものがあるはずで、そこに、Module1 をクリックします。

9．
Sub Macro1()
  Range(**).Select 
End Sub

先程の命令は、ここに記録されました。
10．後は、前回のコードをSub ～　End Sub まで、コピー＆ペーストしてあげます。

ひとまず、ここで、Ctrl +S で保存
VBA Editor の右上[×]をクリックしても、Excelは終了しません。
右上[×]をクリックして閉じてください。
------------------------
クィックアクセスツールバーの絵は以下を参考にしてください。

https://allabout.co.jp/gm/gc/297722/

1．オプションから設定からです。
2．Excel のオプションの中で、[クイックアクセスツールバー]という項目がありますが、それをクリックして開けます。

3．左側に　　　　　　　　右側に
コマンドの選択　　　　クイックアクセスツールバーのユーザー設定
とあります。

4．左側で、マクロを選択すると、個人用マクロブック（PERSONAL.XLSB!Sub CsvOutWithQuatation())　がありますので、それを画面の真ん中のボタンで
「追加→」で右側に表示させます。

5．右側に入ったマクロ名を選択し、右側の画面の下に「変更」がありますので、それをクリックするとダイアログが出てきます。アイコンと名称を選んでつけてあげます。画像は、そのダイアログボックスです。

このアイコンは、本来は、全部で5000以上もあるのですが、このダイアログで選べるのは限定されています。
------------------------
なぜ、個人用マクロブックをおすすめするかというと、使っているブックの拡張子などには影響されずに可能だからです。

Unicode の件については、あったほうがよいかとは思いますが、今、少し長くなりすぎたので、後にさせてください。（今、PCが故障中で直りませんが、なんとか持たせられると思います）
---------------------------
お体お大事に。

mike_g · Answer

》 超初心者ですので、…
昔の職場の私も同様の立場で、その時の記憶では(今は手元にない)MS Access から CSV化するときは全てのデータが「"」で囲われていたような。もし Access が使えるなら試してみてください。

【独白】どうしてＭＳは全データを「"」で囲うＣＳＶをオプションとして加えないのかなぁ～？

WindFaller · Answer

こんにちは。

できれば、以下は、個人用マクロブックに入れて、クイックツールバーのアイコンに登録すると便利かと思います。
特に中身はいじる必要性はないと思いますが、この出力は、SJISです。
UNICODE出力になれば、また、少し手を加えなくてはなりません。

'//標準モジュール
Sub CsvOutWithQuatation()
　Dim Rng As Range
　Dim r As Range
　Dim buf As String
　Dim fNo As Integer
　Dim fn As Variant
　Dim c As Variant
'*******設定欄 *********
　Const QT As String = """" 'クォーテーション
　Const sep As String = ","　'コンマ切り
　Const Ext As String = ".csv"　'拡張子
'*********************
　
　If TypeName(Selection) = "Range" Then
　　Set Rng = Selection
　　If Rng.Count < 3 Then
　　　MsgBox "3セル以上の範囲を選択してください。", vbExclamation
　　　Exit Sub
　　End If
　Else
　　MsgBox "セルの範囲を選択してください。", vbExclamation: Exit Sub
　End If
　fn = Application.GetSaveAsFilename _
　(Format$(Date, "yy-mm-dd"), "CSV File (*" & Ext & "),*" & Ext & "", 1, "CSV保存")
　 
　If VarType(fn) = vbBoolean Or fn = "" Then Exit Sub
　If Dir(fn) <> "" Then
　　If MsgBox(Dir(fn) & "はすでにあります。上書きしますか？", vbExclamation + vbOKCancel) = vbCancel Then
　　　Exit Sub
　　End If
　End If
　fNo = FreeFile()
　Open fn For Output As #fNo
　'********Start Export ************
　For Each r In Rng.Rows
　　For Each c In Range(r.Cells(1), Cells(r.Row, Columns.Count).End(xlToLeft))
　　　buf = buf & sep & QT & c.Value & QT
　　Next
　　Print #fNo, Mid(buf, 2)
　　buf = ""
　Next
　Close #fNo
　Beep
End Sub

ryo_ky · Answer

関数で作る方法なら下記の内容で如何でしょうか？前提として例に書かれているデータがA列からF列にあるとして関数を組んでます． =""""&IF(A1<>"",A1,"""")&""","&IF(B1<>"",B1,"""")&""","&IF(C1<>"",C1,"""")&""","&IF(D1<>"",D1,"""")&""","&IF(E1<>"",E1,"""")&""","&IF(F1<>"",F1,"""")&""""

milk_kokoa · Answer

VBAじゃないとダメでしょうか？
いちよう簡単な方法ですが、

①ＣＳＶ（カンマ区切り）で名まえを付けて保存します。
②保存したデータをテキストエディタで開きます。
③「,」カンマ　→　「","」ダブルコーテーションカンマダブルコーテーション　置き換えます。
④「^」正規表現で行の先頭　→　「"」ダブルコーテーション　置き換えます。
⑤「$」正規表現で行の行末　→　「"」ダブルコーテーション　置き換えます。

以上です。正規表現で置き換えが可能なテキストエディタがあれば出来ると思います。

エクセルデータをカンマ区切り、ダブルコーテーションで囲んだデータにする方法を教えてください

Unicode 出力の件ですが、せっかく、個人用マクロブックに納められる（つもり）ので、それを、書き換えるよりも、後づけマクロのほうがよいかもしれません。

>こちらは、そのマクロの後に追加で付けたらいいんでしょうか？

[No.4お礼]へのコメント、

#3の回答者です。

》 超初心者ですので、…

こんにちは。

関数で作る方法なら下記の内容で如何でしょうか？

VBAじゃないとダメでしょうか？

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

》超初心者ですので、…