Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Файлы??? (находить все файлы в папке и записывать имена в МАССИВ) / 6 сообщений из 6, страница 1 из 1
23.11.2006, 17:40:14
    #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, 18:00:49
    #34151312
fffffff
fffffff
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы??? (находить все файлы в папке и записывать имена в МАССИВ)
Примеры
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.11.2006, 20:28:24
    #34151648
MAJIbIIII
MAJIbIIII
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы??? (находить все файлы в папке и записывать имена в МАССИВ)
fffffff Примеры

Глянул. Общие данные, я такое читал, но мне нужно именно, чтобы читал по маске "Файл?.xls" и найдя файлы записывал в массив.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2006, 00:47:10
    #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, 01:01:18
    #34151884
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Файлы??? (находить все файлы в папке и записывать имена в МАССИВ)
Для второй части что-нибудь в этом духе:
http://tinyurl.com/yxc4nx
http://tinyurl.com/wuz8g


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


KL
[MVP - Microsoft Excel]


Там все в общих чертах (ну или у меня с английским туго), опишите, пожалуйта, все более доступным языком :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Файлы??? (находить все файлы в папке и записывать имена в МАССИВ) / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 300ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183881]:
 0ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 29ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 210ms
total:  300ms
x
x
Закрыть


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