0

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)

возникает ошибка (приложена скрином):

введите сюда описание изображения

18
  • Ошибка явно возникает во фрагменте Range(ref).Range("AI").Address(, , xlR1C1). Отлаживайте его кусками. Создайте 2 переменные rng1 и rng2 типа Range и сделайте set rng1=Range(ref) : set rng2=rng1.Range("AI") : arg=rng2.Address(, , xlR1C1), и смотрите, в какой точке сбой и по какой причине.
    – Akina
    16 мая 2019 в 7:11
  • Ну вот теперь смотрите, есть ли указанном Range такой именованный диапазон. И какой смысл в первом Range, если имена диапазонов уникальны в пределах листа (или книги - зависит от установленной области)? Да и вообще, вроде бы, именованные диапазоны есть свойства книги/листа. но никак не Range. PS. Предполагалось, что после получения адреса в переменную arg следующим оператором будет до-сборка полного адреса.
    – Akina
    16 мая 2019 в 7:26
  • Что-то запутался...
    – 2b4fITin
    16 мая 2019 в 7:40
  • Добавил Dim ref as String НАФИГА? тип переменной-аргумента указывается непосредственно в определении функции.
    – Akina
    16 мая 2019 в 7:55
  • Что-то запутался... Вот объясните ВАШУ логику. Вы передаёте в функцию аргумент ref (в который кладёте a, содержащий Cells(r, c).Address). За каким хреном в функции нужно получать Range(ref), чтобы потом от него пытаться получить именованный диапазон 'AI'? что мешает сразу обратиться к этому диапазону, минуя получение Range(ref)?
    – Akina
    16 мая 2019 в 7:58

1 ответ 1

0

I. В строке

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

в последней группе вызовов у вас какая-то каша. Вы вызываете объект Range от полученной ссылки, затем ищите в ней именнованный диапазон с именем "AI", от которого пытаетесь получить относительный адрес в стеле r1c1

II. В строке

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

вы полностью игнорируете полученный адрес в аргументе к функции ref. Сразу берете именнованный диапазон "AI" и пытаетесь получить от него адрес.

III. В строке

arg = "'" & path & "[" & file & "]" & sheet & "'!" & sht.Range("AI").Address(, , xlR1C1)

вы делаете то же самое, только не от базового класса Range, а от объекта листа рабочей книги. Разницы в результате здесь не будет, так как контекст выполнения операции преобразования адреса не важен.

IV. В строке

arg = "'" & path & "[" & file & "]" & sheet & "'!" & sht.Range("a1:ai100").Address

вы продолжаете игнорировать адрес ячейки, полученный в аргументе функции ref, и указываете абсолютный адрес диапазона ячеек, хотя исходный код тестовой процедуры явно заточен на получения адресов по каждой ячейке.

Решение В итоге, вам нужно было указать следующий код:

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

где преобразование адреса ведется от полученной ссылки в аргументе функции ref.

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими пользовательским соглашением, политикой конфиденциальности и политикой о куки

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.