Поиск файлов с помощью в excel - Word и Excel - помощь в работе с программами

Поиск документа 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-3Basil не в Экселе выдает ошибку.

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

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

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

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

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

к следующему результату, Кроме того, в поисковую фразу илиНажимаем кнопку «Пуск», а в рамках Dim rw& Dim: Спасибо за полезный: Sub test() Dim = FileLen(pathtothefile) filesize 1 с листом найдено совпадение.Не по теме: не работает. И осуществить поиск этого другие слова и выше, поиск ведется Эта сумма равна
опять нажмите кнопку приложении имеется возможность слово. Мы написали расположенную в левом функционала данного макроса sh ‘————————— rw макрос! Folder As String = FileOrFolderSize(filesize) Workbooks.Open ПоследняяСтрокаБД = .Range(«a»Заранее благодарен!Доброго дня. в Экселе так слова в документах символы. Тогда данные по порядку построчно. 10, и именно«Найти далее» расширенного поиска данных. «визитка». Появится список нижнем углу монитора.
abricos29 = 4 Withabricos29 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 Диапазон_Ячеек_для_Поиска начала получить список помочь не смогу. если ранее вручную

— названия тех знаком «*». Теперь«По столбцам» Но, если мы тех, пор, пока
найти все ячейки, «визитка». «Этот компьютер» (в папке, надо попробовать 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

файлы в одной продажи за период, синтаксис совсем другой.
хотя бы один ячейки, в которых начиная с первого среди результатов выдачи кругу. окно набор символов мы выбрали место 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

Application With .FileDialog(msoFileDialogFolderPicker) а файлы могут With Application.FileDialog(msoFileDialogFolderPicker) .Title rangeofcells.Find(textsarch, , xlFormulas, Диапазон_Ячеек_для_Поиска.EntireRow Set РезультатПоиска нашего файла, затем
отдельный день.RANhttp://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 простой, но вместе слово, число или и другие заведомо
с данными, удовлетворяющими выбираем пункт — и текст он откроется. из статьи по file_ = Dir(folder_ если макрос и файлы из папки

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

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

lumpics.ru

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

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

 & Application.PathSeparator & файл» & vbNewLine номер строки, в
поиском на нихА вот такой его данные по- вообще-то это поиска. Для того,
выполняя поиск, видит этих целей существует а также лист
можно просто набрать картинки с названием место хранения документа, ещё нужно будет «» DoEvents If выглядит так: Адрес

«*.xls») While Len(wb) & Filename Do

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

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_ WithWith 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) Ifabricos29 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
kuklptable_export_03KAsep.xls за 3
разжёвывать? настроек. переключатель из позиции эти инструменты находятся которой пользователь сделалво вкладке другое место, в

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

 = folder_ &

из макроса выше
abricos29 файл» & vbNewLine & ИмяФайла Do
там можно посмотреть: сентября + table_export_04KAsep.xlsSergVrnАвтор: Максим Тютюшев«Формулы» в состоянии, как
щелчок.«Найти» другую таблицу, бланк, помним, что документ, выводом данных во 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 + 1With 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 EachAndreTM с именем «1.xlsx» а не в SubПодскажите что не = [c1] ‘zickland ТП- список файлов -открываем папку с ячеек, которые будут то в поисковуюНабираем на клавиатуре комбинацию группы символов. Сама Например, как можно «январь». Пишем это не обойтись….Кто может sh In .Sheets: Как вы собираетесь и вписал в

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

CyberForum.ru

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

 сделать гиперссылку на него всего одно

sku144 строке, при отладке c1 МаскаПоиска$ =
определенного списка найтиотсутствует, тогда функция сами. ctrl+f->выбираем документы->далее дополнительные Можно устанавливать ограничения

 написание этого слова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 котором найден текст.abricos29http://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 файлам?

все ячейки, которые время и нервы функцию «Открыть». Появится организовано, что ищем End Sub: Если данный макрос на одном уровне, файлах. = [c1] searchmask$ их характеристик) наПодскажите, пожалуйста, как
такие таблици будут выводить имя файла непростой вопрос. ячейку, формат которой только на активном в любом виде содержат данный последовательный
поможет встроенный поиск список последних книг и как выводимЮрий М при поиске открывает в одной папке!

Подскажите, какие есть = «*.*xl*» ‘ лист For i реализовать следующую задачу: добавляться ежедневно. не нужно.
В файле «ГЛАВНЫЙ вы собираетесь использовать. листе Excel. Но, не зависимо от набор символов даже

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

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

Источник

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

поиск сразу в нескольких документах *.xls

Пример: надо найти текст «45454» сразу в нескольких *.xls документах в разных папках.

Что посоветуете?! Нужно очень срочно!

Я так и искал, но толку ноль. Ищет только в имени файла.

Вот, ****!! Сел за другой комп — стал искать!!

Странно, прежде чем тебе написать проверил у себя 3 раза,
первый раз искал «xls» и слово «свою фамилию»
второй раз искал «xls» и слово «.»
третий раз искал «xls» и слово «а.»

По каждому запросу выдавал мне кучу файлов.

Ferrum_78RUS добавил 15.05.2007 в 17:19
Тогда делай так
-в exel
-файл
-поиск файлов
-раширенный поиск файлов
-настраивай параметры поиска
-несколько минут ожидания и готово.

Одновременный поиск в нескольких таблицах Excel

Определенно легче вести поиск по одной пусть большой, но целой таблице или в смежных диапазонах ячеек, чем по нескольким разделенным на части таблицами разбросанных по разным несмежным диапазонам или даже по отдельным листам. Даже если выполнить автоматический поиск одновременно по нескольким таблицам, то могут возникнуть существенные препятствия. А слаживать все данные в одну таблицу – это сложно, иногда практически не реально. На конкретном примере продемонстрируем правильное решение для одновременного поиска по нескольким таблицам в Excel.

Одновременный поиск по нескольким диапазонам

Для наглядного примера создадим три простые отдельные таблицы расположенных в несмежных диапазонах одного листа:

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

На основе полученных данных необходимо сразу перейти к поиску по другой таблице и найти какое количество работников должно быть вовлечено к данному объему производства. Полученный результат должен сравнивается с данными третей таблицы. Таким образом мы за одно операцию поиска по трем таблицам сразу определим необходимые затраты (сумму).

Среднестатистический пользователь Excel искал бы решение с помощью формул основанных таких функциях как ВПР. И выполнял бы поиск в 3 этапа (отдельно для каждой таблицы). Оказывается, можно получить сразу готовый результат выполнив поиск только в 1 этап с помощью специальной формулы. Для этого:

В ячейке E6 введите значение 20, которое является условием для поискового запроса.
В ячейке E7 введите следующую формулу:

Производственная себестоимость для 20 шт. определенного товара.

Как работает формула с ВПР в нескольких таблицах:

Принцип действия данной формулы основан на поочередном поиске всех аргументов для главной функции ВПР (первой). Сначала третья функция ВПР ищет по первой таблице количество времени необходимое для производства 20 штук продукта указанного в качестве значения для ячейки E6 (которое потом можно изменять при необходимости). Потом вторая функция ВПР ищет значение для первого аргумента главной функции.

В результате поиска третьей функции мы получаем значение 125, которое является первым аргументом для второй функции. Получив все параметры, вторая функция ищет во второй таблице количество требуемых работников для производства. В результате возвращено значение 5, которое дальше будет использовано главной функцией. На основе всех полученных данных формула возвращает финальный результат вычисления. А именно сумму 1750$ необходимую для производства 20 штук определенного товара.

По этом уже принципу можно использовать формулы для функции ВПР из нескольких листов.

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

Полезные программы для офиса: пакетная работа с файлами

Twins File Merger 3.65
Это удобный инструмент для объединения нескольких файлов в один большой. Программа позволяет объединять файлы разных форматов, поэтому с ее помощью можно создать как огромный текстовый файл, так и CD с музыкой в режиме нон-стоп. Twins File Merger имеет удобные инструменты для управления списком файлов и настраиваемый интерфейс.
сайт 1,7 Mб

Text Magician 1.0
Бесплатная программа для редактирования большого количества текстовых файлов одновременно. Она позволяет объединять или, наоборот, разрезать файлы, удалять или заменять заданный текст, изменять регистр букв, начинать каждое слово в новой строке с большой буквы, добавлять текст в начало или конец строк, удалять ненужные пробелы, строки, участки текста.
сайт 280 Кб

ZipScan 2.2
Небольшая утилита для поиска файлов в архивах, в том числе в самораспаковывающихся. Программа понимает форматы ZIP, CAB, RAR, JAR, ACE, TAR и GZ. Вы можете искать текстовые фрагменты или файлы заданного размера. Когда программа найдет файлы, их можно просмотреть или сразу же извлечь из архивов.
сайт 700 Кб

Replace Tool 1.71
Удобная утилита для автоматической замены одного или нескольких символов в большом количестве файлов одновременно. Программа работает с текстовыми и HTML-файлами. При помощи окна Replace Tool можно добавлять в список файлы, которые находятся в разных папках, после чего программе можно давать задания. Программа имеет простой интерфейс и может запоминать очередность заданий. Replace Tool также имеет функцию отката, которая позволяет восстановить данные в файлах в случае необходимости.
сайт 996 Kб

InfoRapid Search & Replace 3.1
Система поиска файлов, которая предлагается пользователям Windows, зачастую не может быстро и корректно найти результат ввиду своих ограниченных возможностей. В этом случае имеет смысл использовать альтернативный софт. Одна из таких утилит — InfoRapid Search & Replace. Ее мощная система поиска позволяет точно и быстро определять запрашиваемую информацию, которая соответствует заданным критериям. Благодаря встроенным текстовым конвертерам эта утилита подходит для поиска и просмотра содержания HTML- и RTF-документов. В обычных текстовых файлах можно заменять определенный текст на новый, указанный в настройках программы. Кроме этого, InfoRapid Search & Replace поддерживает функцию поиска в документах WinWord, Excel, Lotus.
сайт 991 Кб

Actual Search and Replace 2.6.3
При работе с текстовыми документами иногда приходится вносить изменения одновременно в несколько документов (например, если требуется в нескольких документах исправить написание определенной фамилии). В такой ситуации может помочь программа Actual Search & Replace — инструмент для поиска и замены слов или фраз в массиве текстовых файлов. Поиск и замена осуществляется в указанной вами папке по заданной маске. Найденные результаты будут выведены на экран так, как это делается поисковым сервером в Интернете, в виде серии результатов. Результат поиска может быть записан и сохранен в отдельный файл. Для изменения файлов используется встроенный редактор.
сайт 770 Кб

A.F.9 1.2
Эта бесплатная программа с загадочным названием позволяет редактировать файлы, заменяя любые символы. При этом программа имеет несколько отличий от привычной функции замены, присутствующей во многих текстовых редакторах. Во-первых, с ее помощью можно редактировать большое количество файлов одновременно, а также заменять сразу несколько фраз. Программа поддерживает редактирование файлов любого формата и размера.
сайт 992 Кб

WordPipe 4.1
Программа для поиска и замены символов в нескольких документах MS Word одновременно. Программа поддерживает все стандартные функции замены «Ворда», в том числе подстановочные знаки, формы слов, «слово целиком» и пр. В программу также входит дополнительный модуль TextPipe Pro, позволяющий изменять документы по выбранному фильтру: удаление нескольких пробелов, идущих подряд, исправление знаков пунктуации и пр. сайт 1,03 Mб

FindReplaceExcel 2.15
Программа для поиска и замены различных данных в файлах Excel. Она поможет найти текст, значения и комментарии и заменить их, даже не требуя от вас открытия рабочих книг. Программа может искать диапазоны в рабочих листах или только на определенных листах в книге, производить поиск по нескольким дискам. Она также поддерживает поиск данных, которые не полностью совпадают с запросом, и поиск с учетом регистра. Чтобы в результате работы программы не произошло потери данных, перед внесением в документы изменений она автоматически создает копию.
сайт 2,2 Мб

Drag Drop and Replace 1.0
Программа для быстрого поиска и замены текста. Пригодится в первую очередь тем, кому нужно время от времени изменять данные в большом количестве файлов — например, веб-мастерам. Drag Drop and Replace справляется с файлами размером до 4 Гб, позволяет просмотреть текст перед заменой, а также поддерживает выполнение нескольких заданий и операции с несколькими файлами одновременно.
сайт 340 Кб

Mass Text Replacer 1.0.0
Программа для поиска информации в большом количестве файлов одновременно и их замены. Mass Text Replacer позволяет выбирать файлы по одному или же указывать целые директории. Она будет особенно полезна веб-мастерам, которым часто приходится вносить одни и те же изменения в большое количество файлов. Mass Text Replacer также пригодится программистам и писателям. Программа позволяет вставлять в файлы участки текста любой величины или же элементы веб-страниц (например, таблицы).
сайт 2,92 Mб

FindersKeepers 2.02
Программа, предназначенная для поиска текста в файлах, его замены и выполнения других операций с найденными файлами. В частности, Finders Keepers позволяет просматривать или запускать все найденные файлы, архивировать их, редактировать текстовые файлы. При этом исходные копии всех файлов, в которые вносятся изменения, будут сохранены. Поиск осуществляется несколькими способами, причем движок поиска настолько совершенен, что позволяет найти слова даже если в них допущены орфографические ошибки.
сайт 2,2 Mб

Criline Search and Replace 3.3
Criline Replacer — это программа для быстрого поиска определенного текста в нескольких файлах одновременно и замены его другим. Поддерживается большое количество типов файлов, имеется очень быстрый алгоритм поиска и, кроме того, программа очень проста в использовании. Criline Replacer может сэкономить массу времени программистам и веб-мастерам.
сайт 1,1 Mб

SearchMaestro 1.0
Программа для поиска файлов и просмотра их содержимого. SearchMaestro позволяет сохранять и впоследствии загружать заданные настройки, экспортировать результаты поиска в файлы *.csv или *.xml. Вы сможете не только просматривать содержимое файлов, но и автоматически заменять выбранные символы другими. SearchMaestro также предоставляет возможность создания файлов VBScript и JavaScript для многоразового использования. сайт 2,7 Mб

Verbs 1.01
Механизм поиска файлов операционной системы Windows несовершенен и имеет ряд упущений. Программа Verbs восполнит этот пробел. Эта утилита предназначена для поиска документа, содержащего ключевое слово. Принцип работы Verbs очень прост. После того, как программа получит запрос на поиск ключевого слова, она обращается к базе данных в виде созданного заранее каталога всех документов. Найденный файл откроется в ассоциируемом приложении. Программа учитывает изменения, которым подвергаются файлы в процессе работы пользователя, и периодически обновляет каталог — базу данных.
сайт 1,8 Mб

FileEngineer 2.01
Простая утилита для работы с файлами. С ее помощью можно выполнять несколько основных операций: искать текст в файлах, заменять одни участки текста другими и переименовывать несколько файлов одновременно. При выполнении последней операции файлам даются одинаковые названия, которые отличаются лишь числами. Хотя программу нельзя назвать многофункциональной, со своей задачей она справляется хорошо и быстро.
сайт 2 Mб

Advanced Excel Find & Replace 2.4
Программа, которая расширяет стандартные возможности одной из утилит пакета Microsoft Office — Excel. Интегрируясь в оболочку популярной программы для работы с таблицами, данная утилита позволяет усовершенствовать механизм поиска в программе. Advanced Excel Find совместима с версями Excel 2000, 2002 и 2003. С ее помощью можно искать данные по нескольким листам и рабочим книгам. Вы можете одновременно задать поиск в формулах, значениях и комментариях.
сайт 985 Кб

ExcelExplorer 1.01
Программа для удобного и быстрого управления файлами Excel. Используя ExcelExplorer, вы сможете просматривать, перемещать, удалять или переименовывать файлы, даже если Excel не установлен у вас на компьютере. Интерфейс программы представлен двумя панелями. С левой стороны располагается список файлов в виде древовидной структуры, в правой — содержимое выбранного файла. Редактировать файл можно тут же.
сайт 1,9 Мб

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

Я использую Microsoft Office 2007. Как я могу искать в нескольких файлах Excel?

В папке, в которой хранятся файлы, нажмите Ctrl + f, чтобы использовать окно поиска в папке. Затем выполните поиск

для поиска этой строки в файлах в текущем каталоге.

Используйте IceTeaReplacer . Это бесплатная программа.

Поиск & Замените файлы .docx, .xlsx и .xls

IceTeaReplacer — простой, но мощный инструмент для поиска внутри несколько Microsoft Office Word 2007 (docx), Excel 2007 (xlsx) и Файлы Excel 2003 (xls) в каталоге (и это подкаталоги) и заменить предоставленную фразу. Поддерживает UTF-8.

Существует также более мощная альтернатива с различными функциями, но она является коммерческой: ExcelPipe .

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

Обратите внимание, что он был протестирован только в Excel 2010, но он должен работать в 2007 году и более ранних версиях. Если нет, не стесняйтесь изменять код, как вы считаете нужным.

Электронная таблица использует пользовательскую форму и использует код VBA (который вы можете использовать для любых целей). Естественно, макросы и т. Д. Должны быть включены, чтобы это работало, и форма появляется при открытии электронной таблицы (вы можете получить доступ к коду, нажав Alt + F11, перейдя к пользовательской форме и дважды щелкнув кнопку «Начать поиск» в окна дизайна).

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

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

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

Пользовательская форма должна быть относительно понятной, однако readme для нее на Github очень подробно описывает, как ее использовать. Опять же, свободный для использования, это с открытым исходным кодом.

В Excel 2003 у вас была опция дополнительного поиска в меню файла, где вы могли искать файлы. Я больше не могу найти этот вариант в 2007 году, поэтому я думаю, что он ушел.

Если у вас есть Vista или Windows 7, вы сможете использовать встроенный поиск окна. В более старых версиях вы можете установить поисковое приложение, например Поиск рабочего стола Windows , Google Desktop Search , Copernic , . они могут свободно использовать.

Получение списка файлов в папке

В Excel, путём проведения нехитрых махинаций, имеется возможность получения списка файлов, находящихся в папке компьютера. Для этого копируем путь к файлам в папке и вставляем его в нужную ячейку, при этом в конце пути необходимо указать маску поиска файлов вида:

2. *.xl* – все файлы Excel (xls, xlsx, xlsm, xlsb и т.д.);

3. *.exe – все исполняемые файлы (программы);

4. *.docx (doc, docm) – все документы Word. Добавив ключевое слово Рок*.docx в список войдут все названия файлов, начинающиеся со слова «Рок».

Дальше нажатием Ctrl+F3 или на вкладке «Формулы» — «Диспетчер имён», в открывшемся окне создадим новое имя Список_файлов и введём в строку Диапазон следующую формулу =ФАЙЛЫ(Лист1!$A$1) где «Лист1» – это название листа, а «А1» – ячейка с адресом

Теперь в созданном нами названии «Список_файлов» уже содержатся нужные имена файлов, осталось их оттуда извлечь. Для этого используем в ячейке А3 следующую формулу и протянем её вниз: =ЕСЛИОШИБКА(ИНДЕКС(Список_файлов;СТРОКА()-2);””)

Функция ЕСЛИОШИБКА нужна, чтобы спрятать ошибку #ССЫЛКА, которая возникает, когда мы протягиваем формулу «с запасом», т.е. на больший по размеру диапазон, чем количество имеющихся у нас файлов.

Функция ИНДЕКС извлекает из массива элемент по номеру, например, формула =ИНДЕКС(Список_файлов; 5) выдаст имя пятого по счету файла в папке.

Функция СТРОКА, выдает порядковый номер текущей строки, из которого мы вычитаем 2, т.к. первая ячейка, куда выводится имя, в нашем случае А3.

`ls /path/to/dir | grep -e ‘regex’`

Это смотря для чего.

У меня описанное ТС-ом работает в макросе сбора данных из текстовых файлов генерируемых CMM машиной.

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

Если бы делал для себя- может и морочился бы с текстовым файлом и батниками. Но задача была сделать файл для работы необученого ничему оператора. Чтобы нажал кнопку и всё получилось.

Использование экселя для получения данных, безусловно, удобно когда потом эти же данные надо обрабатывать в экселе. Но в общем случае использовать. Эксель для получения списка файлов менее удобно, чем воспользоваться программами, которые прямо для этого и предназначены (не уверен что dir это программа, а не команда оболочки — сам я по юниксам).

P.S. Конкретно в вашем случае я бы складывал это все в какую-нибудь СУБД, после чего эти данные можно удобно обработать и проанализировать, скорее всего гораздо быстрее, чем в экселе, если данных ДЕЙСТВИТЕЛЬНО много (гигабайты и больше). Я бы смотрел в сторону Clickhouse.

В моем случае это был статистический контроль.

Данные доступны были или в ПДФ-ках, из каждой надо было скопировать 10-20 числовых значений и вставить в ексель. Таких ПДФ-ок приходилось в день открывать сотруднику порядка 50-100 штук. И создание отчета занимало несколько дней (ведь была еще и другая работа). И отследить ошибки вообще было нереально. И еще оборудование генерило текстовые файлы. Вот из них и кромсал данные макрос.

Получилось достаточно удобно. Деталь промеряли- текстовики скинули в отдельную папку — туда же ексель-файл- нажали на кнопочку и всего 1 раз скопировали-вставили куда надо.

Источник

Содержание

Как найти текстовый документ на компьютере, если не помнишь название
Эволюция функции «Поиск»
Начинаем искать
Все текстовые документы
По имени
По дате
По типу
По размеру
По содержанию
Поиск в excel в нескольких файлах
Поиск документа Excel по содержимому текста.
Поиск в программе Microsoft Excel
Поисковая функция в Excel
Способ 1: простой поиск
Способ 2: поиск по указанному интервалу ячеек
Способ 3: Расширенный поиск
Поиск текста в нескольких файлах Excel
Поиск значения в Таблицах в разных файлах Excel
Поиск значений в нескольких файлах! (Формулы/Formulas)
Поиск в файлах excel по содержимому
Поиск и замена в нескольких XLS файлах
Поиск одного значения в нескольких файлах
Как произвести поиск по нескольким Excel файлам?
Поиск файлов по их содержимому в Windows 10
Поиск файлов по содержимому в Виндовс 10
Способ 1: Сторонние программы
Способ 2: Поиск через «Пуск»

Как найти текстовый документ на компьютере, если не помнишь название

Poisk

Эволюция функции «Поиск»

Первоначально поговорим об эволюции поисковой функции с появлением новых версий Windows. Помните XP? Окно поиска было отдельным. Ещё там сидел симпатичный помощник – собачка или кто-то другой. Попасть в него можно было через «Пуск».

Poisk1

В левую часть окна были вынесены настройки поиска:

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

В новых версиях Windows – 7, 8 и 10 функция претерпела косметические изменения. Почему косметические? Да потому что её действие осталось прежним, но только параметры поиска задаются автоматически, когда в строку, расположенную и сразу в меню Пуск, и в каждой папке, вы вписываете значение для поиска. Либо их можно также настроить, но совершенно в другом месте. Исключение – только поиск по содержанию документа, но и это легко решаемо. Пока непонятно? Рассмотрим подробнее по каждому параметру чуть ниже. Зачем разработчики всё усложнили, точнее, упростили? Видимо, они заботились о нас вечно занятых пользователях.

Вот как выглядит поисковая строка в Windows 10.

Poisk2

А вот так в восьмой точка один версия ОС.

Poisk3

Поскольку с XP всё понятно, я буду рассказывать о различных возможностях поиска на примере «восьмёрки», тем более «семёрка» и «десятка» от неё в этом вопросе практически не отличаются.

Начинаем искать

Друзья, хватит разглагольствовать, приступим к основному вопросу — как можно найти потерявшийся документ Word на компьютере по разным его характеристикам.

Все текстовые документы

Сначала давайте попробуем найти на компьютере абсолютно все текстовые документы, не оглядываясь на такие параметры, как их название, содержимое и дата создания. Для этого откройте «Мой…», «Этот…» или просто «Компьютер». В правом верхнем его углу, рядом со строкой пути, найдётся и поисковая строка. А по соседству с основными разделами меню («Файл», «Вид» и другими) найдётся раздел «Поиск». Забегая вперёд, скажу, что именно там находятся настройки основных параметров.

Poisk4

Друзья, если вы хотя бы знаете, в какой папке находятся ваши текстовые документы, то перейдите в неё – это значительно облегчит работу вашей машине. Для поиска всех текстовых документов в строке необходимо вписать значение *.doc, *.docx или *.txt (зависит от того, что вы планируете найти).

По имени

Если вы знаете имя документа, то отыскать его не составит труда. Просто введите имя в строку поиска, и «вкушайте плоды». Но что делать, если название нужного файла в голове не сохранилось? В таком случае у вас остаётся ещё несколько вариантов – найти нужный документ, отсортировав имеющиеся по дате его рождения на свет (или изменения), по размеру (от пустых и крошечных до огромных и гигантских), по типу (выбрав «документ») или по внутреннему тексту.

По дате

Зайдите в любую папку, поставьте курсор в поисковую строку. В этот же момент отобразится новый раздел меню «Поиск». Раскройте его содержимое. Среди прочих настроек вы увидите параметр «по дате создания» (или последнего изменения). Среди возможных вариантов диапазоны времени от «сегодня» до «в прошлом году». Или просто попробуйте в строку ввести значение в виде точной даты. В результатах должны отобразиться все документы, созданные или изменённые указанного числа.

Poisk5

По типу

Среди тех же настроек имеется параметр «по типу». Перечень возможных вариантов включает файлы всех возможных типов – от календаря и контакта до музыки и фильма. В нашем случае требуется выбрать значение «документ».

Poisk6

По размеру

Тут же можно выбрать и размер. Машина будет искать даже пустые документы. Максимальный размер для поиска – 128 мегабайт.

Poisk7

По содержанию

Друзья, вот и подошли к тому, с чего начали – поиск текстового файла по его содержимому. Есть два варианта. Первый – это отметить галочкой нужный параметр всё в тех же настройках. Там есть раздел «Дополнительные параметры», в котором следует пометить галочкой пунктик «Содержимое файлов». Затем вводите нужную фразу в строке и запускайте поисковый процесс.

Poisk8

Poisk9

Poisk10

В то же окно настроек можно попасть и по-другому (актуально для «семёрки»):

Poisk11

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

Источник

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

«*.xls») While Len(wb) & Filename Do

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

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

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

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

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

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

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

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

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

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

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

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

 сделать гиперссылку на него всего одно

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

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

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

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

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

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

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

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

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

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

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

Источник

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

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

Поиск файлов по содержимому в Виндовс 10

В первую очередь с данной задачей ассоциируются обычные текстовые файлы: мы сохраняем на компьютере различные заметки, интересные сведения из интернета, рабочие/учебные данные, таблицы, презентации, книги, письма из почтового клиента и многое другое, что можно выразить текстом. Помимо этого по содержимому можно искать и узконаправленные файлы — сохраненные страницы сайтов, код, хранящийся к примеру, в расширении JS и др.

Способ 1: Сторонние программы

Обычно функциональности встроенного поисковика Windows достаточно (о нем мы рассказали в Способе 2), но сторонние программы в ряде случаев будут приоритетнее. К примеру, настройка параметров расширенного поиска в Виндовс устроена таким образом, что вы делаете ее один раз и надолго. Вы также можете выставить поиск по всему накопителю, но при большом количестве файлов и объемном жестком диске процесс иногда замедляется. То есть гибкости системой не предусмотрено, сторонние же программы позволяют каждый раз искать по новому адресу, сужая критерии и используя дополнительные фильтры. К тому же такие программы часто выступают небольшими файловыми помощниками и имеют расширенные возможности.

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

Остальные возможности программы вы можете узнать из нашего обзора программы по ссылке выше или самостоятельно. В целом это очень удобный инструмент, когда требуется быстро искать файлы по их содержимому, будь то встроенный накопитель, внешний диск/флешка или FTP-сервер.

Если работа с Everything не подходит, ознакомьтесь со списком других похожих программ по ссылке ниже.

Способ 2: Поиск через «Пуск»

Меню «Пуск» в десятке было улучшено, и сейчас оно не такое ограниченное, как было в прошлых версиях этой операционной системы. Используя его, можно отыскать нужный файл в компьютере по его содержимому.

Для того чтобы этот способ был рабочим, необходима включенная расширенная индексация на компьютере. Поэтому первым делом разберем, как ее активировать.

Включение службы

У вас должна быть запущена служба, отвечающая за поиск в Виндовс.

Включение разрешения индексации на жестком диске

Жесткий диск должен иметь разрешение на индексацию файлов. Для этого открываем «Проводник» и переходим в «Этот компьютер». Выбираем тот раздел диска, на котором планируется совершать поиск сейчас и в будущем. Если таких разделов несколько, выполните дальнейшую настройку поочередно со всеми ними. При отсутствии дополнительных разделов работать будем с одним — «Локальный диск (С:)». Жмем правой кнопкой мыши по иконке и выбираем «Свойства».

Убедитесь, что галочка рядом с пунктом «Разрешить индексирование…» установлена или поставьте ее самостоятельно, сохранив изменения.

Настройка индексации

Теперь остается включить расширенную индексацию.

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

Или в HTM-файлах (обычно это сохраненные страницы сайтов).

Конечно, полный список файлов, которые поддерживает поисковик десятки, куда больше, и показывать все примеры не имеет смысла.

Теперь вы знаете, как оптимизировать поиск по содержимому в Windows 10. Это позволит сохранять больше полезной информации и не теряться в ней, как прежде.

Помимо этой статьи, на сайте еще 12327 инструкций.
Добавьте сайт Lumpics.ru в закладки (CTRL+D) и мы точно еще пригодимся вам.

Отблагодарите автора, поделитесь статьей в социальных сетях.

Источник

Содержание

Поисковая функция в Excel
- Способ 1: простой поиск
- Способ 2: поиск по указанному интервалу ячеек
- Способ 3: Расширенный поиск
Вопросы и ответы

В документах Microsoft Excel, которые состоят из большого количества полей, часто требуется найти определенные данные, наименование строки, и т.д. Очень неудобно, когда приходится просматривать огромное количество строк, чтобы найти нужное слово или выражение. Сэкономить время и нервы поможет встроенный поиск Microsoft Excel. Давайте разберемся, как он работает, и как им пользоваться.

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

Поисковая функция в программе Microsoft Excel предлагает возможность найти нужные текстовые или числовые значения через окно «Найти и заменить». Кроме того, в приложении имеется возможность расширенного поиска данных.

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

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

Находясь во вкладке «Главная», кликаем по кнопке «Найти и выделить», которая расположена на ленте в блоке инструментов «Редактирование». В появившемся меню выбираем пункт «Найти…». Вместо этих действий можно просто набрать на клавиатуре сочетание клавиш Ctrl+F.

После того, как вы перешли по соответствующим пунктам на ленте, или нажали комбинацию «горячих клавиш», откроется окно «Найти и заменить» во вкладке «Найти». Она нам и нужна. В поле «Найти» вводим слово, символы, или выражения, по которым собираемся производить поиск. Жмем на кнопку «Найти далее», или на кнопку «Найти всё».

При нажатии на кнопку «Найти далее» мы перемещаемся к первой же ячейке, где содержатся введенные группы символов. Сама ячейка становится активной.
Поиск и выдача результатов производится построчно. Сначала обрабатываются все ячейки первой строки. Если данные отвечающие условию найдены не были, программа начинает искать во второй строке, и так далее, пока не отыщет удовлетворительный результат.

Поисковые символы не обязательно должны быть самостоятельными элементами. Так, если в качестве запроса будет задано выражение «прав», то в выдаче будут представлены все ячейки, которые содержат данный последовательный набор символов даже внутри слова. Например, релевантным запросу в этом случае будет считаться слово «Направо». Если вы зададите в поисковике цифру «1», то в ответ попадут ячейки, которые содержат, например, число «516».

Для того, чтобы перейти к следующему результату, опять нажмите кнопку «Найти далее».

Так можно продолжать до тех, пор, пока отображение результатов не начнется по новому кругу.
В случае, если при запуске поисковой процедуры вы нажмете на кнопку «Найти все», все результаты выдачи будут представлены в виде списка в нижней части поискового окна. В этом списке находятся информация о содержимом ячеек с данными, удовлетворяющими запросу поиска, указан их адрес расположения, а также лист и книга, к которым они относятся. Для того, чтобы перейти к любому из результатов выдачи, достаточно просто кликнуть по нему левой кнопкой мыши. После этого курсор перейдет на ту ячейку Excel, по записи которой пользователь сделал щелчок.

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

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

Выделяем область ячеек, в которой хотим произвести поиск.

Набираем на клавиатуре комбинацию клавиш Ctrl+F, после чего запуститься знакомое нам уже окно «Найти и заменить». Дальнейшие действия точно такие же, что и при предыдущем способе. Единственное отличие будет состоять в том, что поиск выполняется только в указанном интервале ячеек.

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

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

К тому же, в выдачу может попасть не только содержимое конкретной ячейки, но и адрес элемента, на который она ссылается. Например, в ячейке E2 содержится формула, которая представляет собой сумму ячеек A4 и C3. Эта сумма равна 10, и именно это число отображается в ячейке E2. Но, если мы зададим в поиске цифру «4», то среди результатов выдачи будет все та же ячейка E2. Как такое могло получиться? Просто в ячейке E2 в качестве формулы содержится адрес на ячейку A4, который как раз включает в себя искомую цифру 4.

Но, как отсечь такие, и другие заведомо неприемлемые результаты выдачи поиска? Именно для этих целей существует расширенный поиск Excel.

После открытия окна «Найти и заменить» любым вышеописанным способом, жмем на кнопку «Параметры».

В окне появляется целый ряд дополнительных инструментов для управления поиском. По умолчанию все эти инструменты находятся в состоянии, как при обычном поиске, но при необходимости можно выполнить корректировку.

По умолчанию, функции «Учитывать регистр» и «Ячейки целиком» отключены, но, если мы поставим галочки около соответствующих пунктов, то в таком случае, при формировании результата будет учитываться введенный регистр, и точное совпадение. Если вы введете слово с маленькой буквы, то в поисковую выдачу, ячейки содержащие написание этого слова с большой буквы, как это было бы по умолчанию, уже не попадут. Кроме того, если включена функция «Ячейки целиком», то в выдачу будут добавляться только элементы, содержащие точное наименование. Например, если вы зададите поисковый запрос «Николаев», то ячейки, содержащие текст «Николаев А. Д.», в выдачу уже добавлены не будут.

По умолчанию, поиск производится только на активном листе Excel. Но, если параметр «Искать» вы переведете в позицию «В книге», то поиск будет производиться по всем листам открытого файла.

В параметре «Просматривать» можно изменить направление поиска. По умолчанию, как уже говорилось выше, поиск ведется по порядку построчно. Переставив переключатель в позицию «По столбцам», можно задать порядок формирования результатов выдачи, начиная с первого столбца.

В графе «Область поиска» определяется, среди каких конкретно элементов производится поиск. По умолчанию, это формулы, то есть те данные, которые при клике по ячейке отображаются в строке формул. Это может быть слово, число или ссылка на ячейку. При этом, программа, выполняя поиск, видит только ссылку, а не результат. Об этом эффекте велась речь выше. Для того, чтобы производить поиск именно по результатам, по тем данным, которые отображаются в ячейке, а не в строке формул, нужно переставить переключатель из позиции «Формулы» в позицию «Значения». Кроме того, существует возможность поиска по примечаниям. В этом случае, переключатель переставляем в позицию «Примечания».

Ещё более точно поиск можно задать, нажав на кнопку «Формат».

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

Если вы хотите использовать формат какой-то конкретной ячейки, то в нижней части окна нажмите на кнопку «Использовать формат этой ячейки…».

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

После того, как формат поиска настроен, жмем на кнопку «OK».

Бывают случаи, когда нужно произвести поиск не по конкретному словосочетанию, а найти ячейки, в которых находятся поисковые слова в любом порядке, даже, если их разделяют другие слова и символы. Тогда данные слова нужно выделить с обеих сторон знаком «*». Теперь в поисковой выдаче будут отображены все ячейки, в которых находятся данные слова в любом порядке.

Как только настройки поиска установлены, следует нажать на кнопку «Найти всё» или «Найти далее», чтобы перейти к поисковой выдаче.

Как видим, программа Excel представляет собой довольно простой, но вместе с тем очень функциональный набор инструментов поиска. Для того, чтобы произвести простейший писк, достаточно вызвать поисковое окно, ввести в него запрос, и нажать на кнопку. Но, в то же время, существует возможность настройки индивидуального поиска с большим количеством различных параметров и дополнительных настроек.

Источник

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Sub d()
Dim f, i&, ii&, ar(), fol$, NewFol$
ar = [a2:a290].Value ‘Selection.Value
fol = [c2]
NewFol = [d2]
f = Enlist_Directories(fol)
For i = 1 To UBound(ar)
For ii = 0 To UBound(f)
If f(ii) Like «*» & ar(i, 1) & «*» Then Copy_File f(ii), NewFol & Dir(f(ii))
Next ii, i
End Sub
Private Function Copy_File(ByVal sFileName As String, ByVal sNewFileName As String) As Boolean
Dim objFSO As Object
If sFileName = sNewFileName Then Exit Function
If Dir(sFileName, 16) = «» Then: Exit Function
If Not Dir(sNewFileName, 16) = «» Then Kill sNewFileName
Set objFSO = CreateObject(«Scripting.FileSystemObject»)
Call objFSO.CopyFile(sFileName, sNewFileName)
Copy_File = True
End Function
Function Enlist_Directories(strPath As String)
Dim strFldrList() As String
Dim lngArrayMax, x As Long, lngSheet&
lngSheet = 100 ‘As Long
lngArrayMax = 0
strFn = Dir(strPath & «*.*», 23)
While strFn <> «»

If Not (GetAttr(strPath & strFn) And vbDirectory) = vbDirectory Then
lngArrayMax = lngArrayMax + 1
ReDim Preserve strFldrList(lngArrayMax)
strFldrList(lngArrayMax) = strPath & strFn
End If

strFn = Dir()
Wend
Enlist_Directories = strFldrList
End Function

If Not (GetAttr(strPath & strFn) And vbDirectory) = vbDirectory Then
lngArrayMax = lngArrayMax + 1
ReDim Preserve strFldrList(lngArrayMax)
strFldrList(lngArrayMax) = strPath & strFn
End If

strFn = Dir()
Wend
Enlist_Directories = strFldrList
End Function

Иногда все проще чем кажется с первого взгляда.

If Not (GetAttr(strPath & strFn) And vbDirectory) = vbDirectory Then
lngArrayMax = lngArrayMax + 1
ReDim Preserve strFldrList(lngArrayMax)
strFldrList(lngArrayMax) = strPath & strFn
End If

strFn = Dir()
Wend
Enlist_Directories = strFldrList
End Function

Источник

Получение списка файлов в папке и подпапках средствами VBA

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

Используется рекурсивный перебор папок, до заданного уровня вложенности.
В процессе перебора папок, пути у найденным файлам помещаются в коллекцию (объект типа Collection) для последующего перебора.

К статье прикреплено 2 примера файла с макросами на основе этой функции:

Пример в файле FilenamesCollection.xls выводит список файлов на чистый лист новой книги (формируя заголовки)
Пример в файле FilenamesCollectionEx.xls более функционален — он, помимо списка файлов из папки, отображает размер файла, и дату его создания, а также формирует в ячейках гиперссылки на найденные файлы.
Вывод списка производится на лист запуска, параметры поиска файлов задаются в ячейках листа (см. скриншот)

Смотрите также расширенную версию макроса на базе этой функции:

Макрос FolderStructure выводит в таблицу Excel список файлов и подпапок с отображением структуры (вложенности файлов и подпапок)

ПРИМЕЧАНИЕ: Если вы выводите на лист список имен файлов картинок (изображений), то при помощи этой надстройки вы сможете вставить сами картинки в ячейки соседнего столбца (или в примечания к этим ячейкам)

‘ Пример использования функции в макросе:

Этот код позволяет осуществить поиск нужных файлов в выбранной папке (включая подпапки), и выводит полученный список файлов на лист книги Excel:

Ещё один пример использования:

PS: Найти подходящие имена файлов в коллекции можно при помощи следующей функции:

Не знаю что там за проблема с некорректными именами файлов, — я этот код использовал в сотнях макросов, эта функция работает в составе моих надстроек на десятках тысяч компьютеров, и никаких проблем не наблюдается.
И ни разу я не применял имена MS DOS..

Игорь, спасибо за рабочий пример (немного докрутил и использую в работе).
Что касается вопроса с некорректными именами файлов (которые не любит обрабатывать сей код (например, если в имени есть символ из непонятной кодировки)), выход нашел немного «топорный»: внутри обработки применяю имена MS DOS, которые обрабатываются нормально в большинстве случаев, а в интерфейсе делаю подмену имен на виндовые. Возможно не совсем понятно написал, но примера сейчас нет под рукой.

Спасибо автору, хороший код для поиска файлов, но возникает вопрос, а можно отключить отображение поиска внизу экселя?

Добрый день, а есть возможность применить свой макрос к полученному списку файлов?

Александр, нет таких полей у файлов произвольного формата, — потому, никак.

Посоветуйте пожалуйста как с помощью FSO получить доступ к полям Теги и Комментарии. Спасибо Alexander A. Rylov

Михаил, найдите в верхней части кода строку Option Explicit
и удалите её (эта строка требует объявлять переменные)

Подскажите. Почему excel может ругаться на
Set FSO = CreateObject(«Scripting.FileSystemObject») ‘ создаём экземпляр FileSystemObject
Пишет что переменная не объявлена/не определена

Нужно выше дописать
Dim FSO As Object?
Или в настройках excel 2016 что-то не так? Притом ругается на все не объявленные переменные.
А переменные типа Filename$ вообще не воспринимает как переменные. В чем может быть дело?
Гуглинг пока не помог.

Здравствуйте.
DoEvents никак не влияет на правильность работы (и не может повлиять)
А количество активных гиперссылок на листе Excel ограничено, — никак не сделать, чтобы на одном листе было более 50 или 65 тысяч АКТИВНЫХ гиперссылок.

Доброго времени суток. Огромное спасибо за программу!

Добавлю от себя и задам вопрос.

При использовании «DoEvents» программа может не правильно работать, в том числе выводить не все значения. Я ее закомментировал.

При привышении 65532 строк гиперссылки прекращают формироваться. Как можно победить?

Здравствуйте.
Под заказ что угодно могу сделать (платно)

Здравствуйте. Для примера из файла «FilenamesCollectionEx.xls» — можете сделать, чтобы выводимый на лист Excel список файлов был отсортирован по размеру(по уменьшению)?

Здравствуйте.
Могу сделать под заказ
Оформляйте заказ на сайте, и обязательно прикрепляйте пример файла с примером результата.

Здравствуйте! Меня тоже интересует макрос по поиску файлов. Можете сделать так что бы в ячейках к примеру A1 задать имя файла, A2 задать тип файла и A3 путь к папке?

Огромное Вам спасибо! Столько времени мне съэкономили.
СПА-СИ-БО! 🙂

Спасибо. Очень полезная вещь!

Здравствуйте, Юрий
Да, это можно исправить, — другой код нужен
(встроенные в VBA функции иногда дают ошибки)

Добрый день
В случае если в именах файлов встречаются нестандартные символы (допустимые в Win) макрос выдает ошибку
Ошибка в строке ДатаСоздания = FileDateTime(ПутьКФайлу)
Можно добавить onError Resume Next но это пропуск ошибки будет а размер файла не будет определен. Есть ли варианты сделать определение размера файлов и для таких файлов тоже?

Пример папки на которой сканирование папки «спотыкается»: https://bit.ly/2zz8Tfw

Игорь, подскажите, а можно ли в файл FilenamesCollectionEx.xls добавить маску имени подпапки, в которой производить поиск? Ситуация: файл с одинаковм именем может лежать в подпапках с разными именами. Я точно знаю, что нужная мне версия должна лежать в определенной подпапке. И проверять таким образом только их?

Так вроде и то и другое выводится
Код открыт ведь, — поменяйте как вам надо, если лишний столбец мешает.

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

Отбой, разобрался. Виноват оказался не этот макрос, а тот, который его результаты использовал. Мораль — люди, не юзайте Dir, если вам нужно что-то сделать с папкой, к которой он обращается.

В моём макросе нет MoveFolder — так что мой макрос точно не виноват в вашей проблеме.
Проблема — либо в неверном использовании MoveFolder (не то или не туда перемещаете), либо нет прав доступа на перемещение в заданное место.

Игорь, всё это прекрасно. Непонятно только, что нужно сделать с Вашим макросом, чтобы после его вызова с папкой можно было бы ещё и что-нибудь сделать, например, переместить. Сейчас после вызова FSO.MoveFolder вылетает с ошибкой Access denied. Проверено, виноват именно Ваш макрос — если закомментировать ТОЛЬКО его вызов, FSO.MoveFolder отрабатывает нормально.

Спасибо, ОГРОМНОЕ.
Выручайте ребята! макрос в целом отличный, но для моих целе нужно немного переделать.
Нужно чтоб все файлы находящиеся в каждой папке были в одной ячейке через разделитель ( | )
Например:
C:images4-20161032g.jpg|C:images4-20161033g.jpg|C:images4-20161033g.jpg

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

Добрый день!
Скажите, пожалуйста, сделали ли вы макрос для Александра?
Если да, то за сколько его можно приобрести?
Если нет, то какие сроки выполнения?
Спасибо!

Напишите на почту стоимость и сроки выполнения

Александр, в этом случае нужен более сложный макрос.
Могу сделать под заказ.

Здравствуйте, Макрос хороший. Всё отлично выводит. Но как сделать дерево? Имеется несколько папок, далее нажимаешь на папку или плюс или еще что-то, она открывается, появляется подпапки, опять жмешь на подпапку появляются подпапки и т.д.

Спасибо, отличный макрос

В ответ на:
Андрей, 15 Мар 2018 — 15:13.#3
Добрый день.
файл 148 знаков (рус.буквы) не обрабатывается,
и сам файл на сервере (если файл на раб.столе то все работает)
какая максимальная длина имени и можно-ли ее обойти.

Ограничение на полное имя файла, включая расширение — 259 символов. Соответственно, все файлы, имеющие более длинное имя при выполнении
Set curfold = FSO.GetFolder(FolderPath)
будут проигнорированы. Тестировал на EX2010, W7 и MSServer 2008. У меня из 28 (curfold.Соunt) файлов реально в коллекции только 15 (curfold.items(1). curfold.items(15))

А как сделать макрос чтобы он мне показал только пустые папки?

Ограничений по длине имени файла, вроде как, нет (по крайней мере, за много лет использования этого кода на тысячах компов, с проблемами не сталкивался)

Добрый день.
файл 148 знаков (рус.буквы) не обрабатывается,
и сам файл на сервере (если файл на раб.столе то все работает)
какая максимальная длина имени и можно-ли ее обойти.

Адаптировал к access — все работает, спасибо, очень помогло

Ринат, посмотрите макрос обработки файлов из папки.
Там выводится диалоговое окно папки, и обрабатываются все файлы в ней (независимо от имён файлов)

Добрый день!
Такой вопрос, в отделе каждый месяц сотрудник ведет отчет по своей работе в табличной форме в ексель каждый в своем файле, а начальству необходимо данные отчеты ввести в свою итоговую таблицу для себя, то есть скопировать данные отчетов с файлов каждого сотрудника в свой отдельный файл. Я создал макрос, для скопирования данных с файлов каждого сотрудника в таблицу файла начальству указывая путь к каждому файлу. Но при этом возникает определенные неудобства, каждый месяц нужно пути к файлам прописывать заново, так как на следующий месяц создаются новые файлы по отчетам, и пути к ним необходимо обновлять. Подскажите пожалуйста, как можно сделать так, чтоб пути к файлам привязывались не по конкретному расположению файла, а например указыванием месяца и года можно было сформировать единый отчет на определенный месяц. Спасибо заранее!

Большое спасибо автору! Список использую для каталогизации архива сканов документов.

Да, можем сделать такой макрос под заказ.
Минимальная стоимость заказа 1500 руб.

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

или например на основе Вашего FilenamesCollectionEx.xls нашел все файлы на диске/папке нужные -нажимаешь на файл и ты нужен выбрать ячейку куда вписать имя файла
заранее спасибо

У меня почему-то размер файла в байтах выводится абсолютно иной, иногда даже с отрицательным значением.
Пример:
1.вес файла 3 840 327 Кб или 3,66 Гб, а таблица выдает «-362 472 675»
2.вес файла 5 082 087 Кб или 4,84 Гб, таблица выдает «909 089 137»

Василий, да, можно добавить.
Пример код можете здесь посмотреть:
http://excelvba.ru/code/MCI

Добрый день! Подскажите, возможно ли добавить столбцы «продолжительность» и «ширина кадра», которые имеются в данных файлов?

Здравствуйте, Елизавета.
Причин может быть несколько, навскидку:
— проблемный файл, или файл, к которому у вас нет доступа (ошибка 53 — файл не найден)
— слишком длинное имя папки (много уровней вложенности) и/или файла
— сбой в файловой системе
— ошибка в макросе (что-то в коде не учтено)

Техподдержка по бесплатным макросам не предоставляется
Если готовы оплатить помощь, — звоните в скайп, могу подключиться к вашему компу и всё исправить.

Игорь, огромное вам спасибо за эту работу!
Несколько лет использую ваш файл для классификации фильмов, но пару недель назад почему-то он перестал работать. Никакой критичности в этом нет, т.к. главное исправила благодаря обсуждениям тут, но мне непонятно и жутко интересно, почему так происходит. Может, это связано с активацией офиса(примерно в то же время было)? Офис 10й.
У меня 2 вкладки в этом файле, обновляю список на 2й, и затем новые позиции копирую в первую (накапливаю). При обновлении списка, после 60-70 позиций, макрос останавливается и сообщает об ошибке Run-time error 53 со сслыкой на строку ДатаСоздания = FileDateTime(ПутьКФайлу). Дело не файле, т.к. его удаление не помогло. Я добавила в скрипт «On Error Resume Next», список обновляется до конца, но перестают запускаться фильмы по гиперссылке в 1й вкладке «не удается открыть указанный файл» (во 2й работают), хотя файл и макросы одни и те же. Знаете, в чем может быть причина?

Источник

Adblock
detector

Источник