Hallo
ich möchte in A10 Daten aus Abfragen
1.) in das MS-DOS-CSV-Format exportieren.
Dazu habe ich ein Form indem ich 3 Auswahlfelder (Kategorie, Artikel,
Fabrikant) habe und einen Button der die Aktion startet.
Zur Zeit habe ich folgende, nicht zufriedenstellende Lösung:
If Kategorie = -1 Then
DoCmd.OutputTo acOutputQuery, "qryKategorie", "xlsx", "D:\KategorieWeb.xlsx", False, "", 1, acExportQualityPrint
End If
If Artikel = -1 Then
DoCmd.OutputTo acOutputQuery, "qryArtikel" ...
End If
If Fabrikant= -1 Then
DoCmd.OutputTo acOutputQuery, "qryFabrikant" ...
End If
(xlsx, da der Export in das CSV-Dateiformat mit A10 auch nach mehreren
Versuchen nicht funktionieren will)
2.) in der exportierten CSV-Datei (und nur in dieser) sollen beim Export
bestimmte Zeichen entfernt/geändert werden.
Die Zeichen entferne/ändere ich derzeit in Excel.
Das kann VBA sicherlich schneller und besser, weiß allerdings nicht wie der
Code aussieht und wo ich ihn einbinden muß.
2.a) Es sollen alle Buchstaben, "ä" durch "a"; "ö" durch "o" usw. ersetzt
werden nicht jedoch "ä" durch "ae" etc. auch nicht "ß" durch "ss".
2.b) Außerdem sollen alle "?" Symbole gelöscht und alle "," in den Beträgen
durch "." ersetzt werden.
2.c) In den ausgewählten Optionsfeldern soll "1" anstatt "WAHR" geschrieben
werden.
Gruß
Heinrich
Hallo,
1) benutz Transfertext (siehe VBA-Hilfe) statt OutputTo , evtl. mit einer Export-Spezifikation.
2) erledige das in der Abfrage in einer berechneten Spalte.
http://www.dbwiki.de/wiki.php?title=Access_Anf%E4nger:_Wo_schreibe_ich_den_VBA-Code_hin%3F
2a) http://www.dbwiki.de/wiki.php?title=VBA_Tipp:_Umlaute_ersetzen
2b) was sind "?" Symbole ? Benutz zur Formatierung der Beträge die Format-Funktion (wie 2), wenn es nicht in der Export-Spez. erledigt werden kann )
2c) Was für Optionsfelder? Wenn damit die o. g. "Auswahlfelder" gemeint sind, kann so ein Optionsfeld nur entweder markiert (dicker Punkt) oder nicht markiert sein.