ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как перебрать в папке какой-то тип файлов?
6 сообщений из 6, страница 1 из 1
Как перебрать в папке какой-то тип файлов?
    #38689356
asd456
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asd456
Гость
Этот код использую для перебора файлов. Но, этот код перебрает все файлы в папке. А мне надо какой-то тип файлов, например DOC или TXT. Как можно делать такое?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
x = "D:\"
file = Dir(x)
i = 1
Do While file <> ""
....

Loop
...
Рейтинг: 0 / 0
07.07.2014, 13:00
| Ответить | Цитировать | Написать  
Как перебрать в папке какой-то тип файлов?
    #38689357
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
x = "D:\*.txt"
...
Рейтинг: 0 / 0
07.07.2014, 13:03
| Ответить | Цитировать | Написать  
Как перебрать в папке какой-то тип файлов?
    #38689363
asd456
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asd456
Гость
Тогда в чем моя ошибка здесь ?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
x = "D:\*.txt"
file = Dir(x)
i = 1
Do While file <> ""
    i = i + 1
    Set b = Workbooks.Open(Filename:=x & file, UpdateLinks:=0)
    b.SaveAs CStr(i) & ".xls", FileFormat:=xlOpenXMLWorkbook
    b.Close savechanges:=True
    file = Dir
Loop
...
Рейтинг: 0 / 0
07.07.2014, 13:11
| Ответить | Цитировать | Написать  
Как перебрать в папке какой-то тип файлов?
    #38689368
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
asd456,

как минимум в отсутствии полного пути для сохранения и в том, что расширение ".xls" не является верным для типа xlOpenXMLWorkbook. Правильный тип: xlNormal. Или расширение указывайте ".xlsx".
Дальше:
Код: vbnet
1.
Set b = Workbooks.Open(Filename:=x & file, UpdateLinks:=0)


Посмотрите, что у Вас в x хранится. Удивитесь результату.
правильно:
Код: vbnet
1.
Set b = Workbooks.Open(Filename:="D:\" & file, UpdateLinks:=0)


Ну и при сохранении так же добавьте путь к файлу:
Код: vbnet
1.
b.SaveAs "D:\" & CStr(i) & ".xls", FileFormat:=xlOpenXMLWorkbook



И по-хорошему i = i + 1 надо в конец цикла запихивать, а не в начало. Хотя тут смотря в чем цель...
...
Рейтинг: 0 / 0
07.07.2014, 13:25
| Ответить | Цитировать | Написать  
Как перебрать в папке какой-то тип файлов?
    #38689557
asd456
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asd456
Гость
Использую такой код, наконец все нормально работает. Только вот 1-й столбец не принимается как дата (общий остается). А при простого "сохранит как- xlsx" такого проблема не бывает. Помогите пожалуйста, что надо менять в этом коде, чтобы формат ячеек 1-го столбца была как дата?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim x As String
Dim file As String
Dim a As Workbook
Dim b As Workbook
Dim i As Integer
Set a = ThisWorkbook
x = "D:\1\*.txt"
file = Dir(x)
i = 1
Do While file <> ""
    i = i + 1
    Set b = Workbooks.Open(Filename:="D:\1\" & file, UpdateLinks:=0)
    b.SaveAs "D:\1\" & file & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    b.Close savechanges:=True
    file = Dir
Loop
...
Рейтинг: 0 / 0
07.07.2014, 15:44
| Ответить | Цитировать | Написать  
Как перебрать в папке какой-то тип файлов?
    #38689620
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Запишите макрос открытия своего txt файла, возможно там окажутся какие-то дополнительные ключи
...
Рейтинг: 0 / 0
07.07.2014, 16:55
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как перебрать в папке какой-то тип файлов?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=38689557&tid=2173949]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 43ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 17ms
total:  144ms
созд. / загр.: 144ms
x
x
Закрыть


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