AW: Dateien aus Ordner nacheinander öffnen
18.01.2005 13:19:23
Matthias
Hallo dieses Code-beispiel öffnet alle Dateiformate, nicht nur .xls, sondern alle Formate dessen SW auf Deinem PC installiert sind.
Viel Spaß.
Gruß Matthias
Public Declare
Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal lpnShowCmd As Long) As Long
Public
Function findfiles()
Dim DeinSuchpfad As String
DeinSuchpfad = "Z:\FD_RBG\FD PreProjects\Projectbook\Projectbook Daten"
Set wkb = ActiveWorkbook
With Application.FileSearch
.LookIn = DeinSuchpfad
.SearchSubFolders = 0 'bezieht keine unterordner ein
.Filename = "*.*"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Call FileOpen(.FoundFiles(i))
Next i
End If
End With
Set wkb = Nothing
End Function
Public
Function FileOpen(ssDatei)
Dim Dateiname As String
Dim dateipfad As String
If ssDatei = False Then
Exit Function
End If
If Right(ssDatei, 3) = "xls" Then
Workbooks.Open Filename:=(ssDatei)
Else
Dateiname = StrReverse(Left((StrReverse(ssDatei)), (InStr(1, (StrReverse(ssDatei)), "\", vbBinaryCompare) - 1)))
dateipfad = StrReverse(Right(StrReverse(ssDatei), (Len(ssDatei) - InStr(1, (StrReverse(ssDatei)), "\", vbBinaryCompare))))
ShellExecute 0, "open", Dateiname, "", dateipfad, 3
End If
End Function