Dateien aus Ordner nacheinander öffnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Read_Files() Dim strFTyp As String, _ strOrdner As String, _ strSF As Byte, _ strFile As String, _ strName As String, _ FS As FileSearch, _ i As Integer, z As Integer, n As Integer, _ wbkVV As Workbook, _ wshVV As Worksheet, _ wshFiles As Worksheet, _ rngFind As Range, iZähler As Integer Application.ScreenUpdating = False strFTyp = "*.xls" strOrdner = ThisWorkbook.Path Set FS = Application.FileSearch With FS .LookIn = strOrdner .Filename = "*" & strFTyp .SearchSubFolders = True If .Execute > 0 Then Set wshFiles = Sheets(1) For i = 1 To .FoundFiles.Count If .FoundFiles(i) <> ThisWorkbook.Path & "\" & ThisWorkbook.Name Then n = wshFiles.Cells(65536, 1).End(xlUp).Row + 1 strFile = .FoundFiles(i) Set wbkVV = Workbooks.Open(Filename:=.FoundFiles(i), IgnoreReadOnlyRecommended:=True) Set wshVV = wbkVV.Sheets(1) strName = wbkVV.Name With wshFiles.Rows(n) .Cells(1) = wshVV.Range("V5") .Cells(2) = wshVV.Range("H5") .Cells(3) = wshVV.Range("A7") .Cells(4) = wshVV.Range("H10") .Cells(5) = wshVV.Range("A5") .Cells(6) = strName .Cells(7) = strFile End With wbkVV.Close False End If Next i End If End With wshFiles.Cells.EntireColumn.AutoFit Application.ScreenUpdating = True End Sub

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

Beliebteste Forumthreads (12 Monate)

Dateien aus Ordner nacheinander öffnen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateien aus Ordner nacheinander öffnen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread