VBA- GetValue

0

Cześć,
dopiero zaczynam moją przygodę z VBA. Próbuję napisać makro, którego zadaniem będzie pobranie kilku danych (czasy poszczególnych operacji) z każdego z kilku tysięcy plików. Próbuję na razie pobrać wartość jednej komórki z konkretnego pliku funkcją GetValue() znalezioną w internecie, lecz funkcjaExecuteExcel4Macro(arg) zwraca Error 2023.
Funkcję wywołuję:

Range("A1") = GetValue("C:\Users\user\Desktop\", "zlecenie_1.xls", "Arkusz1", "C5")
Public Function GetValue(path, file, sheet, ref)

    Dim arg As String

    If Right(path, 1) <> "\" Then path = path & "\"
    If Dir(path & file) = "" Then
        GetValue = "File Not Found"
        Exit Function
    End If

    arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
      Range(ref).Range("A1").Address(, , xlR1C1)

    GetValue = ExecuteExcel4Macro(arg)
End Function
0

Jakiej wersji Excela używasz? U mnie na 2010 chodzi bez problemu

0

Office 365, więc 2016

1 użytkowników online, w tym zalogowanych: 0, gości: 1