Ich möchte nur das Verzeichnis I:\Excel geöffnet haben in meinem Code.
Bei mir öffnet sich immer nur der Desktop auf C: was auch funktioniert dann weiter.
Ich würde aber gerne das sich das Laufwerk I:\Exel öffnet wo ich meine Datei anwählen kann. Die Shell angabe geht zwar aber dann öffnet er 2 mal.
Hier ein Auszug vom Code.
Private Sub CommandButton4_Click() ' andere Datei öffnen
UserForm1.Hide
Dim varName As Variant
' Shell "explorer.exe /e,I:\Excel", vbNormalFocus
varName = Application.GetOpenFilename("CSV-Dateien,*.csv,Alle Dateien,*.*")
If varName = False Then Exit Sub
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & varName, Destination:=Range("$A$1"))
Weiterer Code nicht wichtig zum Problem
Danke im voraus der Mühe
Dieter