Verzeichnis öffnen

Hallo Zusammen,
mit der Sub öffne ich mein Downloadverzeichnis. Wenn ich das Verzeichnis schließe führt es trotzdem den Code aus.
Wie definiere ich das beim klicken auf Abbrechen oder auf das X (oben rechts) das Verzeichnisfenster geschlossen wird und der Code nicht mehr ausgeführt wird ?
Vielen Dank :)
Sub Ordner_erstellen_files_abspeicher()
Dim strPath As String
Dim strFile As String
Dim objWorkbook As Workbook
' Öffne das Downloadverzeichnis und wähle File aus, welches in den Ordner verschoben werden soll.
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Title = "Bitte Report auswählen"
.InitialFileName = "C:\Users\Downloads\"
.FilterIndex = 2
If .Show Then strFile = .SelectedItems(1)
End With

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim pickfile As Variant pickfile = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", _ Title:="Choose File", MultiSelect:=False) 'If they have cancelled If pickfile = False Then Exit Sub ElseIf (dein weiterer Code)

Danke nur ich bekomm die Verbindung nicht hin :(
' *********************************************************************************************
' Button
' *********************************************************************************************
Sub erstellen_abspeicher()
Dim pickfile As Variant
Dim strPath As String
Dim strFile As String
Dim objWorkbook As Workbook
' Öffne das Downloadverzeichnis und wähle File aus, welches in den Ordner verschoben werden soll.
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Title = "Bitte Report auswählen"
.InitialFileName = "C:\Users\Downloads\"
.FilterIndex = 2
If .Show Then strFile = .SelectedItems(1)
End With
If pickfile = False Then Exit Sub ''' !!!!!!
If strFile vbNullString Then
strPath = "C:\Users\oC " & Format$(Date, "dd_mm_yy") & "\"
Call MakeSureDirectoryPathExists(strPath)
Set objWorkbook = Workbooks.Open(Filename:=strFile)
Call objWorkbook.SaveAs(Filename:=strPath & "01ProcessChanges", FileFormat:=xlOpenXMLWorkbook)
Set objWorkbook = Nothing
ActiveWorkbook.Close
End If

Sub Ordner_erstellen_files_abspeicher() Dim strPath As String Dim strFile As String Dim objWorkbook As Workbook ' Öffne das Downloadverzeichnis und wähle File aus, welches in den Ordner verschoben werden soll. With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = False .Title = "Bitte Report auswählen" .InitialFileName = "C:\Users\Downloads\" .FilterIndex = 2 If .Show = -1 Then strFile = .SelectedItems(1) Else Exit Sub End If End With

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread