Speichern unter mit VBA (Pfad festlegen)
13.07.2006 20:30:10
Peter
Kann mir jemand sagen, weshalb mein File direkt auf dem Laufwerk C: abgespeichert wird und wie ich erreiche, dass das File im Subfolder C:\3intern\ landet?
Danke
Peter
Sub Demo_GetSaveAsFilename()
Dim varRetVal As Variant
Dim strInitFileName As String
ChDir "\"
ChDrive "c:\3intern\"
strInitFileName = "Report_2006_06_30" & Range("link").Value & "_V1"
varRetVal = Application.GetSaveAsFilename( _
InitialFileName:=strInitFileName, _
FileFilter:="Microsoft Excel-Dateien (*.xls), *.xls", _
Title:="Datei speichern unter...")
If varRetVal = False Then Exit Sub
ActiveWorkbook.SaveAs varRetVal
End Sub
Anzeige