ＣＳＶ形式での保存時に”文字列引用符”にしたい（エクセル）

質問

データのアップデートに、ＣＳＶ形式でのファイルから一括アップロードができるのですが、データ内容に条件があり、文字列についてはダブルコーテーションで括ることになっています。

”千代田区日本橋”,”１丁目1-1”,

といった感じなのですが、エクセルから保存する時に一括で「”」が入る方法はあるでしょうか？
普通にＣＳＶで保存すると、入りません。

回答No.3

Wendy02

こんにちは。

簡単なコードですみませんが、こんなもので出来るはずです。現在のコードでは、すべて、文字列として、「" "」クォーテーションで括ってしまいます。数字との区別はありません。

一応、標準モジュールに登録してください。

Alt　+　 F11 (Altを押しながらF11）を押すと、Visual Basic Editor 画面が出てきます。
次に、メニューの[挿入]－[標準モジュール]と開けて、クリックすると、画面が現れますので、以下のコードを貼り付けて、再び、Alt　+　F11 で、画面を閉じます。

後は、Alt + F8 で、CSVEport_W_Qt を実行してみてください。（プロシージャーの名前は任意ですから、和名を付け直しても結構です。）

'--------------------------------------------
Option Explicit
Sub CSVExport_W_Qt()
　 Dim Fname As String
　 Dim usedRng As Range
　 Dim i As Long, j As Long
　 Dim buf As String
　 Dim Fno As Integer
　 Const Qt As String = """"
　 Fname = Application.InputBox("出力名を入力してください。", Type:=2)
　 If VarType(Fname) = vbBoolean Or Fname = "" Then Exit Sub
　 If InStr(Fname, ".csv") = 0 Then Fname = Fname & ".csv"
　 Fno = FreeFile()
　 Open Fname For Output As #Fno
　 With ActiveSheet
　　　Set usedRng = .UsedRange
　　　On Error Resume Next
　　　For i = 1 To usedRng.Rows.Count
　　　　 For j = 1 To usedRng.Columns.Count
　　　　　　If Not IsEmpty(usedRng.Cells(i, j)) Then
　　　　　　　 buf = buf & "," & Qt & usedRng.Cells(i, j).Value & Qt
　　　　　　　 Else
　　　　　　　 buf = buf & ","
　　　　　　End If
　　　　 Next j
　　　　 Print #Fno, Mid$(buf, 2)
　　　　 buf = ""
　　　Next i
　　　On Error GoTo 0
　 End With
　 Close #Fno
　 Beep
End Sub
'--------------------------------------------

お礼

プログラムありがとうございました。ただ使う人間が理解できないので、使えませんでした。ごめんなさい。