Modul: Dateiname automatisch generieren
18.07.2008 16:24:00
Bernd
nun suche ich eine Modul, was mir automatisch den Dateinamen erstellt.
Das Modul soll mit einer Schaltfläche gestartet werden, den "Speichern unter"-Dialog öffnen und den Dateinamen bereits eintragen.
Der Dateiname soll wie folgt aussehen:
- Nummer aus Zelle A1
- Leerzeichen
- Ort (ohne PLZ) aus Zelle A2
- Komma
- Leerzeichen
- Name des Kunden aus Zelle A3
Beispiel:
A1: 807-20100
A2: 12345 Musterhausen
A3: Mustermann & Söhne OHG
Der Dateiname wäre dann "807-20100 Musterhausen, Mustermann & Söhne OHG.xls".
Weiterhin wäre es dann auch noch schön, wenn ich per Button eine PDF-Datei erstellen könnte und im "Save PDF File As"-Dialog dann auch schon der Dateiname "807-20100 Musterhausen, Mustermann & Söhne OHG.pdf" eingetragen wäre.
Das müßte dann im Code irgendwo vor
Application.ActivePrinter = "Acrobat PDFWriter auf LPT1:"
objWks.PrintOut
stehen, oder?
Schöne Grüße
Junker