各フィールドの前後にファイルを二重引用符で囲みます。

Question

私のExcelファイルの各フィールドの前後に引用符を付けることにしました。私はCSVにエクセルファイルをエクスポートするためにこれを行う必要があります。そうでなければ、いくつかのフィールドにカンマファイルが含まれていると、誤った行数と列数が返されます。 cfspreadsheetを探していましたが、この問題の解決策が見つかりませんでした。冷たい融合でこれを動作させる他の方法はありますか？ファイルをループする必要がありますか、他の関数がこれを処理できますか？前もって感謝します。ここで

Answer 1

は、VBAソリューションです：

Sub DontQuoteMe() 
    Dim r As Range, DQ As String 

    DQ = Chr(34) 
    For Each r In ActiveSheet.UsedRange 
     If r.Value <> "" Then 
      r.Value = DQ & r.Value & DQ 
     End If 
    Next r 
End Sub