Получение имён листов из закрытых книг Excel

Posted by obzor under VBA, Архив

Задачка у меня в том чтобы вернуть имя файла если в данном файле содержится искомый текст, просмотрев все файлы которые есть в папке.
Подробнее: есть функция для получения значения из закрытой книги. Пишу макрос который перебирает все книги в папке и если в каком-то из файлов в любом из листов в ячейке C4 встретится искомый текст, то он вернет его имя. Весь затык в том как прописать в данном случае поиск во всех листах файла…

SAS888

Любой способ получения значений из ячеек рабочего листа закрытой книги будет открывать файл (явно, или нет). Очень жаль, что разработчики Excel «выбросили» метод «FileSearch», который мог «в лоб» решить Вашу задачу, т. е. определить файл, содержащий искомое значение. Приходится решать по-другому. Например, так:

Sub qq()
    Dim wb As Workbook, ws As Worksheet, p As String, f As String, Item As String
    Item = "текст" 'искомое значение
    p = "E:\Temp\" 'путь к папке с файлами
    f = Dir(p & "*.xls*")
    Do While f <> ""
        Set wb = GetObject(p & f)
        For Each ws In wb.Sheets
            If ws.[C4] = Item Then MsgBox wb.Name
        Next
        wb.Close: f = Dir
    Loop
End Sub

Естественно, что можно определять не только полное, но и частичное совпадение значений (используя, например, InStr).
Что делать при обнаружении совпадений, автору лучше знать. Макрос просто выведет сообщение с именем искомой книги.

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel