Осуществить в папке поиск файлов, имена которых содержат название фирмы, и скопировать определенные их строки

@Fiot · Регистрация: 17.11.2014

Студворк — интернет-сервис помощи студентам

На словах вроде просто звучит цель задачи, но много не понимаю как сделать.
Задача простая : пройтись по файлам находящиеся в папке , (имя файла должно совпадать с названием компании , хотя сами файлы отличаются друг от друга название, главное что в них есть само название фирмы(textbox1)), и если есть совпадения в этом файле с textbox 2 то он копирует это строку ( всю строку из excel) в новый файл,и идет дальше смотреть где есть совпадение с textbox 2 что бы их тоже скопировать, если нет то он закрывает файл и идет в другой, если нигде нет , то просто просмотрел все файлы и все ?

Осуществить в папке поиск файлов, имена которых содержат название фирмы, и скопировать определенные их строки

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
If TextBox1 > 1 Then Open ThisWorkbook.Path & .xsl For Input As 1
Open "C:/..." For Output As #2
Print #2, Tab(10); "ðåçóëüòàòû "
'if textbox2 'åñòü òàêîå íàçâàíèå â ôàéëå then 'êîïèðóé âñþ ñòðîêó  â #2 : close #1
' Îí  çàêðûâàåò ýòîò ôàéë â êîòîðîì ñìîòðåëü åñòü ëè òî, ÷òî ïðîïèñàíî â textbox 2
'Ïîòîì äàëüøå èäåò ïî ïàïêå îòêðûâàåò ôàéë â êîòîðîì åñòü íàçâàíèå ôèðìû è ïðîâåðÿåò òàì
' Åñëè òàì íåò òî îí çàêðûâàåò åãî , è èäåò â äðóãîé è òàê ïîêà íå ïðîéäåò ïî âñåì ôàéëàì
' ãäå åñòü íàçâàíèå ôèðìû (ïðèòîì ñàìî íàçâàíèå ôàéëà ìîæåò áûòü ðàçíîå, ãëàâíîå åñòü íàçâàíèå ôèðìû)
' åñëè îí íàõîäèò ÿ÷åéêó = textbox 2 òî îí êîïèðóåò âñþ ñòðîêó è âñòàâëÿåò åå â #2

@Fiot · 26.11.2014, 12:39 **[ТС]**

Вот это поворот ...
1) Открываю, вписываю

2)Нажимаю поиск- он открывает файл , находит то что надо и ошибка

3) Нажимаю debug показывает на это строку

4) Когда все закрываю, просматриваем исходный файл где макрос, туда скопирована одна строка ..

При это это тот же пример который я скинул вам...... я ничего не понимаю...

@Fiot · 26.11.2014, 14:17 **[ТС]**

Увы, я даже создал новый файл с макросом, пытался там , так же копирует первую и выдает ту же ошибку....
я не понимаю, при этом ваш работает ..... ну чем там еще может отличаться ? единственное у меня .xlsm а у вас.xls
Но при этом мой пример у вас работает.

@Fiot · 27.11.2014, 11:57 **[ТС]**

А можно ли доработать этот макрос что бы он выводил это значения нормально , просто работа со счетами - копирует не корректно , не "читабельно" так сказать. Что бы макрос сразу делал высоту ячейки нормальной, а длину что бы помещалась на экран , что бы ползунком не уходить в право.
Что бы было понятно про что я , прикладываю пример работы, проделав ее , все выше сказанное станет понятно , и еще один вопрос, а можно сделать несколько textbox'ов , что бы не сколько товаров искать за один клик, или это в корне меняет программу ?
Пример работы.rar

Отрицательный результат - тоже результат))

Аксима · 27.11.2014, 12:33

По теме: все можно реализовать...
С уважением,

Аксима

@Fiot · 27.11.2014, 12:45 **[ТС]**

Сообщение от Аксима

Не по теме:
Говорите, что макрос не работает, а сами втихаря им пользуетесь? Вот вы какие хитрые...

1)Стоп, я же писал что ВАШ макрос работает ! Но только ваш файл которые вы прислали как пример! Если копировать макрос в другой файл он выдает такую ошибку ! И я не могу адаптировать вам макрос под создание нового файла! Что я и пытался выяснить в своих Премерах! Приходится копировать ваш файл во все документы, так как по анологии создавая новый макрос он выдает ошибку. я и пытался понять почему ваш работает , а такой же созданный мной нет.
я двое суток пытался реализовать ваш макрос в свой файл, но не получилось, в итоге пришлось брать полностью ваш документ из примера и его копировать...
Я не хочу халявы.... я хочу понять как все это работает ...
Про отношение вы все не правильно поняли !!!!!!

@Fiot · 27.11.2014, 14:57 **[ТС]**

Смысл в том что у ваш пример работает !
А мой нет , я проверял все скрипты , но он выдает мне ошибку , я до сих пор не могу понять почему ???

Тот файл который вы присылаете функционирует во всех папка и со всеми excel , мой везде выдает ошибку...
я не могу с этим разобраться. Поэтому и воспользовался вашим файлом а не вашим скриптом....
и вот два файла.
они одинаковы по скриптам, но мой не работает , почему ?
Пример не работает.rar Пример работы.rar

@Fiot · 27.11.2014, 16:10 **[ТС]**

Это все на работе) Москва - м. Шоссе энтузиастов.
я сейчас попробую видео записать)))

@Fiot · 27.11.2014, 22:38 **[ТС]**

это смешно- дома работает, видимо на работе что то не то с ПО. хотя при этом ваш документ работает.....
Это бред ..
Но вот теперь :
Спасибо большое за программу, работает как надо ,красота, после редакции вообще мечта.)
Спасибо за помощь и потраченное время) Если кому то понадобиться примеры выше смотрите ))
Вопрос по программе : он копирует всю строку (включая пустые ячейки ) ? или только те ячейки которые заполнены, просто цену за ед. товара я поставил умножать на 1.18 , но когда он начинает копировать формула из ячейки исчезает. От сюда и вопрос , он копирует всю строку или только ячейки заполненные ?

@Fiot · 28.11.2014, 11:53 **[ТС]**

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

Аксима · 28.11.2014, 12:11

Умножение: вставьте Range("AH1:AH36").Formula = "=Z1*1.18" перед End Sub в процедуре CommandButton1_Click

С уважением,

Аксима

@Fiot · 28.11.2014, 12:25 **[ТС]**

Точно , спасибо , при этом диапазон можно сделать любой.
Все работает четко )

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .

@Fiot 3 / 3 / 0 Регистрация: 17.11.2014 Сообщений: 118
	26.11.2014, 12:39 [ТС]
	Вот это поворот ... 1) Открываю, вписываю 2)Нажимаю поиск- он открывает файл , находит то что надо и ошибка 3) Нажимаю debug показывает на это строку 4) Когда все закрываю, просматриваем исходный файл где макрос, туда скопирована одна строка .. При это это тот же пример который я скинул вам...... я ничего не понимаю... 0

@Fiot 3 / 3 / 0 Регистрация: 17.11.2014 Сообщений: 118
	26.11.2014, 14:17 [ТС]
	Увы, я даже создал новый файл с макросом, пытался там , так же копирует первую и выдает ту же ошибку.... я не понимаю, при этом ваш работает ..... ну чем там еще может отличаться ? единственное у меня .xlsm а у вас.xls Но при этом мой пример у вас работает. 0

@Fiot 3 / 3 / 0 Регистрация: 17.11.2014 Сообщений: 118
	27.11.2014, 11:57 [ТС]
	А можно ли доработать этот макрос что бы он выводил это значения нормально , просто работа со счетами - копирует не корректно , не "читабельно" так сказать. Что бы макрос сразу делал высоту ячейки нормальной, а длину что бы помещалась на экран , что бы ползунком не уходить в право. Что бы было понятно про что я , прикладываю пример работы, проделав ее , все выше сказанное станет понятно , и еще один вопрос, а можно сделать несколько textbox'ов , что бы не сколько товаров искать за один клик, или это в корне меняет программу ? Пример работы.rar Отрицательный результат - тоже результат)) 0

@Fiot 3 / 3 / 0 Регистрация: 17.11.2014 Сообщений: 118
	27.11.2014, 14:57 [ТС]
	Смысл в том что у ваш пример работает ! А мой нет , я проверял все скрипты , но он выдает мне ошибку , я до сих пор не могу понять почему ??? Тот файл который вы присылаете функционирует во всех папка и со всеми excel , мой везде выдает ошибку... я не могу с этим разобраться. Поэтому и воспользовался вашим файлом а не вашим скриптом.... и вот два файла. они одинаковы по скриптам, но мой не работает , почему ? Пример не работает.rar Пример работы.rar 0

@Fiot 3 / 3 / 0 Регистрация: 17.11.2014 Сообщений: 118
	27.11.2014, 16:10 [ТС]
	Это все на работе) Москва - м. Шоссе энтузиастов. я сейчас попробую видео записать))) 0

@Fiot 3 / 3 / 0 Регистрация: 17.11.2014 Сообщений: 118
	27.11.2014, 22:38 [ТС]
	это смешно- дома работает, видимо на работе что то не то с ПО. хотя при этом ваш документ работает..... Это бред .. Но вот теперь : Спасибо большое за программу, работает как надо ,красота, после редакции вообще мечта.) Спасибо за помощь и потраченное время) Если кому то понадобиться примеры выше смотрите )) Вопрос по программе : он копирует всю строку (включая пустые ячейки ) ? или только те ячейки которые заполнены, просто цену за ед. товара я поставил умножать на 1.18 , но когда он начинает копировать формула из ячейки исчезает. От сюда и вопрос , он копирует всю строку или только ячейки заполненные ? 0

@Fiot 3 / 3 / 0 Регистрация: 17.11.2014 Сообщений: 118
	28.11.2014, 11:53 [ТС]
	Проблему с шириной ( конкретно в моем случае ) я решил с помощью вставки границ и сохраненный именно под эти фалы размеры. (может кому еще пригодиться) Вот только с умножение 1.18 я решил сделать через протяжку, т.к. он копирует всю строку, по другому же не получиться ? Пример работы.rar 0

Аксима 6082 / 1327 / 195 Регистрация: 12.12.2012 Сообщений: 1,023
	28.11.2014, 12:11
	Умножение: вставьте Range("AH1:AH36").Formula = "=Z11.18" перед End Sub* в процедуре CommandButton1_Click С уважением, Аксима 1

@Fiot 3 / 3 / 0 Регистрация: 17.11.2014 Сообщений: 118
	28.11.2014, 12:25 [ТС]
	Точно , спасибо , при этом диапазон можно сделать любой. Все работает четко ) 0

Осуществить в папке поиск файлов, имена которых содержат название фирмы, и скопировать определенные их строки

Решение