Datei auswählen und sprichern
04.12.2017 08:42:12
Markus
Ich hoffe, ihr könnt mir wieder mal aus der Patsche helfen.
Ich möchte über VBA das Windows Explorer Fenster öffnen und eine Datei suchen, diese sollte jedoch nicht geöffnet werden sondern sofort im selben Ordner wie die aktive Tabelle gespeichert werden.
So weit bin ich schon.
Sub suchen()
Dim pfad As String
Dim Datei As Variant
pfad = ThisWorkbook.Path & "/"
Datei = Application.GetSaveAsFilename()
Datei.SaveAs = pfad & Datei
End Sub
Das öffnen des Explorers funktioniert, die Date kann ausgewählt werden, dann bricht er jedoch mit Objekt erforderlich ab. Was mache ich falsch?
Danke
Susmark
Manchmal ist es schwerer als Meistens.