Ich muss Daten aus einer Access Applikation exportieren damit ich nachträglich diese im Internet importieren kann. Dabei muss ich einige Vorgaben seitens der externen Webapplikation genau einhalten. Ich muss die Daten in einer *CSV Datei bereit stellen. Nun habe ich noch Schwierigkeiten mit dem Format für das Datum und die Absummierung der Datensätze.
-Das Datum muss dd.mm.yyyy (ohne Zeitangaben) ausgegeben werden.
-ENDE;***, AM Ende der Liste muss die Anzahl ausgegebenen Datensätze dargestellt werden.
Wer kann mir hier weiterhelfen.
Oski
Mein Script im VBA Access:
Private Sub Befehl68_Click()
'Datenexport mit Kopfzeile True
On Error GoTo Err_Befehl68_Click
Dim stDocName As String
stDocName = "xxexport"
DoCmd.TransferText acExportDelim, "CSV_Exportspezifikation_01", "xxexport", _
"C:\Temp\DatenExport_" & Format(Date, "yyyymmdd") & _
"_org.csv", True
meldung:
MsgBox "DatenExport erfolgreich abgeschlossen"
Exit_Befehl68_Click:
Exit Sub
Err_Befehl68_Click:
MsgBox Err.Description
Resume Exit_Befehl68_Click
End Sub
Mein Ergebnis:
Kopf;Kundennr;LAND;Verkaufsdatum;Verkaufspr
DATEN;7201;CH;;
DATEN;5717;CH;21.01.2006 00:00:00;2900
DATEN;1401;CH;20.01.2006 00:00:00;4500
DATEN;1411;CH;;
DATEN;1051;CH;23.01.2006 00:00:00;
Mein Ziel:
So sollte die Exportdatei aussehen, Datum ohne Zeitangaben und
am Ende die Absummierung der Anzahl Datensätze ENDE;5
Kopf;Kundennr;LAND;Verkaufsdatum;Verkaufspr
DATEN;7201;CH;;
DATEN;5717;CH;21.01.2006;2900
DATEN;1401;CH;20.01.2006;4500
DATEN;1411;CH;;
DATEN;1051;CH;23.01.2006;
ENDE;5
