ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Файлы??? (находить все файлы в папке и записывать имена в МАССИВ)
6 сообщений из 6, страница 1 из 1
Файлы??? (находить все файлы в папке и записывать имена в МАССИВ)
    #34151224
MAJIbIIII
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MAJIbIIII
Участник
Вопрос стоит следующим образом:
Есть вот такая структура папок:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
[Январь]
 |
 |--файл1.xls
 |--файл2.xls
 |--Итог1.xls
 |
[Февраль]
 ...
 |
Итог2.xls

Надо: Чтобы макрос в файле "Итог1.xls" находил все файлы в папке и записывал имена в МАССИВ (динамический, изначально неизвестно, сколько будет файлов).

Макрос в файле "Итог2.xls" находил все подпапки в своей директории и проверял наличие файлов "Итог1.xls". Если файл существует, то название поддиректории записывается в МАССИВ (опять же динамический)
Подскажите как организовать эти 2 макроса.

P.S. За любую помошь (особенно примеры) заранее спасибо. :)
...
Рейтинг: 0 / 0
23.11.2006, 17:40:14
| Ответить | Цитировать | Написать  
Файлы??? (находить все файлы в папке и записывать имена в МАССИВ)
    #34151312
fffffff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fffffff
Гость
Примеры
...
Рейтинг: 0 / 0
23.11.2006, 18:00:49
| Ответить | Цитировать | Написать  
Файлы??? (находить все файлы в папке и записывать имена в МАССИВ)
    #34151648
MAJIbIIII
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MAJIbIIII
Участник
fffffff Примеры

Глянул. Общие данные, я такое читал, но мне нужно именно, чтобы читал по маске "Файл?.xls" и найдя файлы записывал в массив.
...
Рейтинг: 0 / 0
23.11.2006, 20:28:24
| Ответить | Цитировать | Написать  
Файлы??? (находить все файлы в папке и записывать имена в МАССИВ)
    #34151872
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
MAJIbIIII...нужно именно, чтобы читал по маске "Файл?.xls" и найдя файлы записывал в массив.

Может так?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Option Explicit
Sub test()
    Dim strName As String
    Dim strPath As String
    Dim arrMatrix() As String
    Dim i As Long
    
    strPath = "C:\temp\"
    strName = Dir(strPath & "Файл?.xls")
    
    ReDim arrMatrix( 0 ) As String
    Do While Len(strName) >  0 
        arrMatrix(UBound(arrMatrix)) = strPath & strName
        ReDim Preserve arrMatrix(UBound(arrMatrix) +  1 )
        strName = Dir
    Loop
    ReDim Preserve arrMatrix(UBound(arrMatrix) -  1 )
End Sub

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
24.11.2006, 00:47:10
| Ответить | Цитировать | Написать  
Файлы??? (находить все файлы в папке и записывать имена в МАССИВ)
    #34151884
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Для второй части что-нибудь в этом духе:
http://tinyurl.com/yxc4nx
http://tinyurl.com/wuz8g


KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
24.11.2006, 01:01:18
| Ответить | Цитировать | Написать  
Файлы??? (находить все файлы в папке и записывать имена в МАССИВ)
    #34151960
MAJIbIIII
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MAJIbIIII
Участник
KL (XL)Для второй части что-нибудь в этом духе:
http://tinyurl.com/yxc4nx
http://tinyurl.com/wuz8g


KL
[MVP - Microsoft Excel]


Там все в общих чертах (ну или у меня с английским туго), опишите, пожалуйта, все более доступным языком :)
...
Рейтинг: 0 / 0
24.11.2006, 04:56:04
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Файлы??? (находить все файлы в папке и записывать имена в МАССИВ)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34151872&tid=2183881]:
 0ms
get settings:
 10ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 40ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 233ms
total:  371ms
созд. / загр.: 371ms
x
x
Закрыть


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