Guten Tag zusammen,
Ich benutze um Daten aus einer Geschlossener Datei auszulesen und in die aktuell geöffnete Daei wieder rein zu schreiben die GetData funktion die auch super funktioniert. Was mich dabei aber stört, die ganze Prozedur geht sehr langsam bis alle Daten aus jeder Datei gelesen und wieder geschrieben wird. Gibt es da in meinem Script etwas das ich optimieren kann?
Sub GetData()
Dim oMe As Worksheet, iZeile As Long, oDatei As Object
Dim oFS As Object, wbQuelle As Workbook
Set oMe = ThisWorkbook.ActiveSheet
Const sDateiPfad As String = " \" 'Pfad anpassen
iZeile = 19
Application.ScreenUpdating = False
Set oFS = CreateObject("Scripting.FileSystemObject")
For Each oDatei In oFS.GetFolder(sDateiPfad).Files
If InStrRev(oDatei.name, "xlsx") Then
Set wbQuelle = Workbooks.Open(sDateiPfad & oDatei.name)
With wbQuelle.ActiveSheet
oMe.Cells(iZeile, 2) = .Range("B5")
oMe.Cells(iZeile, 3) = .Range("B13")
wbQuelle.Close False
iZeile = iZeile + 1
End With
End If
Next
Set oMe = Nothing: Set wbQuelle = Nothing
End Sub
|