Export als CSV mit Trennzeichen

26/02/2008 - 13:26 von Lisa Glonegger | Report spam
Hallo zusammen,
ich würde gerne eine Tabelle alls CSV aus Access heraus exportieren.
Die Ausgabe sollte folgendermaßen sein:
LIEFERNR;FIRMENNAME;POSTLEITZAHL;ORT;LAND;
24234;XXX GMBH;45345;XORT;D;
00390;YYY GMBH;73066;YORT;D;


Ich hab folgendes versucht:

- DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97,
"tbl_004_FINAL_Export", strKW
öffnet, schreibt er davor und danach undefinierbare Zeichenketten
hin.

Wenn man diese CSV jedoch öffnet und wiederum als CSV direkt aus Excel
speichert, macht er es richtig. Also hab ich probiert, die CSV mit dem
TransferSpreadsheet zu exportieren und dann diese zu öffnen und wieder
als CSV zu speichern:

- Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim strKW As String
Dim strKWCSV As String

strKW = "C:\Ausgabe.csv"
strKWCSV = "C:\Ausgabe2.csv"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97,
"tbl_004_FINAL_Export", strKW

xlsApp = New Excel.Application
xlsBook = xlsApp.Workbooks.Open(Filename:=strKW,
UpdateLinks:=False, ReadOnly:=False)
xlbook.SaveAs(Filename:=strKWCSV,
FileFormat:=Excel.XlFileFormat.xlCSV)
xlApp.Application.Quit


Leider geht das auch nicht. Er meint immer "Erwartet: =" und markiert
die Zeile mit dem xlBook.SaveAs(...)
Weiss jemand was das sein kann? Ich weiss nicht mehr weiter :-(


Viiiiielen Dank und viele Grüße,
LISA
 

Lesen sie die antworten

#1 Henry Habermacher
26/02/2008 - 13:37 | Warnen spam
Hallo Lisa

Lisa Glonegger wrote:

ich würde gerne eine Tabelle alls CSV aus Access heraus exportieren.
Die Ausgabe sollte folgendermaßen sein:
LIEFERNR;FIRMENNAME;POSTLEITZAHL;ORT;LAND;
24234;XXX GMBH;45345;XORT;D;
00390;YYY GMBH;73066;YORT;D;


Ich hab folgendes versucht:

- DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97,
"tbl_004_FINAL_Export", strKW
öffnet, schreibt er davor und danach undefinierbare Zeichenketten
hin.



Wieso machst Du nicht einfach einen TransferText? CSV Dateien sind in der
Regel nur Text Dateien und da einen TransferSpreadsheet zu machen wird wohl
nie ganz hinkommen. Ein Umweg über Excel lohnt sich auch nicht.

Also etwa so:

docmd.TransferText acExportDelim, , "tbl_004_FINAL_Export", strKW, True

Falls die Standardwerte für die Delimiter (vorallem Text und ;) nicht
hinkommen, erstelle zuerst eine ImportExport Spezifikation über den
Import/Export Assistenten und gib diese dann hier an.

Gruss
Henry


SEK2 Anmeldung: http://donkarl.com/?SEK
Microsoft MVP Office Access
Keine E-Mails auf Postings in NGs. Danke.
Access FAQ www.donkarl.com

Ähnliche fragen