ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Поиск файла в папке с помощью макроса
8 сообщений из 8, страница 1 из 1
Поиск файла в папке с помощью макроса
    #36058799
lex00
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lex00
Гость
Помогите, пожалуйста, с макросом. Так как я полный чайник в написании макроса! (один раз писал макрос на основе другого). У меня такая задача:
есть: в excel в столбец прописаны название файлов (в цифренном значении).
необходимо, чтобы макрос искал эти названия файлов в определенной папке.
в случае если нашел, было понятно, что файл найден по названию, к примеру поставится рядом "+" или цвет поменяет имя файла в столбце.
если не нашел, тогда ставит "-" или также меняет цвет имени файла в столбце.
и так весь список в excel.
теоретически я думаю не сложно, просто я не знаю команд.
помогите, плз, очень нужно!!!
...
Рейтинг: 0 / 0
25.06.2009, 08:26:58
| Ответить | Цитировать | Написать  
Поиск файла в папке с помощью макроса
    #36059334
anor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
anor
Участник
lex00,

навскидку такая функция вернёт ЛОЖЬ или ИСТИНУ по результатам поиска файла в папке

первый параметр путь, второй имя

Код: plaintext
1.
2.
3.
4.
5.
Function CheckFileExist(Path1 As String, FName1 As String) As Boolean
  CheckFileExist = False
  If Trim(Path1) <> "" And Trim(FName1) <> "" Then
    CheckFileExist = (Dir(CStr(Path1 & FName1)) <> "")
  End If
End Function
...
Рейтинг: 0 / 0
25.06.2009, 12:25:21
| Ответить | Цитировать | Написать  
Поиск файла в папке с помощью макроса
    #36059403
lex00
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lex00
Гость
anor,

супер, большое спасибо!

но я реально только учусь. практически ноль.

напиши, пожалуйста, полный макрос текстом.
к примеру нужно найти "12345" и "54321" в папке "c:\windows\". соответственно "12345" будет прописан вручную в excel, после ниже будет прописан "54321". вот нужно эти два названия найти в названиях файлов.

заранее большущее спасибо! очень выручаешь!!!! :)
...
Рейтинг: 0 / 0
25.06.2009, 12:49:23
| Ответить | Цитировать | Написать  
Поиск файла в папке с помощью макроса
    #36059543
anor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
anor
Участник
lex00,

пример в приложении
...
Рейтинг: 0 / 0
25.06.2009, 13:34:10
| Ответить | Цитировать | Написать  
Поиск файла в папке с помощью макроса
    #36059721
lex00
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lex00
Гость
anor,

БОЛЬШОЕ ТЕБЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО!!!!!
выручил!!!
...
Рейтинг: 0 / 0
25.06.2009, 14:19:11
| Ответить | Цитировать | Написать  
Поиск файла в папке с помощью макроса
    #36059979
lex00
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lex00
Гость
anor,

почему то пишет "#NAME?", когда пишу либо путь, либо имя файла.

может я что-то не то делаю? :(
...
Рейтинг: 0 / 0
25.06.2009, 15:39:41
| Ответить | Цитировать | Написать  
Поиск файла в папке с помощью макроса
    #36060211
anor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
anor
Участник
lex00,

Я такое смог воспроизвести только если на вход функции принудительно давать ошибку или ячейку с ошибкой.

попробуй этот вариант, если не поможет вышли файл с ошибкой
...
Рейтинг: 0 / 0
25.06.2009, 16:53:52
| Ответить | Цитировать | Написать  
Поиск файла в папке с помощью макроса
    #36060234
lex00
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lex00
Гость
anor,

спасибо за помощь, я уже решил проблему!! :)
...
Рейтинг: 0 / 0
25.06.2009, 16:59:35
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Поиск файла в папке с помощью макроса
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36060211&tid=2179349]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 160ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 221ms
total:  432ms
созд. / загр.: 432ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]