![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#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 |
![]() |
![]() |
![]() |
#12 |
Пользователь
Регистрация: 02.10.2013
Сообщений: 78
|
![]()
Вопрос снят, я разобрался
|
![]() |
![]() |
![]() |
#13 |
Форумчанин
Регистрация: 25.03.2010
Сообщений: 417
|
![]()
И правильно делает. что не видит.
наверно так: Код:
|
![]() |
![]() |
![]() |
#14 |
Пользователь
Регистрация: 02.10.2013
Сообщений: 78
|
![]()
При выборе папки он и не должен видеть книги.
Я так все оставил и все загружает Set coll = FilenamesCollection(InvoiceFolder$, "*.xls*") |
![]() |
![]() |
![]() |
#15 |
Форумчанин
Регистрация: 25.03.2010
Сообщений: 417
|
![]()
да, но тогда если в папке случайно окажется файл с названием, скажем "База данных, единственная копия. Не удалять!" Ваш макрос и ее переварит)
|
![]() |
![]() |
![]() |
#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 |