Private Sub Befehl0_Click()
Dim FNr As Integer
Dim DateiInhalt As String
 
FNr = FreeFile
 
' Datei lesen
Open "C:\import.csv" For Input As #FNr
  DateiInhalt = Input(LOF(FNr), #FNr)
Close #FNr
 
' Anführungszeichen ersetzen
DateiInhalt = Replace(DateiInhalt, Chr(34), "")
 
FNr = FreeFile
 
' Datei speichern
Open "C:\import.csv" For Output As #FNr
  Print #FNr, DateiInhalt;
Close #FNr
 
DoCmd.TransferText acImportDelim, "Importspezifikation", "CSV_Import", _
  "C:\import.csv"
End Sub