Makro nach Ordnerauswahl (Dialogbox) starten
07.02.2016 11:32:22
Mike
ich verwende folgendes Makro, um die Dialogbox zur Auswahl eines Ordners anzuzeigen. Das funktioniert soweit gut. Kann mir jemand sagen, wie ich hier ein weiteres Makro starten kann, sobald ein Ordner ausgewählt wurde ?
Mein bisheriger Code:
Sub SelectImportFolder()
Dim varAppShell As Object
Dim varDirectory As Variant
Dim varPath As String
Set varAppShell = CreateObject("Shell.Application")
Set varDirectory = varAppShell.BrovarNewSheeteForFolder(0, "Please choose folder with files _
to import:", &H1000, 17)
On Error Resume Next
varPath = varDirectory.items().Item().varPath
If varPath = "" Then Exit Sub
MsgBox varPath
On Error GoTo 0
End Sub
Mike
Anzeige