ThisWorkbook.Path
12.02.2013 11:18:33
Bruno
Mit Hilfe dieses Forums habe ich den nachstehenden (Ausschnitt) Makro-Code zusammengestellt. Es sollte alle XML-Files im Unterordner XML-Protokolldaten zur Auswahl anzeigen. Hier meine Verzeichnisstruktur: «D:\ASZW\XML_Prorokolldaten». Die Arbeitsmappe (ThisWorkbook) liegt im Hauptordner ASZW.
Private Sub XML_Import_Click()
Dim Filt, Titel, Msg As String
Dim FilterIndex, i, X, Counter, MaxRows As Integer
Dim FileName As Variant
Dim sPath As String
Dim XML As String
XML = ThisWorkbook.Path & "\XML_Protokolldaten\*.xml"
Filt = "XML-Dateien (*.xml), *.xml"
FilterIndex = 1
Titel = "Bitte eine XML-Datei zum Import wählen"
FileName = Application.GetOpenFilename(FileFilter:=Filt, _
FilterIndex:=FilterIndex, Title:=Titel, MultiSelect:=False)
If FileName = False Then
MsgBox "Es wurde keine Datei ausgewählt."
Exit Sub
End If
End Sub
Im Auswahldialog des Explorers wird damit aber nur das Laufwerk D:\ mit allen Ordnern angezeigt, die Navigation zu ASZW\XML_Protokolldaten\ muss also manuell erfolgen.Was mache ich falsch, wo liegt der Fehler?