I. Есть код:
Private Function GetValue(path, file, sheet, ref)
'Выборка значения из закрытой книги'
Dim arg As String
'Проверка существования файла'
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "Файл не найден"
Exit Function
End If
'Создание аргумента'
arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("AI").Address(, , xlR1C1)
'Выполнение макроса XLM'
GetValue = ExecuteExcel4Macro(arg)
End Function
Sub TestGetValue()
Dim p As String, f As String
Dim s As String, a As String
Dim r As Long, c As Long
p = "C:\_Temp\"
f = "002.6 Stdln Acc's.xlsm"
s = "FOREX Acc"
Application.ScreenUpdating = False
For r = 1 To 100
For c = 1 To 12
a = Cells(r, c).Address
Cells(r, c) = GetValue(p, f, s, a)
Next c
Next r
End Sub
После запуска возникает ошибка в строке
arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("AI").Address(, , xlR1C1)
которая звучит так:
Run-time Error '1004': Application-defined or object-defined error
Поможете разобраться? Поступила рекомендация тестировать пошагово (далее см. II.)
II. Переделал код:
Private Function GetValue(path, file, sheet, ref)
'Выборка значения из закрытой книги'
Dim arg As String
Dim rng1 As Range, rng2 As Range
'Проверка существования файла'
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "Файл не найден"
Exit Function
End If
Set rng1 = Range(ref)
Set rng2 = rng1.Range("AI")
'Создание аргумента'
arg = rng2.Address(, , xlR1C1)
'arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("AI").Address(, , xlR1C1)'
'Выполнение макроса XLM'
GetValue = ExecuteExcel4Macro(arg)
End Function
Sub TestGetValue()
Dim p As String, f As String
Dim s As String, a As String
Dim r As Long, c As Long
p = "C:\_Temp\"
f = "002.6 Stdln Acc's.xlsm"
s = "FOREX Acc"
Application.ScreenUpdating = False
For r = 1 To 100
For c = 1 To 12
a = Cells(r, c).Address
Cells(r, c) = GetValue(p, f, s, a)
Next c
Next r
End Sub
Теперь возникает ошибка:
Run-time Error '1004': Application-defined or object-defined error
в строке:
Set rng2 = rng1.Range("AI")
Добавил Dim ref as String
. Теперь возникла ошибка:
Compile error: Duplicate declaration in current scope
в строке:
Dim ref as String
Удалил Dim ref as String
Исправил строку:
arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("AI").Address(, , xlR1C1)
на строку:
arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range("AI").Address(, , xlR1C1)
III. Переделан код (явно указан рабочий лист книги реципиента, куда из донора должны вставиться данные):
Private Function GetValue(path, file, sheet, ref)
'Выборка значения из закрытой книги
Dim arg As String
Dim rng1 As Range, rng2 As Range
'Проверка существования файла
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "Файл не найден"
Exit Function
End If
'Создание аргумента'
Set sht = ThisWorkbook.Sheets("Лист1")
arg = "'" & path & "[" & file & "]" & sheet & "'!" & sht.Range("AI").Address(, , xlR1C1)
'Выполнение макроса XLM'
GetValue = ExecuteExcel4Macro(arg)
End Function
Sub TestGetValue()
Dim p As String, f As String
Dim s As String, a As String
Dim r As Long, c As Long
p = "C:\_Temp\"
f = "002.6 Stdln Acc's.xlsm"
s = "FOREX Acc"
Application.ScreenUpdating = False
For r = 1 To 100
For c = 1 To 12
a = Cells(r, c).Address
Cells(r, c) = GetValue(p, f, s, a)
Next c
Next r
End Sub
Всё равно по строке:
arg = "'" & path & "[" & file & "]" & sheet & "'!" & sht.Range("AI").Address(, , xlR1C1)
возникает ошибка:
Run-time error '1004': Application-defined or object-defined error
IV. Код изменён (жёстко указан диапазон):
Private Function GetValue(path, file, sheet, ref)
'Выборка значения из закрытой книги'
Dim arg As String
Dim rng1 As Range, rng2 As Range
'Проверка существования файла'
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "Файл не найден"
Exit Function
End If
'Создание аргумента'
Set sht = ThisWorkbook.Sheets("Лист1")
arg = "'" & path & "[" & file & "]" & sheet & "'!" & sht.Range("a1:ai100").Address
'Выполнение макроса XLM'
GetValue = ExecuteExcel4Macro(arg)
End Function
Sub TestGetValue()
Dim p As String, f As String
Dim s As String, a As String
Dim r As Long, c As Long
p = "C:\_Temp\"
f = "002.6 Stdln Acc's.xlsm"
s = "FOREX Acc"
Application.ScreenUpdating = False
For r = 1 To 100
For c = 1 To 12
a = Cells(r, c).Address
Cells(r, c) = GetValue(p, f, s, a)
Next c
Next r
End Sub
Теперь уже в другой строке:
GetValue = ExecuteExcel4Macro(arg)
возникает ошибка (приложена скрином):
Range(ref).Range("AI").Address(, , xlR1C1)
. Отлаживайте его кусками. Создайте 2 переменные rng1 и rng2 типа Range и сделайтеset rng1=Range(ref) : set rng2=rng1.Range("AI") : arg=rng2.Address(, , xlR1C1)
, и смотрите, в какой точке сбой и по какой причине.ref
(в который кладётеa
, содержащийCells(r, c).Address
). За каким хреном в функции нужно получатьRange(ref)
, чтобы потом от него пытаться получить именованный диапазон'AI'
? что мешает сразу обратиться к этому диапазону, минуя получениеRange(ref)
?