AW: Pfad in VBA ändern
23.03.2006 12:02:03
Josef
Hallo Ingolf!
Funktioniert leider nicht: die Datei wird nicht im gewünschten Pfad "G:\Dok\SVAdgW\Vergütung\") gespeichert, sondern unter H:\Arbeit und noch dazu unter dem Namen PfadVÜ 2006.xls.
Der richtige Pfad mit der Arbeitsmappe müßte lauten:
G:\Dok\SVAdgW\Vergütung\VÜ 2006.xls.
wo unterliege ich hier bitte noch einem Irrtum.
Danke
Josef
Sub VÜ2_speichern()
Dim pfad As String
Dim dokname As Variant
Dim dokname1 As Variant
pfad = InputBox("Geben Sie den Pfad ein.", "Pfad", "G:\Dok\SVAdgW\Vergütung\")
dokname = Workbooks("KVAB2.xla").Worksheets("Daten").Range("H2")
dokname1 = Workbooks("KVAB2.xla").Worksheets("Daten").Range("I1")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="pfad" & dokname & " " & dokname1 & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
End Sub