Получение пользовательской функцией данных с закрытой книги

[KozakMamaj]

Возможно ли получение пользовательской функцией данных с закрытой книги. (Если диапазон ячеек закрытой книги не передается как параметр) ?

[SAS888]

Т.е. Вы сами не знаете, какие данные (путь к файлу, имя файла, лист, диапазон ячеек) Вам нужны?

[EducatedFool]

Тоже хотелось бы узнать...

К примеру, есть файл Excel (имя и путь известны, например "c:\data.xls"), надо перенести в массив значения известного диапазона (например, "a1:e20")

Как это лучше сделать, не открывая файл "c:\data.xls"?

Понимаю, что можно создать временную книгу, прописать в ней ссылки на ячейки "a1:e20" файла "c:\data.xls", принудительно обновить ссылки, после чего считать в массив диапазон уже из временной книги.

Может, есть более простой \ эффективный способ?

[SAS888]

В VBA Excel нет возможности получить данные из закрытой рабочей книги. Но эту проблему можно решить с помощью макроса XLM. Это позволит присвоить данные переменной, не создавая и удаляя ссылки, т.е. без использования ячеек листа. Например, решить задачу, поставленную EducatedFool (только не указан рабочий лист), можно так:

Sub GetValue()

    Dim arg As String, i As Long, j As Long
    For i = 1 To 20
        For j = 1 To 5
            arg = "'C:\[data.xls]Лист1'!" & Range(Cells(i, j).Address).Range("A1").Address(, , xlR1C1)
            Cells(i, j) = ExecuteExcel4Macro(arg)
        Next
    Next
    
End Sub

[EducatedFool]

SAS888, спасибо большое! Буду пользоваться.

Вот только вопрос: файл "c:\data.xls" состоит из нескольких листов,
и с каждого надо считывать около 1000 ячеек (диапазон "a1:e200")

Что будет быстрее: не открывая файл, читать по одному значению в цикле Вашей функцией, или всё-таки открыть файл, одной строкой скинуть диапазон в массив, и закрыть файл?

[SAS888]

Что будет быстрее: не открывая файл, читать по одному значению в цикле Вашей функцией, или всё-таки открыть файл, одной строкой скинуть диапазон в массив, и закрыть файл?

Это зависит от того, что из себя представляет "закрытый" файл. Он может очень долго открываться.

[KozakMamaj]

Сообщение от SAS888

Т.е. Вы сами не знаете, какие данные (путь к файлу, имя файла, лист, диапазон ячеек) Вам нужны?

Именно. Заранее это неизвесно (До использования функции). Для простоты можно считать что нужно чтобы пользовательская функция выводила значение одной ячейки из закрытой книги, заранее неизвесно из какой.

[SAS888]

Не понятно, а когда становится известно? Можно по-подробнее? У меня на компе их тысячи. Из всех получать?

[KozakMamaj]

Сообщение от SAS888

Не понятно, а когда становится известно? Можно по-подробнее?

Адрес нужной ячейки передается параметром в функцию, наверно лучше всего в виде строки.

[SAS888]

Какую из "кучи" книг выбирать? Есть критерии?