Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открыть все файлы в папке / 10 сообщений из 10, страница 1 из 1
15.06.2012, 10:02
    #37838974
chyma
chyma
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть все файлы в папке
Есть трехуровневая система каталогов ( Территория => Год => Месяц ). В папках по месяцам находятся файлы. Как открыть по очереди все файлы из всех территорий?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2012, 10:13
    #37839009
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть все файлы в папке
Перебрать рекурсивно каталоги, перебрать в них файлы. Проблема в чем?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2012, 10:23
    #37839030
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть все файлы в папке
> Автор: chyma
> Есть трехуровневая система каталогов ( Территория => Год => Месяц ). В папках по месяцам находятся файлы. Как
> открыть по очереди все файлы из всех территорий?

В Тотал командере нужно встать в папку, которая содержит папки територий, после чего нажать Ctrl+B и по после чего нужно
пройтись по получившемуся списку и открыть каждый файл с последующим закрытием, а то если попробуешь открыть все сразу
можно не дождатся ответа и Reset будет лучшим выходом :)

P.S. Вопрос об абстрактном коне в сферическом вакууме.

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2012, 10:24
    #37839035
chyma
chyma
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть все файлы в папке
Вопрос по VBA Excel. Как будет выглядеть код?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2012, 10:28
    #37839048
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть все файлы в папке
для начала поиск
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2012, 10:35
    #37839065
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть все файлы в папке
> Автор: chyma
> Вопрос по VBA Excel. Как будет выглядеть код?

код будет выглядеть как код. А в папках лежат файлы фотошопа? И нужно открыть их? Так это просто!
Для VBA Excel код открытия будет такой:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Public Declare Function ShellExecute _
 Lib "shell32.dll" _
 Alias "ShellExecuteA" ( _
 ByVal hwnd As Long, _
 ByVal lpOperation As String, _
 ByVal lpFile As String, _
 ByVal lpParameters As String, _
 ByVal lpDirectory As String, _
 ByVal nShowCmd As Long) _
 As Long
....

ShellExecute 0, "open", "Путь к файлу\имя_файла.psd", "", "", 0



Тебе осталось найти путь :)

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2012, 10:56
    #37839091
chyma
chyma
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть все файлы в папке
Игорь Горбонос,

в папках лежат файлы .xls
Не совсем подходит, потому что в папке С:\отчеты\ находится 10 папок с территориями, в каждой из них по две папки:2011 и 2012. в каждой из них до 12 папок с месяцами. а там уже .xls фалы, с различными названиями.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2012, 11:06
    #37839119
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть все файлы в папке
> Автор: chyma
> в папках лежат файлы .xls

Хорошо, т.е. вопрос звучит так:

Есть трехуровневая система каталогов ( Территория => Год => Месяц ). В папках по месяцам находятся файлы Екселя. Как с
помощью Excel VBA открыть по очереди все файлы из всех территорий?


Теперь встречный вопрос:
А как пробовал делать ты и что не получается?

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2012, 11:10
    #37839127
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть все файлы в папке
chymaЕсть трехуровневая система каталогов ( Территория => Год => Месяц ). В папках по месяцам находятся файлы. Как открыть по очереди все файлы из всех территорий?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Set fso = CreateObject("Scripting.FileSystemObject")

Set КорневаяПапка = fso.GetFolder(App.Path)

Set ФайлыВКорневойПапке = КорневаяПапка.Files

For Each ФайлВПапке In ФайлыВКорневойПапке
    MsgBox ФайлВПапке.Name
Next
    
Set ПодПапки = КорневаяПапка.SubFolders

For Each ПодПапка In ПодПапки
    Set ФайлыВПодПапке = ПодПапка.Files
    
    For Each ФайлВПапке In ФайлыВПодПапке
        MsgBox ФайлВПапке.Name
    Next
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.07.2012, 14:44
    #37899159
economistalex
economistalex
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открыть все файлы в папке
Спасибо! Блин, как все просто, когда так понятно написано! Пошел исправлять "костыли" из ф-ии Dir...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Открыть все файлы в папке / 10 сообщений из 10, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 423ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2157550]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 44ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 292ms
total:  423ms
x
x
Закрыть


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