Speichern unter mit Pfadauswahl
27.06.2005 14:39:14
gunter
bisher habe ich folgenden Code zum speichern benutzt:
Sub Speichern()
Const s = "F:\___Angebot_Auftrag\KD_B-T-Z\_KD-AUFTRAG"
Dim bm
bm = InputBox("Bitte Dateinamen mit Kundendienst Daten ergänzen:", "Speichern unter: F:\___Angebot_Auftrag\KD_B-T-Z\_KD-AUFTRAG", Format(Now, "yyyy-mm-dd") & "-KD_")
ActiveWorkbook.SaveAs s & "\" & bm & ".xls"
End Sub
Nun habe ich aber hinter dem Ordner _KD-Auftrag, 3 weitere Unterordner. Das heisst ich kann keinen festen Pfad mehr vorgeben, sondern muss die Möglichkeit haben, den ordner zu bestimmen. Die Vorgabe des Dateinamens sollte erhalten bleiben.
Wer kann mir auf die Sprünge helfen.
Gruß Gunter
Anzeige