|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
18.10.2013, 09:32 | #11 |
Пользователь
Регистрация: 02.10.2013
Сообщений: 78
|
Или в Module2 поменять это:
Function GetFolderPath(Optional ByVal Title As String = "Выберите папку", _ Optional ByVal InitialPath As String = "c:\") As String на это: Function GetFilePath(Optional ByVal Title As String = "Выберите папку", _ Optional ByVal InitialPath As String = "c:\", _ Optional ByVal FilterDescription As String = "Книги Excel", _ Optional ByVal FilterExtention As String = "*.xlsx*") As String |
18.10.2013, 11:33 | #12 |
Пользователь
Регистрация: 02.10.2013
Сообщений: 78
|
Вопрос снят, я разобрался
|
18.10.2013, 19:35 | #13 |
Форумчанин
Регистрация: 25.03.2010
Сообщений: 417
|
И правильно делает. что не видит.
наверно так: Код:
|
19.10.2013, 13:31 | #14 |
Пользователь
Регистрация: 02.10.2013
Сообщений: 78
|
При выборе папки он и не должен видеть книги.
Я так все оставил и все загружает Set coll = FilenamesCollection(InvoiceFolder$, "*.xls*") |
19.10.2013, 14:16 | #15 |
Форумчанин
Регистрация: 25.03.2010
Сообщений: 417
|
да, но тогда если в папке случайно окажется файл с названием, скажем "База данных, единственная копия. Не удалять!" Ваш макрос и ее переварит)
|
19.10.2013, 14:30 | #16 |
Пользователь
Регистрация: 02.10.2013
Сообщений: 78
|
Я с Вами согласен. Но у меня конкретная папка с книгами обрабатывается(путь я прописал).
Я сначала сохраняю в папке нужные книги затем включаю макрос. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Прошу помощи:) | valiza | Помощь студентам | 0 | 03.07.2009 11:58 |
Excel в xml, прошу помощи | CaH4oo | Microsoft Office Excel | 4 | 20.12.2008 09:31 |
Прошу помощи! | Oksana | Общие вопросы Delphi | 6 | 11.02.2007 18:36 |