Wie man doppelte Anführungszeichen in Excel-Datei um jedes Feld setzen?

Question

Ich möchte Zitate um jedes Feld in meiner Excel-Datei setzen. Ich muss dies tun, um meine Excel-Datei nach csv zu exportieren. Andernfalls, wenn einige meiner Felder Kommas Datei enthalten, wird die falsche Anzahl von Zeilen und Spalten erhalten. Ich suchte in cfspreadsheet, aber konnte keine Lösung für dieses Problem finden. Gibt es einen anderen Weg, um dies in der kalten Fusion zu arbeiten? Muss ich die Datei durchlaufen oder eine andere Funktion kann sich darum kümmern? Danke im Voraus.

Answer 1

Hier ist eine VBA Lösung:

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