Hej har ett makro som ska hämta värden ur alla exceldok i en mapp.
Detta har fungerat bra tidigare men nu har det blivit ca:300st exceldok i mappen, och då är mitt problem att det bara hämtas 245st.
Är detta nån begränsning i excel eller har jag pillat på nåt jag inte borde ?
Bifogar min kod så hoppas jag få en lösning på det hela!
' Hämtar värde från alla xls dokument i mappen Repregistar, dessa värde radas sen upp i 01-Main.xls där koden ligger.
Sub DataFiler()
Dim Sökväg As String
Dim Fil As String
Dim i As Integer
Dim wb As Workbook
Application.ScreenUpdating = False
Sökväg = "F:\KINGSTON\Repregister\*.xls"
i = 1
Fil = Dir(Sökväg)
Do While Fil <> ""
Set wb = Workbooks.Open(Left(Sökväg, InStr(1, Sökväg, "*") - 1) & Fil)
' Set wb = Workbooks.Open(Fil)
ThisWorkbook.Worksheets("Sheet1").Cells(5 + i, 3) = wb.Worksheets("Blad1").Range("C2")
ThisWorkbook.Worksheets("Sheet1").Cells(5 + i, 1) = wb.Worksheets("Blad1").Range("A2")
ThisWorkbook.Worksheets("Sheet1").Cells(5 + i, 2) = wb.Worksheets("Blad1").Range("B2")
ThisWorkbook.Worksheets("Sheet1").Cells(5 + i, 5) = wb.Worksheets("Blad1").Range("F2")
ThisWorkbook.Worksheets("Sheet1").Cells(5 + i, 4) = wb.Worksheets("Blad1").Range("D2")
ThisWorkbook.Worksheets("Sheet1").Cells(5 + i, 6) = wb.Worksheets("Blad1").Range("G2")
ThisWorkbook.Worksheets("Sheet1").Hyperlinks.Add ThisWorkbook.Worksheets("Sheet1").Cells(5 + i, 1), Left(Sökväg, InStr(1, Sökväg, "*") - 1) & Fil
wb.Close False
Fil = Dir
Application.StatusBar = i & " : " & Fil
i = i + 1
Loop
'Nedan sorteras märket på fordonet i stigande ordning!
Range("A5:F500").Sort Key1:=Range("B5"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub