Создал на листе кнопку, хочу чтобы значения из закрытой книги перешли на текущий рабочий лист
Код такой:
Function GetValue(path, file, sheet, ref)
Dim arg As String
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
range(ref).range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function
Sub CommandButton1_Click()
p = "c:\!!\Книга1"
f = "Книга1.xls"
s = "Лист1"
Application.ScreenUpdating = False
For r = 1 To 2
For c = 1 To 4
a = Cells(r, c) = GetValue(p, f, s, a)
Next c
Next r
Application.ScreenUpdating = True
End Sub
Это пример из книги но он выдает ошибку:
"Метод Range объекта Worksheet failed"
Помогите прошу вас, что здесь не так
Офисс 2003
