Hätte ein kleines Problem:
Per VBA Code kann ich den Inhalt eines Ordners ansehen (Excel-Dateien), nun möchte ich dass sich die von mir markierte Datei öffnet.
Kann mir wer weiterhelfen?
Gruß Peter
Private Sub UserForm_Initialize()
ListBox1.Clear
With Application.FileSearch
.NewSearch
.LookIn = "C:\Neu"
.SearchSubFolders = True 'wenn Unterordner Mit einbezogen werden sollen
.Filename = "*"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
ListBox1.AddItem Dir(.FoundFiles(i)) 'wenn du nur die dateinamen haben willst
Next i
End If
End With
End Sub
Const Pfad = "C:\Neu"
Private Sub CommandButton1_Click()
'"Datei laden"-Button
Dim fn As String
fn = ListBox1.Value
If fn = "" Then MsgBox "Bitte Datei auswählen!", vbExclamation
Workbooks.Open Pfad & "\" & fn
Unload Me
End Sub
Private Sub UserForm_Initialize()
ListBox1.Clear
With Application.FileSearch
.NewSearch
.LookIn = Pfad
.SearchSubFolders = True 'wenn Unterordner Mit einbezogen werden sollen
.Filename = "*"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
ListBox1.AddItem Dir(.FoundFiles(i)) 'wenn du nur die dateinamen haben willst
Next i
End If
End With
End Sub