ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запустить из vba проводник с выбранными файлами?
17 сообщений из 17, страница 1 из 1
Запустить из vba проводник с выбранными файлами?
    #39393086
Фотография Quiet333
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Quiet333
Участник
Из VBA запускаю проводник в нужную директорию
Код: vbnet
1.
Shell "explorer.exe " & "w:\RIPGP_DataBase\", vbNormalFocus



можно ли (без особого шаманства) из тех 2000 фалов ней показать только те, в названии которых есть заданные символы (например 123)?

Как вариант открыть эти файлы ( там все *.htm)
...
Рейтинг: 0 / 0
27.01.2017, 14:38
| Ответить | Цитировать | Написать  
Запустить из vba проводник с выбранными файлами?
    #39393100
Фотография Quiet333
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Quiet333
Участник
ps другими словами как на проводник наложить фильтр?
там всего 2-3 файла отвечают критерию.
...
Рейтинг: 0 / 0
27.01.2017, 14:46
| Ответить | Цитировать | Написать  
Запустить из vba проводник с выбранными файлами?
    #39393118
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
Quiet333Как вариант открыть эти файлы ( там все *.htm) Найти по маске все нужные файлы в папке можно родной Dir или с помощью FSO, а открыть, например, так:
Код: vbnet
1.
Application.FollowHyperlink "w:\RIPGP_DataBase\" & "ИмяФайла.htm"
...
Рейтинг: 0 / 0
27.01.2017, 15:01
| Ответить | Цитировать | Написать  
Запустить из vba проводник с выбранными файлами?
    #39393148
Фотография Quiet333
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Quiet333
Участник
Анатолий ( Киев ),
Спасибо. пробую.
...
Рейтинг: 0 / 0
27.01.2017, 15:21
| Ответить | Цитировать | Написать  
Запустить из vba проводник с выбранными файлами?
    #39396826
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
Quiet333,
примерчик (проверь библиотеки на предмет битых ссылок, акс 2003)
...
Рейтинг: 0 / 0
01.02.2017, 23:29
| Ответить | Цитировать | Написать  
Запустить из vba проводник с выбранными файлами?
    #39397146
Фотография Quiet333
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Quiet333
Участник
guest_rusimport,
Спасибо! именно то, что нужно.
Сейчас под себя подрихтую..

Я правильно понял
1. что мой путь к директории нужно указать здесь
Код: vbnet
1.
 SH.Open CurrentProject.Path


типа
Код: vbnet
1.
SH.Open "W:\RIPgp_DataBase\"



2. если сеть тормозит, то увеличить SleepVB ?
...
Рейтинг: 0 / 0
02.02.2017, 12:29
| Ответить | Цитировать | Написать  
Запустить из vba проводник с выбранными файлами?
    #39397156
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
Quiet333,

ну, да, поиграйтесь параметрами, если будет ругаться на какие-то методы в программе, то поменяйте приоритеты библиотек в References
...
Рейтинг: 0 / 0
02.02.2017, 12:35
| Ответить | Цитировать | Написать  
Запустить из vba проводник с выбранными файлами?
    #39397166
Фотография Quiet333
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Quiet333
Участник
Попробовал. все работает.
Только когда выбирается ~ 10 файлов иногда открывает во вкладках одного IE,
а иногда открывает несколько IE в которых может быть несколько вкладок.
Но это пустяки.
Спасибо.
...
Рейтинг: 0 / 0
02.02.2017, 12:46
| Ответить | Цитировать | Написать  
Запустить из vba проводник с выбранными файлами?
    #39397177
studieren
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
studieren
Участник
Quiet333,

А почему не используете обычный "Application.FileDialog"? Там ведь как раз таки есть метод/свойство "FilterIndex".
Не вариант?
...
Рейтинг: 0 / 0
02.02.2017, 13:02
| Ответить | Цитировать | Написать  
Запустить из vba проводник с выбранными файлами?
    #39397190
Фотография Quiet333
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Quiet333
Участник
studieren,

Это могло быть как вариант.
Но изначально заказчик хотел ОТКРЫТЬ файлы, названия которых отвечают критерию.
Хотя я этого не понимаю, если файлов может быть, хоть иногда, но до 10-15 штук.
а guest_rusimport предложил именно то, что нужно.
...
Рейтинг: 0 / 0
02.02.2017, 13:19
| Ответить | Цитировать | Написать  
Запустить из vba проводник с выбранными файлами?
    #39398017
Фотография Quiet333
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Quiet333
Участник
studieren
А почему не используете обычный "Application.FileDialog"?

еще одно подтверждение к словам
guest_rusimportда, так частенько бывает, у заказчика "семь пятниц на неделе"
Начинаю плясать вокруг "Application.FileDialog"
ps уж не знаю что ставить или
...
Рейтинг: 0 / 0
03.02.2017, 12:13
| Ответить | Цитировать | Написать  
Запустить из vba проводник с выбранными файлами?
    #39398046
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
Quiet333studierenА почему не используете обычный "Application.FileDialog"?

еще одно подтверждение к словам
guest_rusimportда, так частенько бывает, у заказчика "семь пятниц на неделе"
Начинаю плясать вокруг "Application.FileDialog"
ps уж не знаю что ставить или
да поможет тебе святой Access , да укрепит твои намерения Application.FileDialog )
...
Рейтинг: 0 / 0
03.02.2017, 12:38
| Ответить | Цитировать | Написать  
Запустить из vba проводник с выбранными файлами?
    #39399454
Фотография Quiet333
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Quiet333
Участник
Я правильно понял, что в Application.FileDialog можно установить фильтр только на тип файла?
Код: vbnet
1.
.Filters.Add "файлы Excel", "*.xls"


вот на такую конструкцию он ругается
Код: vbnet
1.
.Filters.Add "нужные файлы", "*123*.xls"



я надеялся, что он покажет файлы в названии которых есть 123
...
Рейтинг: 0 / 0
06.02.2017, 17:16
| Ответить | Цитировать | Написать  
Запустить из vba проводник с выбранными файлами?
    #39399464
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
Quiet333Я правильно понял, что в Application.FileDialog можно установить фильтр только на тип файла?
Код: vbnet
1.
.Filters.Add "файлы Excel", "*.xls"


вот на такую конструкцию он ругается
Код: vbnet
1.
.Filters.Add "нужные файлы", "*123*.xls"



я надеялся, что он покажет файлы в названии которых есть 123
совершенно верно ... выдержка из help -
"The text representing the description of the file extension you want to add to the list of filters."
...
Рейтинг: 0 / 0
06.02.2017, 17:36
| Ответить | Цитировать | Написать  
Запустить из vba проводник с выбранными файлами?
    #39399491
Фотография Quiet333
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Quiet333
Участник
жаль
...
Рейтинг: 0 / 0
06.02.2017, 17:58
| Ответить | Цитировать | Написать  
Запустить из vba проводник с выбранными файлами?
    #39399661
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
Quiet333жаль
есть другой диалог открытия файлов , где это возможно (пример на основе статьи с www.hiprog.com)
...
Рейтинг: 0 / 0
06.02.2017, 21:09
| Ответить | Цитировать | Написать  
Запустить из vba проводник с выбранными файлами?
    #39399981
Фотография Quiet333
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Quiet333
Участник
guest_rusimport,

Пример заработал просто прекрасно!!! Спасибо.
Как это работает мне уже не понять. Но оно работает!
На www.hiprog.com статью не нашел, ну и ладно.
Если и этот вариант просителей не устроит - пошлю их на ... FSO (или другие какие буквы..)
...
Рейтинг: 0 / 0
07.02.2017, 12:56
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запустить из vba проводник с выбранными файлами?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39393118&tid=1612748]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 39ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 13ms
total:  142ms
созд. / загр.: 142ms
x
x
Закрыть


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