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