Office: (Office 2010) Als CSV-Datei speichern

joghurtjens · 21. November 2011

Hier die fertige Lösung, die ich dann doch über Excel realisiert habe::

Code:

Public Function ExportdateiGaeWoRing(TabelleOderViewOderSelect As String)

'Schleifenvariable deklarieren
Dim i As Integer
Dim Spalten As Long
Dim Zeilen As Long

'Recordset anlegen, dass die Reportdaten aufnimmt
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Set conn = CurrentProject.Connection
conn.CommandTimeout = 600 'Timeout hochsetzen
Set rst = New ADODB.Recordset
rst.ActiveConnection = conn
rst.LockType = adLockOptimistic
rst.Open TabelleOderViewOderSelect

'Excel-Objekt anlegen
Dim objExcel As Object
Dim wkb As Object
Dim wks As Object
Set objExcel = CreateObject("Excel.Application")
'objExcel.Visible = True
Set wkb = objExcel.workbooks.Add
Set wks = wkb.worksheets(1)
wks.Name = "Belegung_GaeWo" 'Namen der Arbeitsmappe bestimmen

With wks

'beginnend mit der Zelle A2 die Recordset-Daten einfügen
.Range("A1").CopyFromRecordset rst

'eingespielte Excel-Daten formatieren
.Cells.Font.Size = 8 'Schriftgröße 8 einstellen
.Columns("A:AZ").EntireColumn.AutoFit 'optimale Spaltenbreite einstellen

End With

objExcel.DisplayAlerts = False
wkb.SaveAs FileName:="U:\WGA_Gaestewohnungen\Export_GaewoRing_neu.csv", FileFormat:=6, Local:=True
wkb.Close
objExcel.Quit

'Excel-Objekt freigeben
Set wks = Nothing
Set wkb = Nothing
Set objExcel = Nothing

'Recordset schließen
rst.Close
Set rst = Nothing
Set conn = Nothing

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wichtig sind dabei die beiden Schalter "FileFormat:=6" (=> für CSV) und "Local:=True" (=> für Trennzeichen Semikolon).

Office: (Office 2010) Als CSV-Datei speichern

Als CSV-Datei speichern

Als CSV-Datei speichern

Als CSV-Datei speichern - Similar Threads - CSV Datei speichern

Farbspeicherung in CSV-Datei

CSV Dateien mit unterschiedlichen Format importieren und zusammenführen

CSV Datei öffnen und mit Tab statt Komma als Trennzeichen speichern?

CSV Dateien öffnen, Diagramm erstellen und als PDF speichern.

CSV-Datei die Exponentialschreibweise vermeiden beim Speichern

Speichern als csv Datei

Fehlermeldung beim Speichern einer csv Datei