Excel формула поиска файла

Создать формулу поиска файла, с заданными условиями

AlexNel Дата: Четверг, 29.09.2016, 16:53 | Сообщение № 1 Группа: Пользователи Ранг: Новичок Сообщений: 12 Репутация: 0 ± Замечаний: 0% ± Excel 2007 Здравствуйте! Подскажите, пожалуйста, решение! Требуется вставить в одну из ячеек таблицы файла-N, данные из таблицы файла-M. Фишка в том, что файл-M находиться в папке со множеством документов и наименование этих файлов соответствуют наименованию ячеек таблицы из файла-N. Пока есть только это: =’Z:Я2016ОТЧЕТЫоктябрь[15-н.xls]лист 1′!E$28 Как добавить в формулу поиск нужного мне файла (15-н, 16-н, 17-н и т.д.), чтобы при протягивании формула выполняла свою функцию. Спасибо, заранее   Ответить

Karataev Дата: Четверг, 29.09.2016, 19:08 | Сообщение № 2 Группа: Проверенные Ранг: Старожил Сообщений: 1330 Репутация: 528 ± Замечаний: 0% ± Excel а чем Вас не устраивает эта формула Код =’Z:Я2016ОТЧЕТЫоктябрь[15-н.xls]лист 1′!E$28 Киви-кошелек: 9166309108   Ответить

AlexNel Дата: Четверг, 29.09.2016, 19:31 | Сообщение № 3 Группа: Пользователи Ранг: Новичок Сообщений: 12 Репутация: 0 ± Замечаний: 0% ± Excel 2007 Посмотрите вложенный док. К сообщению приложен файл: 1207271.rar (28.2 Kb)   Ответить

Nic70y Дата: Четверг, 29.09.2016, 19:35 | Сообщение № 4 Группа: Друзья Ранг: Экселист Сообщений: 8132 Репутация: 1998 ± Замечаний: 0% ± Excel 2010 Файл не смотрел, но сразу могу сказать, формулой, при закрытых файлах это не решить. варианты: макрос, выполнение действий вручную (различные варианты) ЮMoney 41001841029809   Ответить

AlexNel Дата: Четверг, 29.09.2016, 19:39 | Сообщение № 5 Группа: Пользователи Ранг: Новичок Сообщений: 12 Репутация: 0 ± Замечаний: 0% ± Excel 2007 Скажите, пожалуйста, а макрос существует и где можно его взять или заказать?   Ответить

Nic70y Дата: Четверг, 29.09.2016, 21:11 | Сообщение № 6 Группа: Друзья Ранг: Экселист Сообщений: 8132 Репутация: 1998 ± Замечаний: 0% ± Excel 2010 [vba] Код Sub f___() Application.ScreenUpdating = 0     u = Range(«b3»).End(xlDown).Row     For Each c In Range(«c4:c» & u)     If c = «» Then     If Len(Dir$(Application.ThisWorkbook.Path & «» & c.Offset(0, -1) & «.xlsx»)) > 0 Then     c.Cells = «='» & Application.ThisWorkbook.Path & «[» & c.Offset(0, -1) & «.xlsx]Лист1′!D4»     End If         End If     Next End Sub [/vba] жмите на «ячейку» итог [p.s.]не люблю архивы[/p.s.] К сообщению приложен файл: 6498505.xlsm (19.1 Kb) ЮMoney 41001841029809 Сообщение отредактировал Nic70y — Четверг, 29.09.2016, 21:22   Ответить

AlexNel Дата: Пятница, 30.09.2016, 07:18 | Сообщение № 7 Группа: Пользователи Ранг: Новичок Сообщений: 12 Репутация: 0 ± Замечаний: 0% ± Excel 2007 Спасибо огромнейшее Nic70y!!!! Все круто работает! Вечная слава альтруистам!!!! P.S. Тоже не люблю архивы, просто по другому не объяснить   Ответить

lenok Пользователь Сообщений: 39 Регистрация: 23.05.2013	Помогите, пожалуйста. Как в определенной папке с помощью макроса найти и открыть фаил с названием из ячейки??? Заранее, спасибо большое

Johny Пользователь Сообщений: 2737 Регистрация: 21.12.2012	А файл какой? Excel? There is no knowledge that is not power

lenok Пользователь Сообщений: 39 Регистрация: 23.05.2013	да. в 2003 экселе пытаюсь написать

Johny Пользователь Сообщений: 2737 Регистрация: 21.12.2012

#4 23.05.2013 11:40:58 Код Sub f()     Dim f As String, folder As String, file_name As String     'Папка для поиска     folder = "C:Temp"          'Ячейка с именем файла     file_name = Range("A1")          f = Dir(folder)     While Not Len(f) = 0         If f = file_name Then             Workbooks.Open folder & f         End If         f = Dir()     Wend End Sub There is no knowledge that is not power

lenok Пользователь Сообщений: 39 Регистрация: 23.05.2013

lenok Пользователь Сообщений: 39 Регистрация: 23.05.2013	а как сделать, чтобы выбор варианта ответа при появлении диалогового окна был автоматический, или чтобы оно вообще не вылазило???

Johny Пользователь Сообщений: 2737 Регистрация: 21.12.2012	#7 24.05.2013 14:28:11 Код Application.DisplayAlerts = False ..... ..... ..... Application.DisplayAlerts = True Изменено: Johny — 24.05.2013 14:28:36 There is no knowledge that is not power

lenok Пользователь Сообщений: 39 Регистрация: 23.05.2013	а можно ли сделать, чтобы он искал документ в поддиректориях???

Johny Пользователь Сообщений: 2737 Регистрация: 21.12.2012

#9 31.05.2013 17:18:58 Ставим галку: Tools -> References -> Microsoft Scripting Runtime Код Private file_name As String Private f As File, fld As folder Sub SearchAndOpen()     Dim source_folder As String     Dim fso As New FileSystemObject     'Папка для поиска     source_folder = "C:TempDir"          'Ячейка с именем файла     file_name = Range("A1")          Call EnumerateFiles(fso.GetFolder(source_folder)) End Sub Private Sub EnumerateFiles(root_folder As folder)     For Each f In root_folder.Files         If f.Name = file_name Then             Workbooks.Open f.Path         End If     Next          For Each fld In root_folder.SubFolders         Call EnumerateFiles(fld)     Next      End Sub Изменено: Johny — 31.05.2013 17:19:49 There is no knowledge that is not power

Hugo Пользователь Сообщений: 23249 Регистрация: 22.12.2012	#10 31.05.2013 17:29:09 Я чего-то не понимаю? Если есть имя файла — то зачем искать? Взяли и открыли. Если ошибка — обработали. А искать может быть долго — если например файлов тысячи. Да и код с таким поиском больно длинный  — хватает ведь 3-х строк: Код Sub f()     On Error GoTo err_: Workbooks.Open "C:Temp" & Range("A1"): Exit Sub err_:     MsgBox "Нет такого файла!" End Sub

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле	Я тоже не понимаю смысла в поиске…

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	Я сам — дурнее всякого примера! …

lenok Пользователь Сообщений: 39 Регистрация: 23.05.2013	Просто документов очень много. и постоянно открывать файлы под определенными названиями….. смысл тогда составления макроса… Пишу для автоматизации процессов обработки информации, и остановилась на этом моменте.

Hugo Пользователь Сообщений: 23249 Регистрация: 22.12.2012

Если например ситуации такие: — есть точный список названий файлов — в определённом месте (папки/подпапки) регулярно генерятся файлы (известна часть имени, или даже не известна) — нужно открыть все файлы определённой папки/подпапки — есть какая-то другая система в этих файлах и открывать такие файлы предстоит регулярно — то есть смысл один раз и надолго облегчить себе работу макросом. Если же никакой системы нет — то и макросом открывать файлы нет смысла. Другое дело, что если обработка этих открываемых файлов предстоит макросом — то можно в этот же макрос вписать диалог выбора этих файлов. Т.е. запустили макрос, в диалоге указали сразу все нужные файлы, получили готовый результат.

lenok Пользователь Сообщений: 39 Регистрация: 23.05.2013

Есть огромный отчет. после обработки макросом, надо, чтобы он брал имя файла из определенной ячейки и открывал фаил с таким именем. информации много, и такой отчет обрабатывается каждый месяц. примерное кол-во файлов на один отчет больше 1000, поэтому, сами понимаете, что открывать каждый, это рутина. таких отчетов за один месяц 30 штук. соответственно, около 30000 существующих файлов…вот как-то так все глобально…… просто открыть, с этим мы разобрались….. но некоторые файлы находятся в поддиректориях, и постоянно происходят какие-то перемещения в этой директории…

Hugo Пользователь Сообщений: 23249 Регистрация: 22.12.2012

#16 03.06.2013 11:32:43 В теме http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=25457 есть файл http://www.planetaexcel.ru/bitrix/components/bitrix/forum.interface/show_file.php?fid=40202&action=download Там есть такой код: Код     For Each aFolder In fso.GetFolder(ThisWorkbook.Path).Files              For Each aFile In aFolder.Files                      If fso.GetExtensionName(aFile.Name) Like "xls*" Then                              Set wkb = Workbooks.Open(aFile.Path)                 Set wks = wkb.Worksheets(1)                 With wks и т.д. Думаю, можно использовать.

lenok Пользователь Сообщений: 39 Регистрация: 23.05.2013	что-то я не могу разобраться совсем

anvg Пользователь Сообщений: 11878 Регистрация: 22.12.2012 Excel 2016, 365	Пробуйте, первый запуск будет долгим. Далее быстрее. Если есть подозрение, что файлы в папке и подпапках изменили положение или имя, то нажать «Обновить». Путь к начальной папке задаётся константой baseFolder в методе InitializeFindю Успехов.

lenok Пользователь Сообщений: 39 Регистрация: 23.05.2013	#19 04.06.2013 07:29:04 Код     Const baseFolder = "d:project" я так понимаю, здесь надо прописать адрес самой папки, это понятно… а имя файла он где будет брать???

anvg Пользователь Сообщений: 11878 Регистрация: 22.12.2012 Excel 2016, 365	#20 04.06.2013 07:50:49 Цитата а имя файла он где будет брать??? Из активной ячейки (в ней только имя, без расширения) Изменено: anvg — 04.06.2013 07:52:42

lenok Пользователь Сообщений: 39 Регистрация: 23.05.2013

#21 04.06.2013 08:07:46 все, поняла….. все работает…спасибо большое….    и еще один вопрос, если можно….: как это все сделать так, чтобы он был без этих кнопочек, а в таком виде, чтобы автоматически включался??? до этого было прописано так, но он только с одной папки так открывает…. Заранее огромное спасибо вам!!!!!!!!     Код Sub ARM()     Dim f As String, folder As String, file_name As String     'Папка для поиска     folder = "C:Documents and SettingsmaksРабочий столДокументы"     'Ячейка с именем файла     file_name = LCase(Range("D1")) & ".xls"     f = Dir(folder)     While Not Len(f) = 0         If LCase(f) = file_name Then             Workbooks.Open folder & f            Application.Run "ARM.XLS!ARM6"             Exit Sub         End If         f = Dir()     Wend     Application.Run "ARM.XLS!ARM4" End Sub Изменено: lenok — 04.06.2013 23:58:03

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.

#22 04.06.2013 08:24:36 А на кой тут цикл? Если имя файла известно, зачем перебирать все файлы? Код Sub ARM()     Dim folder As String, file_name As String     'Папка для поиска     folder = "C:Documents and SettingsmaksРабочий столДокументы"     'Ячейка с именем файла     file_name = LCase(Range("D1")) & ".xls"     If Len(Dir(folder & file_name)) Then         Workbooks.Open folder & file_name         Application.Run "ARM.XLS!ARM6"         Exit Sub     End If     Application.Run "ARM.XLS!ARM4" End Sub Я сам — дурнее всякого примера! …

lenok Пользователь Сообщений: 39 Регистрация: 23.05.2013	он не открывает тогда файл в поддиректории

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	Ага. А с циклом, следовательно, открывает? Я сам — дурнее всякого примера! …

lenok Пользователь Сообщений: 39 Регистрация: 23.05.2013	неа…  тоже не открывает….   а надо, чтобы открывал… там мне уже без разницы, есть цикл или нет… надо, чтобы он поддиректории просматривал

anvg Пользователь Сообщений: 11878 Регистрация: 22.12.2012 Excel 2016, 365	#26 04.06.2013 09:43:56 Скрытый текст

lenok Пользователь Сообщений: 39 Регистрация: 23.05.2013

Sandero Пользователь Сообщений: 14 Регистрация: 27.02.2014	#28 18.06.2019 13:20:28 Цитата Hugo написал: Я чего-то не понимаю?Если есть имя файла — то зачем искать? Взяли и открыли. Если ошибка — обработали.А искать может быть долго — если например файлов тысячи. Да и код с таким поиском больно длинный  — хватает ведь 3-х строк Добрый день! Попробовал ваш вариант, работает. Я правда добавил ещё запуск другого макроса по созданию файла с этим именем если его нет (т.е. если не выполнено первое условие) Эксель при отсутствии файла выдаёт своё собственное сообщение По нажатии «оК» появляется уже месседж из макроса. М.б. это связано с версией экселя, у меня 2016, а тут код вроде для 2003 изначально, или это не имеет значения. Можно ли убрать сообщение самого экселя? Заранее благодарен!! Код Sub SearhFiles() 'Макрос поиска файла с именем и автоматическое его открытие при наличии On Error GoTo err_: Workbooks.Open "\Server777S" & Range("F2") & ".xls": Exit Sub err_:     MsgBox "Нет такого файла!" Application.Run "DOC.xlsm!Upload" 'Запуск макроса по созданию файла с именем End Sub

Поиск документа Excel по содержимому текста.

​Смотрите также​​ Excel-файл, то там​ ​ условии, что Excel​​Юрий М​​ макросы или дополнения,​​ If searchdepth% =​ coll.Count ‘ перебираем​ в которых имеется​
​ сентября — table_export_06KAsep.xls​
​: Я на планете​ ​ — (D5) вписано​
​ поиска настроен, жмем​«Искать»​ регистра.​ внутри слова. Например,​ разберемся, как он​ мы работали. Ищем​Рассмотрим,​ ячейки есть, но​ корректно определит разделитель,​
​: Я так понимаю,​ или нужно самому​ 0 Then searchdepth%​ все элементы коллекции,​ различные статьи и​Реально Буду рад​ дал древний файл​ слово.​ на кнопку​вы переведете в​
​К тому же, в​​ релевантным запросу в​ работает, и как​
​ среди них. Если​
​как найти документ​ в ТЕКСТОВОМ (csv)​ макрос укажет на​ что тему можно​
​ писать макрос?​ = 999 Set​ содержащей пути к​ основной файл, в​ любой помощи.​ кажется от Павла,​В одной папке​«OK»​ позицию​ выдачу может попасть​ этом случае будет​ им пользоваться.​ документ давно не​Excel по содержимому текста​
​ — их быть​ ячейку, как будто​ удалить?​Guest​ coll = FilenamesCollection(FolderPath$,​ файлам НомерФайла =​
​ которм выполняется поиск.​
​Иначе искать в​ ​ который делает чуть​ с Главным файлом​​.​
​«В книге»​ не только содержимое​ считаться слово «Направо».​Скачать последнюю версию​ открывали и его​,​ не может.​ он открывал Excel-файл.​
​abricos29​ ​: Комбинированный способ:​
​ searchmask$, searchdepth%) Application.ScreenUpdating​ i ПутьКФайлу =​ ​В основном файле​
​ ручную очень долго,​ больше — там​ — лежит несколько​Бывают случаи, когда нужно​, то поиск будет​ конкретной ячейки, но​ Если вы зададите​ Excel​
​ нет в списке,​таблицы​Скорее всего, Вы​Возможно, я не​: Я подобного не​Перебор файлов в​ = False For​ coll(i) ИмяФайла =​ вводится запрос для​ по причине того​ просто нужно лишнее​ подпапок с документами​​ произвести поиск не​ производиться по всем​ и адрес элемента,​ в поисковике цифру​Поисковая функция в программе​ то нажимаем на​, например, когда не​ говорите про csv-файл,​ прав, но мне​ нашёл на форуме,​ ​ папке — избитая​
​ i = 1​ Dir(ПутьКФайлу) ДатаСоздания =​ поиска по остальным​ что таких таблиц​ повыкидывать, и вывод​ экселя.​ по конкретному словосочетанию,​ листам открытого файла.​ на который она​ «1», то в​ Microsoft Excel предлагает​ кнопку «Компьютер».​ помним название файла,​ открытый в Excel​ так показалось.​ очень лаконичный и​ тема. Можно найти​ To coll.Count filenumber​ FileDateTime(ПутьКФайлу) РазмерФайла =​
​ файлам, и выдается​ на каждый регион​ подкорректировать.​Пытался сам написать​ а найти ячейки,​В параметре​
​ ссылается. Например, в​ ответ попадут ячейки,​ возможность найти нужные​Затем, нажимаем на кнопку​ документа, папки, т.д.​ )​AB1​ удобный макрос! Думаю​ кучу готовых кодов.​ = i pathtothefile​ FileLen(ПутьКФайлу) РазмерФайла =​ информация следующего характера​ (то есть их​А этот код​ макрос, но что-то​
​ в которых находятся​«Просматривать»​ ячейке E2 содержится​ которые содержат, например,​ текстовые или числовые​ «Обзор». В появившемся​Первый вариант.​AB1​: Добавил второй цикл:​ много кому может​В коде только​ = coll(i) Filename​ FileOrFolderSize(РазмерФайла) Workbooks.Open Filename:=ПутьКФайлу​В каком файле​ много)​ явно рождён был​ не работает -​

excel-office.ru

Поиск в программе Microsoft Excel

​ поисковые слова в​можно изменить направление​ формула, которая представляет​ число «516».​ значения через окно​ диалоговом окне в​Поиск документа​: Разумеется, мы же​Sub ПОИСК() Dim​ понадобиться, имхо.​ поменять исполняемую часть​ = Dir(pathtothefile) creationdate​ Workbooks(ПутьКФайлу).Activate Worksheets(Sheets(1)).Activate With​ найдено совпадение, 2-3​Basil​ не в Экселе​ выдает ошибку.​

​ любом порядке, даже,​ поиска. По умолчанию,​

Поисковая функция в Excel

​ собой сумму ячеек​Для того, чтобы перейти​ «Найти и заменить».​ строке поиска пишем​Excel по названию папки.​ рассуждаем не абстрактно,​ folder_$, file_$, s$​AB1​Guest​

Способ 1: простой поиск

​ = FileDateTime(pathtothefile) filesize​ ThisWorkbook.Worksheets(Sheets(1)) ‘ работаем​ предложения в котором​:​ — потому и​Подскажите, как макросом​ если их разделяют​ как уже говорилось​ A4 и C3.​

1. ​ к следующему результату,​​ Кроме того, в​​ поисковую фразу или​​Нажимаем кнопку «Пуск»,​​ а в рамках​ Dim rw& Dim​: Спасибо за полезный​​: Sub test() Dim​​ = FileLen(pathtothefile) filesize​ 1 с листом​​ найдено совпадение.​​Не по теме:​ не работает. И​ осуществить поиск этого​ другие слова и​​ выше, поиск ведется​​ Эта сумма равна​

   

2. ​ опять нажмите кнопку​ приложении имеется возможность​ слово. Мы написали​ расположенную в левом​ функционала данного макроса​ sh ‘————————— rw​​ макрос!​​ Folder As String​​ = FileOrFolderSize(filesize) Workbooks.Open​​ ПоследняяСтрокаБД = .Range(«a»​Заранее благодарен!​​Доброго дня.​​ в Экселе так​ слова в документах​ символы. Тогда данные​ по порядку построчно.​ 10, и именно​​«Найти далее»​​ расширенного поиска данных.​​ «визитка». Появится список​​ нижнем углу монитора.​

   

3. ​abricos29​​ = 4 With​​abricos29​ Dim wb As​ Filename:=pathtothefile Workbooks(pathtothefile).Activate Worksheets(Sheets(1)).Activate​ & .Rows.Count).End(xlUp).Row ‘​sku144​

   ​Хочу сразу сказать​ по всем файлам​ экселя и вывести​ слова нужно выделить​ Переставив переключатель в​ это число отображается​.​Простой поиск данных в​ файлов Excel, имеющим​ В появившемся списке​: Еще этот макрос​

   ​ ThisWorkbook.Sheets(1) .UsedRange.Offset(3, 0).EntireRow.Delete​: Пожалуйста, один минус​ String Dim objWb​ With ThisWorkbook.Worksheets(Sheets(1)) lastline​ вычисляем номер последней​: Как вариант для​ — я вам​ поиск не пойдёт,​ в столбец G5:G16​ с обеих сторон​ позицию​ в ячейке E2.​Так можно продолжать до​ программе Excel позволяет​ в тексте слово​ нажимаем на кнопку​ ищет только в​ s = .Cells(2,​ всё же есть,​ As Workbook Dim​

   ​ = Cells(Rows.Count, 1).End(xlUp).Row​ строки Dim Диапазон_Ячеек_для_Поиска​ начала получить список​​ помочь не смогу.​​ если ранее вручную​

   

   ​ — названия тех​ знаком «*». Теперь​«По столбцам»​ Но, если мы​ тех, пор, пока​

4. ​ найти все ячейки,​ «визитка».​ «Этот компьютер» (в​ папке, надо попробовать​​ 3).Value End With​​ я его попытался​ workWb As Workbook​ Dim rangeofcells As​ As Range, РезультатПоиска​ файлов где нужен​Понимаете, вас, как​ он так не​ файлов экселя, где​ в поисковой выдаче​, можно задать порядок​ зададим в поиске​ отображение результатов не​ в которых содержится​Внимание!​ Word 2013) или​ реализовать чтоб и​ If s =​ посадить на кнопку​ Dim i As​ Range, searchresults As​ As Range, АдресПервойНайденнойЯчейки​ поиск. Предположим, все​ я понял, интересуют​ остался настроенным, причём​

Способ 2: поиск по указанному интервалу ячеек

​ это слово встречается​ будут отображены все​ формирования результатов выдачи,​ цифру «4», то​ начнется по новому​ введенный в поисковое​Внизу этого окна​ «Мой компьютер» (в​ в подпапках искал.​ «» Then MsgBox​ и вызываю в​ Integer Set workWb​ Range, addressfirstcell As​ As String Set​

1. ​ файлы в одной​ продажи за период,​ синтаксис совсем другой.​

   

2. ​ хотя бы один​ ячейки, в которых​​ начиная с первого​​ среди результатов выдачи​ кругу.​ окно набор символов​​ мы выбрали место​​ Word 2007).​ Будет совсем здорово.​ «Не заполненно поле​ качестве шаблона, естественно​ = ActiveWorkbook ‘Запоминаем​ String Set rangeofcells​ Диапазон_Ячеек_для_Поиска = .Range(.Cells(ПерваяСтрокаБД,​ папке с нашим​

Способ 3: Расширенный поиск

​ а работаете вы​Т.е. этот код​ раз ?​ находятся данные слова​ столбца.​ будет все та​В случае, если при​ (буквы, цифры, слова,​ поиска «Все файлы​

​Откроется окно, в​Юрий М​ поиска!» Exit Sub​ шаблон лежит теперь​ активную книгу ‘Показываем​ = Sheets(1).Cells(lastline, 10)​ 1), .Cells(ПоследняяСтрокаБД, 2))​ запущенным. Тогда просто​ почему-то с отчетами​ проще переписать, чем​Kuzmich​ в любом порядке.​В графе​ же ячейка E2.​ запуске поисковой процедуры​ и т.д.) без​ Excel». Здесь мы​ правом верхнем углу​: Про .​ End If With​ в одном месте,​ диалог выбора папки​ Set searchresults =​ Set Диапазон_Ячеек_для_Поиска =​ определяем путь до​ о продажах за​ исправить.​: Может это поможет​Как только настройки поиска​«Область поиска»​

​ Как такое могло​ вы нажмете на​ учета регистра.​ можем выбрать другой​ которого, есть строка​abricos29​

1. ​ Application With .FileDialog(msoFileDialogFolderPicker)​​ а файлы могут​​ With Application.FileDialog(msoFileDialogFolderPicker) .Title​ rangeofcells.Find(textsarch, , xlFormulas,​​ Диапазон_Ячеек_для_Поиска.EntireRow Set РезультатПоиска​​ нашего файла, затем​

   

2. ​ отдельный день.​RAN​http://www.planetaexcel.ru/techniques/12/45/​ установлены, следует нажать​определяется, среди каких​ получиться? Просто в​ кнопку​Находясь во вкладке​ вид файла. Например,​

   

   ​ поиска. В этой​​: Юрий спасибо за​​ If .Show =​​ где угодно. И​​ = «Выберите папку,​ xlPart) If Not​ = Диапазон_Ячеек_для_Поиска.Find(ТекстДляПоиска, LookAt:=xlPart)​ по этому пути​Не проще ли​: Подумаешь! Word тоже​http://excelvba.ru/code/FilenamesCollection​ на кнопку​ конкретно элементов производится​ ячейке E2 в​«Найти все»​«Главная»​ нам нужно найти​ строке пишем поисковую​ ссылку!​ False Then Exit​ гиперссылка не работает.​ файлы в которой​ searchresults Is Nothing​​ ‘ начинаем поиск​​ в массив собираем​ получить отчет о​ не без VBA!​SergVrn​«Найти всё»​ поиск. По умолчанию,​ качестве формулы содержится​, все результаты выдачи​, кликаем по кнопке​ текст в Excel’евском​

   

   ​ фразу, слова. Мы​abricos29​ Sub folder_ =​ Кто-нибудь может подсказать​​ нужно обработать» .ButtonName​​ Then addressfirstcell =​ If Not РезультатПоиска​​ все остальные файлы​​ продажах сразу за​adekarimov​: Kuzmich, зачем мне​

   

   ​или​​ это формулы, то​​ адрес на ячейку​ будут представлены в​«Найти и выделить»​ файле со словами​ написали «посчитать стаж».​: А вот с​ .SelectedItems(1) End With​​ какие изменения нужно​​ = «Выбрать» .AllowMultiSelect​ searchresults.address linenumber =​ Is Nothing Then​ где нужен будет​

   

   ​ интересующий период? Чтобы​​: Доброго времени суток.​​ список файлов в​«Найти далее»​ есть те данные,​ A4, который как​ виде списка в​, которая расположена на​ визитка. Тогда мы​ Во время ввода​ поиском в подпапках​ folder_ = folder_​ внести в строку​ = False If​ searchresults.Row Range(«a» &​ ‘ если нашли​ поиск. Перебираем элементы​ была одна таблица,​Работаю в компании,​ папках, если я​, чтобы перейти к​ которые при клике​ раз включает в​ нижней части поискового​ ленте в блоке​ выберем функцию «Все​ поисковой фразы сразу​​ не осилил и​​ & IIf(Right(folder_, 1)​​ с добавлением гиперссылки,​​ .Show Then Folder​ Rows.Count).End(xlUp).Offset(1).Resize(, 5).Value =​ хоть одну подходящую​ массива в цикле​ а данные​​ которая занимается ежедневными​​ задавал вопрос -​

   

   ​ поисковой выдаче.​ по ячейке отображаются​ себя искомую цифру​​ окна. В этом​​ инструментов​

   

   ​ файлы». Появится список​ идет поиск.​ после прочтения статьи.​ = .PathSeparator, «»,​ чтобы она выдавала​ = .SelectedItems(1) Else​ _ Array(filenumber, Filename,​ ячейку АдресПервойНайденнойЯчейки =​ — каждый элемент​одной​ продажами. В процессе​ по поиску одного​Как видим, программа Excel​

   

   ​ в строке формул.​ 4.​ списке находятся информация​«Редактирование»​ всех разных файлов​​Получился такой результат.​​ Кто-нибудь может подсказать​

   

   ​ .PathSeparator) .ScreenUpdating =​ верный путь до​ Exit Sub End​ pathtothefile, creationdate, filesize,​ РезультатПоиска.Address ‘ запоминаем​ открываем, определяем количество​

   

   ​таблицы в любом​ создания отчета по​ СЛОВА.​​ представляет собой довольно​​ Это может быть​

   

   ​Но, как отсечь такие,​ о содержимом ячеек​. В появившемся меню​ со словом «визитка»​Нажимаем на нужный документ,​ как интегрировать код​ False End With​ файла, ибо сейчас​ With ‘Начинаем читать​ searchresults) ActiveSheet.Hyperlinks.Add Range(«b»​ Адрес Первой Найденной​ вкладок и запускаем​ случае легче обрабатывать​ продожам сталкиваюсь с​buchlotnik​ простой, но вместе​ слово, число или​ и другие заведомо​

   

3. ​ с данными, удовлетворяющими​ выбираем пункт​ — и текст​​ он откроется.​​ из статьи по​​ file_ = Dir(folder_​​ если макрос и​ файлы из папки​

​ & Rows.Count).End(xlUp), pathtothefile,​ Ячейки НомерСтроки =​ вложенный цикл с​ (если это вообще​ необходимостью поиска Торгового​: не-а, в папках​ с тем очень​ ссылка на ячейку.​ неприемлемые результаты выдачи​ запросу поиска, указан​«Найти…»​ в Word, и​Внимание!​ ссылке выше в​ & «*.xls*») Do​ файл находятся в​ wb = Dir(Folder​ «», _ «Открыть​

​ РезультатПоиска.Row ‘ получаем​

lumpics.ru

Поиск текста в нескольких файлах Excel

​ перебором вкладок и​​ понадобится).​
​ представителя (ТП) и​и подпапках​ функциональный набор инструментов​
​ При этом, программа,​ поиска? Именно для​ их адрес расположения,​
​. Вместо этих действий​ файл Excel, и​Чем точнее укажем​
​ обсуждаемый макрос. Вероятно​ While file_ <>​
​ разных местах гиперссылка​

​ которой найдена подходящая​​ нужного. Если найдено,​

planetaexcel.ru

Поиск слова — по нескольким файлам экселя (Макросы/Sub)

​ подход, когда одному​​ продажам, который могут​
​ список тех файлов​ чтобы произвести простейший​
​ только ссылку, а​ расширенный поиск Excel.​ и книга, к​ на клавиатуре сочетание​
​ «визитка», т.д.​ тем быстрее произойдет​ ограничение или предупреждение,​ file_ <> ThisWorkbook.Name​ до места расположения​
​ > 0 i​ Set searchresults =​ ячейка Range(«a» &​ копируем найденное на​
​ дню соответствует один​ повторяться из-зо дня​ (полных путей к​ писк, достаточно вызвать​ не результат. Об​После открытия окна​ которым они относятся.​ клавиш​Как найти файл​ поиск документа.​

​ иначе нечаянно выделил​​ Then Workbooks.Open folder_​
​ макросаИмя файла.xls​
​ = i +​

​ rangeofcells.FindNext(searchresults) If Not​​ Rows.Count).End(xlUp).Offset(1).Resize(, 5).Value =​ главный документ.​ лист excel или,​ в день или​ ним), которые и​ поисковое окно, ввести​

​ этом эффекте велась​​«Найти и заменить»​​ Для того, чтобы​​Ctrl+F​ определенного типа, смотрите​Например, мы указали​ папку с 1000​ & file_ With​With ThisWorkbook.Sheets(1) .Cells(rw,​ 1 wb =​ searchresults Is Nothing​ _ Array(НомерФайла, ИмяФайла,​scofield-92​ еще хуже, одна​ же 1 раз​ нужно проверить -​

​ в него запрос,​​ речь выше. Для​любым вышеописанным способом,​ перейти к любому​

​.​​ в статье «Поиск​​ такой путь –​ ​ файлов и завис.​​ ActiveWorkbook For Each​​ 1) = ActiveWorkbook.Name​​ Folder & Application.PathSeparator​ Then linenumber =​ ПутьКФайлу, ДатаСоздания, РазмерФайла,​: Как выполнить поиск​ книга excel, и​ в месяц (​ ваша конструкция для​ и нажать на​ того, чтобы производить​ жмем на кнопку​ из результатов выдачи,​

​После того, как вы​​ документа Word по​
​ «Этот компьютер» -​Файлов порядка 100 штук​ sh In .Sheets​ .Hyperlinks.Add Anchor:=.Cells(rw, 1),​ & wb Set​ searchresults.Row Range(«a» &​ РезультатПоиска) ‘ если​ файлов понял, но​
​ при этом (!)​ по разным причинам,​
​ этого не годится​​ кнопку. Но, в​ поиск именно по​«Параметры»​ достаточно просто кликнуть​
​ перешли по соответствующим​ тексту» тут. Принцип​ «Документы» (мы помним,​

​ (содержание порядка 30000​​ Set c =​ Address:=ActiveWorkbook.Name, SubAddress:=c.Address End​ objWb = Workbooks.Open(wb)​ Rows.Count).End(xlUp).Offset(1).Resize(, 5).Value =​ нужна гиперссылка на​ как в этих​ данные из этих​ девайс неработал и​
​ (именно этот кусок​ то же время,​ результатам, по тем​.​ по нему левой​ пунктам на ленте,​ один.​ что документ находится​ строк в каждом)​ sh.Cells.Find(What:=s, After:=sh.Cells(1, 1),​ With​ здесь твой код​
​ _ Array(filenumberГ*, Filename,​ файл во втором​ файлпх искать нужный​

​ книг надо еще​​ тд). Хотелось бы​ кода не работает),​

excelworld.ru

Поиск значения в Таблицах в разных файлах Excel

​ существует возможность настройки​​ данным, которые отображаются​
​В окне появляется целый​ кнопкой мыши. После​ или нажали комбинацию​В Excel можно​ в папке «Документы»)​ нужен поиск по​ LookIn:=xlValues, LookAt:=xlPart) If​abricos29​ objWb.Close False wb​ pathtothefile, creationdate, filesize,​ столбце ActiveSheet.Hyperlinks.Add Range(«b»​ текст не могу​ и обрабатывать, мне​ автоматизировать поиск ТП​ а эти -​ индивидуального поиска с​ в ячейке, а​ ряд дополнительных инструментов​
​ этого курсор перейдет​
​ «горячих клавиш», откроется​ искать данные функциями,​ – «Excel» (в​
​ всем этим таблицам,​ Not c Is​: А вот, получилось,​ = Dir ‘читаем​ searchresults) ActiveSheet.Hyperlinks.Add Range(«b»​ & Rows.Count).End(xlUp), ПутьКФайлу,​​ разобрать(​​ представляется в корне​​ и его данные.​​ работают; или нужно​​ большим количеством различных​​ не в строке​ для управления поиском.​​ на ту ячейку​​ окно​ можно искать, выбирать,​ папке «Документы» есть​​ хотя бы с​​ Nothing Then With​ кому интересно, нужно​ следующий файл Wend​ & Rows.Count).End(xlUp), pathtothefile,​ «», _ «Открыть​sku144​ неверным.​Суть задачи​ до последнего бита​ параметров и дополнительных​​ формул, нужно переставить​​ По умолчанию все​​ Excel, по записи​​«Найти и заменить»​
​ переносить данные в​ две папки «Word»​ указанием файла, но​ ThisWorkbook.Sheets(1) .Cells(rw, 1)​ исправить кусок кода​ End Sub​ «», _ «Открыть​
​ файл» & vbNewLine​: Вот например http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=1&TID=45516​
​kuklp​table_export_03KAsep.xls за 3​
​ разжёвывать?​ настроек.​ переключатель из позиции​ эти инструменты находятся​ которой пользователь сделал​во вкладке​ другое место, в​

​ и «Excel». Мы​​ в идеале с​

​ = folder_ &​

​ из макроса выше​
​abricos29​ файл» & vbNewLine​ & ИмяФайла Do​
​ там можно посмотреть​:​ сентября + table_export_04KAsep.xls​SergVrn​Автор: Максим Тютюшев​«Формулы»​ в состоянии, как​
​ щелчок.​«Найти»​ другую таблицу, бланк,​ помним, что документ,​ выводом данных во​ ActiveWorkbook.Name .Hyperlinks.Add Anchor:=.Cells(rw,​​ на этот, после​​: Всем привет, пытался​ & Filename End​ ‘ ищем следующую​ примеры​
​adekarimov​ за 4 сентября​: buchlotnik, приведенные примеры​olegh​в позицию​ при обычном поиске,​Если у вас довольно​. Она нам и​ т.д. формулами. Какими​ который мы ищем,​ всплывающем окне и​ 1), Address:=folder_ &​

​ этого гиперссылка работает​​ реализовать поиск одного​​ If Loop While​​ ячейку Set РезультатПоиска​scofield-92​, если нельзя средствами​ну и за​ — не ищут​: Добрый день!​

​«Значения»​ но при необходимости​ масштабная таблица, то​ нужна. В поле​ способами можно искать​ находится в конкретной​ т.д.​ ActiveWorkbook.Name, SubAddress:=c.Address End​ независимо от нахождения​ значения сразу в​

CyberForum.ru

Поиск значений в нескольких файлах! (Формулы/Formulas)

​ searchresults.address <> addressfirstcell​​ = Диапазон_Ячеек_для_Поиска.FindNext(РезультатПоиска) ‘​: Private Sub CommandButton1_Click()​ Excel сделать, то​ 5 сентября table_export_05KAsep.xls,​ заданного слова.​Не подскажите есть​. Кроме того, существует​ можно выполнить корректировку.​ в таком случае​«Найти»​
​ данные в Excel,​
​ папке «Excel»).​ctrl+f прошу не​ With rw =​ файлов:​ нескольких файлах с​

​ End If End​​ АдресПервойНайденнойЯчейки End If​

excelworld.ru

Поиск в файлах excel по содержимому

​ ТекстДляПоиска = «*Антон*»​​ можно попробовать сделать​
​ а при создании​buchlotnik​
​ ли такая функция​ возможность поиска по​По умолчанию, функции​ не всегда удобно​вводим слово, символы,​
​ смотрите в статье​Если документ находится​ предлагать. (весь файл​ rw + 1​With ThisWorkbook.Sheets(1) .Cells(rw,​
​ выводом результатов на​ With Range(«a» &​ ‘ отключение режима​ [c1] = «C:UsersАдминистраторDesktop»​
​ с помощью VBA​

​ такой же таблицы​​: ваши слова? вам​ в Excel?​ примечаниям. В этом​«Учитывать регистр»​ производить поиск по​ или выражения, по​ «Поиск в Excel»​ на флэшке, то​ поисковит обходит, а​ Exit For End​ 1) = folder_​ Лист в виде​ Rows.Count).End(xlUp).Offset(1).Resize(, 5).Value =​ пропуска ошибок End​ ‘ Ищем файлы​ (другими словами -​ на 6 сентября​подсказали​Например у меня​ случае, переключатель переставляем​и​ всему листу, ведь​ которым собираемся производить​ и в перечне​

​ указываем (выделяем) флэшку.​​ мне нужно искать​ If Next .Close​ & ActiveWorkbook.Name .Hyperlinks.Add​ гиперссылок. Наткнулся в​ _ Array(filenumber, Filename,​ With Range(«a» &​

​ в заданной папке​​ макросы).​ «​половину​

​ есть 20 файлов​​ в позицию​«Ячейки целиком»​ в поисковой выдаче​ поиск. Жмем на​ статей по этой​ Сначала, естественно, вставим​ допустим в одном​ False End With​ Anchor:=.Cells(rw, 1), Address:=folder_​ сети на такое​ pathtothefile, creationdate, filesize,​ Rows.Count).End(xlUp).Offset(1).Resize(, 5).Value =​ по заданной маске,​Как-то так. Все​Total MTD​решения — по​ Excel,​«Примечания»​отключены, но, если​ может оказаться огромное​ кнопку​ теме, расположенном в​ флэшку в ноутбук.​ столбце, что сокраило​ End If file_​ & ActiveWorkbook.Name, SubAddress:=c.Address​ решение, оно ищет​ searchresults, linenumber) DoEvents​ _ Array(НомерФайла, ИмяФайла,​ ‘ и выводим​ файлы д.б. в​» на ТП-​нескольким файлам​мне нужно быстро​.​ мы поставим галочки​ количество результатов, которые​«Найти далее»​ конце статьи.​ : )​ бы время запроса)​ = Dir Loop​ End With​ и находит корректно,​ ActiveWorkbook.Close False Next​ ПутьКФайлу, ДатаСоздания, РазмерФайла,​ на лист список​ одной папке. Кнопка​МАУСЫМБАЕВА ОЛЬГА​, вам же подавай​ найти в каком​Ещё более точно поиск​ около соответствующих пунктов,​ в конкретном случае​, или на кнопку​Поработали — пора​Второй вариант.​Пробовал прописывать в​ file_ = Dir(folder_​AB1​ но при переходе​ On Error GoTo​ РезультатПоиска, НомерСтроки) DoEvents​ их параметров. ‘​ Свод собирает данные​суммируется «​ либо всё готовое,​ файле​ можно задать, нажав​ то в таком​ не нужны. Существует​«Найти всё»​ отдохнуть. )) А​Поиск книги​ екселе функцией поиска,​ & «*.csv») Do​: Работает, спасибо!​ по гиперссылкам почти​ 0 Range(«a:e»).EntireColumn.AutoFit End​ ‘ временно передаём​ Просматриваются папки с​ со всех файлов,​Total PC​ либо вы начинаете​находится текст: «Отчет​ на кнопку​ случае, при формировании​ способ ограничить поисковое​.​ если серьёзно, то,​Excel по тексту в​ на 20-ти файлах​ While file_ <>​AB1​ на всё выдаёт​ SubПоправил, но как​ управление ОС ActiveWorkbook.Close​ заданной глубиной вложения.​ кнопка Итоги суммирует​» и предыдущий день​ в не сильно​ №3″.​«Формат»​ результата будет учитываться​ пространство только определенным​При нажатии на кнопку​ в Excel есть​ ней​ работает, если больше,​ «» DoEvents If​: Подскажите, пожалуйста, как​

​ ошибку «не удаётся​​ определить диапозон в​

​ False Next On​​ Dim coll As​ уникальные на другой​ «​ вежливой манере критиковать​Спасибо.​
​.​ введенный регистр, и​ диапазоном ячеек.​«Найти далее»​ много возможностей, кроме​.​ то сильно долго​ file_ <> ThisWorkbook.Name​ добавить в макрос​ открыть указанный файл»!​ котором производится поиск,​ Error GoTo 0​ Collection, ПутьКПапке$, МаскаПоиска$,​ лист. Можно было​Total MTD​ помогающих (это касается​Guest​При этом открывается окно​ точное совпадение. Если​Выделяем область ячеек, в​мы перемещаемся к​ стандартных функций Excel,​Нам нужно найти​ соображает…​ Then Workbooks.Open folder_​ второе расширение для​ В итоге я​ и запись в​ Range(«a:e»).EntireColumn.AutoFit ‘ автоподбор​ ГлубинаПоиска% On Error​ все делать одним​» , но так​ не только этой​: Как вариант, стандартными​ формата ячеек. Тут​ вы введете слово​ которой хотим произвести​ первой же ячейке,​ которые можно применить​ книгу Excel, в​Говорят, что без​ & file_ With​ поиска (например, «*.csv»)?​ создал новый файл​ нашк главную книгу,​ ширины столбцов End​ Resume Next ПутьКПапке$​ махом, но лень​ как в table_export_05KAsep.xls​ темы). Не хотите​ средствами windows.​ можно установить формат​ с маленькой буквы,​ поиск.​ где содержатся введенные​ в своей работе.​ которой есть слово​ загрузки в БД​ ActiveWorkbook For Each​AndreTM​ с именем «1.xlsx»​ а не в​ SubПодскажите что не​ = [c1] ‘​zickland​ ТП-​ список файлов -​открываем папку с​ ячеек, которые будут​ то в поисковую​Набираем на клавиатуре комбинацию​ группы символов. Сама​ Например, как можно​ «январь». Пишем это​ не обойтись….Кто может​ sh In .Sheets​: Как вы собираетесь​ и вписал в​

​ открытую​​ так в этой​ берём из ячейки​: Здравствуйте! Нужно из​МАУСЫМБАЕВА ОЛЬГА​
​ не надо, разбирайтесь​ 20 документами, нажимаем​ участвовать в поиске.​ выдачу, ячейки содержащие​ клавиш​ ячейка становится активной.​ использовать шрифт для​ слово в строке​ рассказать как это​
​ Set c =​

CyberForum.ru

Поиск и замена в нескольких XLS файлах

​ написание этого слова​​Ctrl+F​
​Поиск и выдача результатов​ построения графика в​ поиска (смотрите первый​ и с чем​
​ sh.Cells.Find(What:=s, After:=sh.Cells(1, 1),​ «ячейку CSV» ?​

​ слово для поиска​​: Если вам нужен​ он не находит​ «*.*xl*» ‘ берём​ и выделить или​ поиска должна перейти​RAN​ параметры поиска, в​ по числовому формату,​ с большой буквы,​, после чего запуститься​ производится построчно. Сначала​ ячейке, т.д. Такой​ вариант, который мы​ едят???​ LookIn:=xlValues, LookAt:=xlPart) If​Сделайте из текстовых​ — Тест, вот​ поиск по всем​ данные, хотя они​ из ячейки c2​ как-то обозначить значения​ на поиск в​: Легко.​ них:​ по выравниванию, шрифту,​ как это было​ знакомое нам уже​ обрабатываются все ячейки​ способ мы рассмотрели​ рассмотрели выше).​Разбирался всегда со​ Not c Is​ файлов книги Excel​ почему то по​ ячейкам, используйте «Cells»​ там есть​

planetaexcel.ru

Поиск одного значения в нескольких файлах

​ ГлубинаПоиска% = 2​​ из нескольких файлов?​ таблице table_export_04KAsep.xls за​Макрсом поочередно открыть​В пункте «Слово​ границе, заливке и​ бы по умолчанию,​ окно​ первой строки. Если​ на примере создания​Получится такой результат.​ всем сам, теперь​ Nothing Then With​ — затем как​ ссылке на этот​ вместо «Диапазон_Ячеек_для_Поиска»​sku144​ ‘ берём из​ Объединение файлов для​ 4 сентября и​ все документы, в​ или фраза в​ защите, по одному​ уже не попадут.​«Найти и заменить»​ данные отвечающие условию​ простой игры. Смотрите​Третий вариант.​ жду помощи в​ ThisWorkbook.Sheets(1) .Cells(rw, 1)​ обычно…​ файл пройти получается,​Set РезультатПоиска =​: охх, кириллические переменные​

​ ячейки c3 If​​ дальнейшего поиска не​ тд пока не​ которых нужно выполнить​ документе»: Отчет №3​ из этих параметров,​ Кроме того, если​. Дальнейшие действия точно​

​ найдены не были,​​ статью «Игра в​Как найти нужный документ​ этом не легком​

​ = folder_ &​​AB1​ но опять же​ Cells.Find(ТекстДляПоиска, LookAt:=xlPart) ‘​scofield-92​ ГлубинаПоиска% = 0​ подходит так как​

​ найдет совпадения с​​ поиск, в каждом​В пункте «Поиск​

​ или комбинируя их​​ включена функция​ такие же, что​ программа начинает искать​ Excel».​ из открытого документа​ вопросе.​ ActiveWorkbook.Name .Hyperlinks.Add Anchor:=.Cells(rw,​: Я использовал «*.csv»​ с глюком, при​ начинаем поиск …​: Ну это бралось​ Then ГлубинаПоиска% =​ файлов может быть​ ФИО Торгового Представителя​ из этих документов,​ в»: выбираем(если вдруг​ вместе.​«Ячейки целиком»​ и при предыдущем​ во второй строке,​В документах Microsoft Excel,​Excel.​Сергей каханский​ 1), Address:=folder_ &​
​ вместо «*.xls*» -​ переходе в файл​ Set РезультатПоиска =​ с различный сайтов,​ 999 ‘ без​

​ очень много!​​ (ТП) и прибавит​ на каждом листе​ по каким то​Если вы хотите использовать​, то в выдачу​ способе. Единственное отличие​ и так далее,​ которые состоят из​
​В открытом документе​: эту задачу можно​ ActiveWorkbook.Name, SubAddress:=c.Address End​ все работает как​ искомое слово исчезает!​ Cells.FindNext(РезультатПоиска)а вот первая​

​ не мое воплощение))​​ ограничения по глубине​

​Пример:​​ его «​ провести поиск «этого​ причинам там стоит​ формат какой-то конкретной​

​ будут добавляться только​​ будет состоять в​ пока не отыщет​ большого количества полей,​
​ Excel переходим на​ реализовать с помощью​ With rw =​ надо, и ячейку​

​ Попытки понять чем​​ попавшаяся страница из​ я половину не​ ‘ считываем в​Из файла «список»​Total MTD​
​ слова».​ не текущая) папку​ ячейки, то в​

​ элементы, содержащие точное​​ том, что поиск​ удовлетворительный результат.​

​ часто требуется найти​​ закладку «Файл» (в​ макроса, который будет​ rw + 1​ определяет корректно​ другие файлы отличаются​ гугла как копировать​ понимаю как работает​ колекцию coll нужные​
​ нужно найти в​» к «​Если нашли -​

​ с 20 документами.​​ нижней части окна​
​ наименование. Например, если​ выполняется только в​Поисковые символы не обязательно​ определенные данные, наименование​ Excel 2013) или​ последовательно открывать каждый​ Exit For End​Хотя, мне достаточно​ от вновьсозданного не​ данные с книги​Private Sub CommandButton1_Click()​ имена файлов Set​ файлах «Для сопоставления​Total PC​ вывести имя файла​Это действительно простейший​ нажмите на кнопку​ вы зададите поисковый​ указанном интервале ячеек.​ должны быть самостоятельными​ строки, и т.д.​ нажимаем на кнопку​ файл, производить необходимые​ If Next .Close​ имени файла, в​ увенчались успехом.​ на книгу​ textsarch = «*антон*»​ coll = FilenamesCollection(ПутьКПапке$,​ 1, 2, 3″​».​Цитата​ вариант.​«Использовать формат этой ячейки…»​ запрос «Николаев», то​Как уже говорилось выше,​ элементами. Так, если​ Очень неудобно, когда​ «Office» в левом​ действия и закрывать​ False End With​ котором найден текст.​abricos29​http://sirexcel.ru/makrosi_vba/kak_s…igi_v_druguyu/​ [c1] = «C:Users»​ МаскаПоиска$, ГлубинаПоиска%) Application.ScreenUpdating​ одинаковые значения?​Во первых проблема​SergVrn, 01.12.2017 в​olegh​.​ ячейки, содержащие текст​ при обычном поиске​ в качестве запроса​ приходится просматривать огромное​ верхнем углу (в​ его. Только опишите​ End If file_​Юрий М​: Извиняюсь, затупил, файл​dimatel2013​ Dim coll As​ = False ‘​zickland​ создания такой функции​ 17:59, в сообщении​: да, спасибо​После этого, появляется инструмент​ «Николаев А. Д.»,​ в результаты выдачи​ будет задано выражение​ количество строк, чтобы​ Excel 2007).​ на примере одного​ = Dir Loop​: В .csv НЕТ​ с макросом и​: Добрый день!​

​ Collection, FolderPath$, searchmask$,​​ отключаем обновление экрана​: Еще файлы!​ поиска в разных​ № 1 ()​SergVrn​ в виде пипетки.​
​ в выдачу уже​ попадают абсолютно все​ «прав», то в​ найти нужное слово​

​В появившемся диалоговом​​ файла, что и​ Application.ScreenUpdating = True​ ячеек.​ файлы в которых​

​Нужно сделать замену​​ searchdepth% On Error​ ‘ выводим результаты​scofield-92​ таблицах как описал​ в столбец G5:G16​: Здравствуйте!​

​ С помощью него​​ добавлены не будут.​

​ ячейки, содержащие последовательный​​ выдаче будут представлены​ или выражение. Сэкономить​

​ окне нажимаем на​​ как должно быть​ Beep MsgBox «Готово!»​AB1​ ищем должны быть​ в нескольких .xls​ Resume Next FolderPath$​ (список файлов, и​: Добрый день.​ выше а также​Если не нашли,​Ищу ответ на​ можно выделить ту​По умолчанию, поиск производится​ набор поисковых символов​

planetaexcel.ru

Как произвести поиск по нескольким Excel файлам?

​ Microsoft Excel. Давайте​​ Excel, с которыми​ результаты поиска.​: Если Вы про​ файлы, то при​ Макрос работает отлично.​ варианты — готовые​ searchdepth% = 1​ = 1 To​Имеются файлы excel,,​Таблица за 6​Hugo​ ФАЙЛ.xls» в ячейку​После того, как формат​

​ если параметр​

В этой статье описаны синтаксис формулы и использование функций ПОИСК и ПОИСКБ в Microsoft Excel.

Описание

Функции ПОИСК И ПОИСКБ находят одну текстовую строку в другой и возвращают начальную позицию первой текстовой строки (считая от первого символа второй текстовой строки). Например, чтобы найти позицию буквы «n» в слове «printer», можно использовать следующую функцию:

=ПОИСК(«н»;»принтер»)

Эта функция возвращает 4, так как «н» является четвертым символом в слове «принтер».

Можно также находить слова в других словах. Например, функция

=ПОИСК(«base»;»database»)

возвращает 5, так как слово «base» начинается с пятого символа слова «database». Можно использовать функции ПОИСК и ПОИСКБ для определения положения символа или текстовой строки в другой текстовой строке, а затем вернуть текст с помощью функций ПСТР и ПСТРБ или заменить его с помощью функций ЗАМЕНИТЬ и ЗАМЕНИТЬБ. Эти функции показаны в примере 1 данной статьи.

Важно: 

• Эти функции могут быть доступны не на всех языках.

• Функция ПОИСКБ отсчитывает по два байта на каждый символ, только если языком по умолчанию является язык с поддержкой БДЦС. В противном случае функция ПОИСКБ работает так же, как функция ПОИСК, и отсчитывает по одному байту на каждый символ.

К языкам, поддерживающим БДЦС, относятся японский, китайский (упрощенное письмо), китайский (традиционное письмо) и корейский.

Синтаксис

ПОИСК(искомый_текст;просматриваемый_текст;[начальная_позиция])

ПОИСКБ(искомый_текст;просматриваемый_текст;[начальная_позиция])

Аргументы функций ПОИСК и ПОИСКБ описаны ниже.

• Искомый_текст    Обязательный. Текст, который требуется найти.

• Просматриваемый_текст    Обязательный. Текст, в котором нужно найти значение аргумента искомый_текст.

• Начальная_позиция    Необязательный. Номер знака в аргументе просматриваемый_текст, с которого следует начать поиск.

Замечание

• Функции ПОИСК и ПОИСКБ не учитывают регистр. Если требуется учитывать регистр, используйте функции НАЙТИ и НАЙТИБ.

• В аргументе искомый_текст можно использовать подстановочные знаки: вопросительный знак (?) и звездочку (*). Вопросительный знак соответствует любому знаку, звездочка — любой последовательности знаков. Если требуется найти вопросительный знак или звездочку, введите перед ним тильду (~).

• Если значение find_text не найдено, #VALUE! возвращается значение ошибки.

• Если аргумент начальная_позиция опущен, то он полагается равным 1.

• Если start_num больше нуля или больше, чем длина аргумента within_text, #VALUE! возвращается значение ошибки.

• Аргумент начальная_позиция можно использовать, чтобы пропустить определенное количество знаков. Допустим, что функцию ПОИСК нужно использовать для работы с текстовой строкой «МДС0093.МужскаяОдежда». Чтобы найти первое вхождение «М» в описательной части текстовой строки, задайте для аргумента начальная_позиция значение 8, чтобы поиск не выполнялся в той части текста, которая является серийным номером (в данном случае — «МДС0093»). Функция ПОИСК начинает поиск с восьмого символа, находит знак, указанный в аргументе искомый_текст, в следующей позиции, и возвращает число 9. Функция ПОИСК всегда возвращает номер знака, считая от начала просматриваемого текста, включая символы, которые пропускаются, если значение аргумента начальная_позиция больше 1.

Примеры

Скопируйте образец данных из следующей таблицы и вставьте их в ячейку A1 нового листа Excel. Чтобы отобразить результаты формул, выделите их и нажмите клавишу F2, а затем — клавишу ВВОД. При необходимости измените ширину столбцов, чтобы видеть все данные.

Данные
Выписки
Доход: маржа
маржа
Здесь «босс».
Формула	Описание	Результат
=ПОИСК(«и»;A2;6)	Позиция первого знака «и» в строке ячейки A2, начиная с шестого знака.	7
=ПОИСК(A4;A3)	Начальная позиция строки «маржа» (искомая строка в ячейке A4) в строке «Доход: маржа» (ячейка, в которой выполняется поиск — A3).	8
=ЗАМЕНИТЬ(A3;ПОИСК(A4;A3);6;»объем»)	Заменяет слово «маржа» словом «объем», определяя позицию слова «маржа» в ячейке A3 и заменяя этот знак и последующие пять знаков текстовой строкой «объем.»	Доход: объем
=ПСТР(A3;ПОИСК(» «;A3)+1,4)	Возвращает первые четыре знака, которые следуют за первым пробелом в строке «Доход: маржа» (ячейка A3).	марж
=ПОИСК(«»»»;A5)	Позиция первой двойной кавычки («) в ячейке A5.	5
=ПСТР(A5;ПОИСК(«»»»;A5)+1;ПОИСК(«»»»;A5;ПОИСК(«»»»;A5)+1)-ПОИСК(«»»»;A5)-1)	Возвращает из ячейки A5 только текст, заключенный в двойные кавычки.	босс

Как найти ячейки, связанные с внешними источниками в Excel

В этой статье вы узнаете, как найти внешние ссылки в Excel.

Найти внешние ссылки

В Excel можно использовать данные из другой книги (файла). В этом случае Excel создает внешнюю ссылку на эту книгу. Рассмотрим набор данных на рисунке ниже, который содержит внешние ссылки на другую книгу.

Как вы можете видеть выше, значение в B2 связано с рабочим листом с именем Внешний файл .xlsx (Лист1, ячейка B2). Ячейки B5, B7 и B8 также содержат похожие ссылки. Теперь посмотрите на этот файл и значение в ячейке B2.

Выше видно, что значение ячейки B2 в файле Внешний файл .xlsx 55, и это значение связано с исходным файлом. Когда вы связываете ячейку с другой книгой, значения обновляются в обеих книгах при каждом изменении связанной ячейки. Таким образом, вы можете столкнуться с проблемой, если файл, на который вы ссылаетесь, будет удален.

При открытии исходный файл предупреждает вас о том, что некоторые ячейки в этой книге связаны с несуществующим файлом. Чтобы решить эту проблему, вы можете найти все ячейки с внешними ссылками и заменить их каким-либо другим значением (или просто удалить их).

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

Поиск внешних ссылок с помощью функции поиска и замены

1. В Лента, перейти к Главная> Найти и выбрать> Заменить.

2. Во всплывающем окне (1) введите «* .xl *» для Найти то, что, (2) нажмите Найти все, и (3) нажмите CTRL + A на клавиатуре, чтобы выделить все найденные ячейки.

Связанные файлы должны быть в формате Excel (.xlsx, .xlsm, .xls), поэтому вы хотите найти ячейки, содержащие «.xl» в формуле (ссылка). Звездочки (*) перед и после «.xl» обозначают любой символ, поэтому поиск найдет любое из расширений файлов Excel.

3. В результате выбираются все ячейки, содержащие внешнюю ссылку (B2, B5, B7 и B8). Чтобы заменить их определенным значением, введите это значение в поле Заменить коробка и удар Заменить все. Если оставить поле пустым, удаляется содержимое всех связанных ячеек. Например, если ввести 55 в поле Заменить на, получится Ценности столбец на картинке ниже. В любом случае замененные ячейки больше не связаны с другой книгой.

Найдите внешние ссылки с помощью ссылок редактирования

Другой вариант — использовать функцию редактирования ссылок в Excel.

1. В Лента, перейти к Данные> Изменить ссылки.

2. В окне «Редактировать ссылки» вы можете увидеть все книги, связанные с текущим файлом. Чтобы удалить ссылку, вы можете выбрать внешний файл и нажать Разорвать ссылку. В результате все ссылки на этот файл удаляются, а ранее связанные ячейки будут содержать значения, которые они имели на момент разрыва.

Вы поможете развитию сайта, поделившись страницей с друзьями