ＥＸＣＥＬ ＶＢＡでのＣＳＶファイルの編集

ＣＳＶファイル（ダブルクォーテーション）形式のファイルをＥＸＣＥＬ ＶＢＡにて行の編集（削除）をした後、上書き保存をしたらダブルクォーテーション区切りではなくカンマ区切りのＣＳＶファイルの形式になってしまいます。
ダブルクォーテーション区切りのＣＳＶファイルで上書き保存する記述があれば教えて下さい。おそらくＥＸＣＥＬでＣＳＶ形式の上書きはＣＳＶ２の形式で保存されるみたいです。
困っています。どなたかお助け下さい。

No.1 回答者： nishi6 回答日時： 2001/09/07 01:57

Excelの機能にはないと思うので書いてみました。

質問の意図がCSV1かCSV3か不明のためCSV3を出力するようにしています。
『*****』の行をコメント行にするとCSV1で出力します。出力したい矩形範囲を選択して実行します。
ご参考に。

'今はCSV3、*****をコメント行にするとCSV1
Sub csv1or3Write()
　　Dim rw, rowStr, rowEnd As Long '行カウンタ
　　Dim col, colStr, colEnd As Integer '列カウンタ

　　With Selection '出力する選択範囲
　　　　rowStr = .Cells(1, 1).Row '開始行
　　　　rowEnd = .Cells(.Rows.Count, 1).Row '最終行
　　　　colStr = .Cells(1, 1).Column '開始列
　　　　colEnd = .Cells(1, .Columns.Count).Column '最終列
　　End With

　　Open "C:\--------\----\csvTest3.csv" For Output As #1 '出力ファイル名をセットする！！
　　For rw = rowStr To rowEnd
　　　　For col = colStr To colEnd - 1
　　　　　　If IsNumeric(Cells(rw, col)) Then '*****
　　　　　　　　Print #1, Cells(rw, col) & ","; '*****
　　　　　　Else '*****
　　　　　　　　Print #1, Chr(34) & Cells(rw, col) & Chr(34) & ",";
　　　　　　End If '*****
　　　　Next
　　　　If IsNumeric(Cells(rw, col)) Then '*****
　　　　　　Print #1, Cells(rw, col) '*****
　　　　Else '*****
　　　　　　Print #1, Chr(34) & Cells(rw, col) & Chr(34)
　　　　End If '*****
　　Next
　　Close
End Sub

この回答へのお礼

有り難うございました。
お教え頂いた命令は私もインターネット上で調べてはいました。
実は、この件をお願いしたデータは、縦３万行、横４０列という膨大なデータになっている為、お教え頂いた命令で記述した場合、編集作業に膨大な時間がかかってしまいます。
何がしたいかというと、ＥＸＣＥＬ ＶＢＡでＯＤＢＣ経由でデータ検索（ｓｑｌのＳＥＬＥＣＴ文）したいのですが、このダブルコォーテーションがなければ、データとして検索できないのです。
この様なデータを条件検索できるような命令がほかにあればご指導下さい。

お礼日時：2001/09/07 08:54