Fehlermeldung bei Makro-Abbruch vermeiden
19.02.2016 10:35:34
Markus
ich verwende folgenden Code in einem Button-Event, um den Dialog zur Ordnerauswahl anzuzeigen.
Das Makro funktioniert soweit wie geplant.
Wenn man jedoch keinen Ordner im Dialog auswählt und statt dessen auf Abbrechen / Cancel im Dialog klickt, d.h. das Makro abbricht, erhalte ich folgende Fehlermeldung:
"Run-time error 5: Invalid procedure call or argument" (s. Kommentar im Code).
Kann mir jemand sagen, wie ich das vermeiden kann ?
Mein Code:
Sub SelectFolder()
Dim varPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
On Error Resume Next
varPath = .SelectedItems(1) & "\"
Err.Clear
On Error GoTo 0
End With
Call ImportFiles(varPath)
End Sub
Sub ImportFiles(varPath)
Dim objFile As Object
Dim objFolder As Object
Dim objFSO As Object
Dim varRowCount As Integer
Dim varSheet As Worksheet
Dim varWorkbook As Workbook
Worksheets(2).Cells.ClearContents
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(varPath) ' hier springt der Debugger an - nur bei _
Abbruch, ansonsten funktioniert alles !
End Sub
VG,
Markus