imoprt af felter fra andet excel ark - jeg får en fejlmelding

Det er nok fordi ark-navnene der anderledes, f.eks. Ark1 på dansk og Sheet1 på engelsk.

nej kære tobler det hjalp desværre ikke det ser nu sådan ud:


Sub ReadDataFromAllWorkbooksInFolder()
Dim FolderName As String, wbName As String, r As Long, cValue As Variant
Dim wbList() As String, wbCount As Integer, i As Integer
    FolderName = "C:\aftaler"
    ' create list of workbooks in foldername
    wbCount = 0
    wbName = Dir(FolderName & "\" & "*.xls")
    While wbName <> ""
        wbCount = wbCount + 1
        ReDim Preserve wbList(1 To wbCount)
        wbList(wbCount) = wbName
        wbName = Dir
    Wend
    If wbCount = 0 Then Exit Sub
    ' get values from each workbook
    r = 0
    Workbooks.Add
    For i = 1 To wbCount
        r = r + 1
        C3Value = GetInfoFromClosedFile(FolderName, wbList(i), "Sheet1", "C3")
        C24Value = GetInfoFromClosedFile(FolderName, wbList(i), "Sheet1", "C24")
        D24Value = GetInfoFromClosedFile(FolderName, wbList(i), "Sheet1", "D24")
        Cells(r, 1).Formula = wbList(i)
        Cells(r, 2).Formula = C3Value
        Cells(r, 3).Formula = C24Value
        Cells(r, 4).Formula = D24Value
    Next i
End Sub

Private Function GetInfoFromClosedFile(ByVal wbPath As String, wbName As String, wsName As String, cellRef As String) As Variant
Dim arg As String
    GetInfoFromClosedFile = ""
    If Right(wbPath, 1) <> "\" Then wbPath = wbPath & "\"
    If Dir(wbPath & "\" & wbName) = "" Then Exit Function
    arg = "'" & wbPath & "[" & wbName & "]" & wsName & "'!" & Range(cellRef).Address(True, True, xlR1C1)
    On Error Resume Next
    GetInfoFromClosedFile = ExecuteExcel4Macro(arg)
End Function

svaret er således afvist

Hvis du selv la'r være med at sende dine kommentarer som svar, så ser spørgsmålet på oversigtssiden ikke ud som at være besvaret, hvilket får mange til at undlade at kigge på spørgsmålet!

undskyld jeg er ny i systemet

det er trist at stå helt alene i verden

Helt alene er du nu ikke. Luk spørgsmålet, lav et nyt og smid din vba-kode med fra starten, så er der sikkert et par macro krabatter der hjælper dig videre.

jeg lukker ved at akceptere, ikke sandt ? (nu er jeg blevet mere forsigtig)
(jeg kommer og klipper græsset hvis du hjælper)

VBA er ikke min styrke, selv om jeg bruger det en del - jeg klipper og klistrer fra nettet og mine bøger. Held og lykke med løsningen af dit problem.

Lav også en henvisning til dit nye spørgsmål til dette, så dem der kigger her bli'r ledt videre til det nye.

iøvrigt vil den nu på den første fil, kun de resterende viser stadig #REFERENCE!
det ser umiddelbart ud til at være simplere end som så