(cache) EXCEL→CSV保存時のダブルクォーテーションについて【OKWave】

みんなのQ&A
4,000万人が利用！最大級のQ&Aコミュニティ
専門家のQ&A
みんなの悩みに専門家が回答します
企業のQ&A
みんなの悩みを企業が解決するQ&A
著名人のQ&A
話題の著名人が教えてくれる自分磨きのQ&A
+OKWave
話題のテーマに特化したQ&Aコミュニティ
Why OKWave
Q&AをとおしてOKWaveが実現したいこと
法人のお客様
CRM・販売支援等、法人向けサービス多数
もっと見る
ヘルプ
新規会員登録
ログイン

「世界の100人」で話題のあの人！

総ありがとう 4,430万

詳細
検索

-PR-

すぐに回答を！
2006-04-17 14:27:55
質問No.2097431

解決
済み Q EXCEL→CSV保存時のダブルクォーテーションについて

閲覧数5160
ありがとう数1
気になる数0
回答数2

mari_dora

下記のようにEXCELマクロにてEXCELファイルをCSVファイルに保存しようとしています。
NewBook.SaveAs
Filename:="test.csv",
FileFormat:=xlCSV,
CreateBackup:=False

このとき、セル値にダブルクォーテーションが含まれていると、出力CSVファイルの値がダブルクォーテーションで囲まれてしまいます。

●ダブルクォーテーションが含まれていない場合
セル値→A列：ABC
　　　　B列：DEF
CSVファイル→ABC,DEF
●ダブルクォーテーションが含まれている場合
セル値→A列：A"C
　　　　B列：DEF
CSVファイル→"A"C",DEF

後者の場合もダブルクォーテーションで囲まれないようにするにはどうすればよいでしょうか。

通報する

回答数2
気になる数0

回答する
気になる
「気になる」をクリックで
回答がついた時に通知でお知らせします

Aみんなの回答（全2件）

質問者が選んだベストアンサー

2006-04-17 21:16:39
回答No.2

pauNed

こんにちは。

Sub sample()
Dim s As String
Dim r As Long, c As Long, i As Long, n As Long
With Range("A1").CurrentRegion
r = .Rows.Count
c = .Columns.Count
End With
n = FreeFile
Open "D:\test.csv" For Output As n
For i = 1 To r
s = Join(WorksheetFunction.Index(Cells(i, 1).Resize(, c).Value, 0), ",")
Print #n, s
Next i
Close #n
End Sub

…な感じでしょうか。

通報する

回答ページへ移動する

お礼コメント

mari_dora

やはり自分でCSV形式のデータを作成するしかなさそうですね。

ありがとうございました。

投稿日時 - 2006-05-02 09:40:21