Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не обычная задача / 3 сообщений из 3, страница 1 из 1
13.02.2010, 09:57
    #36467319
Ichisen
Ichisen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не обычная задача
У меня есть список файлов в Excel около 4 тысяч записей (только имена без расширений). Все эти файлы лежат в одной папке, но примерно 10% процентов отсутствует. Нужно выяснить какие отсутствуют. Помогите с написанием скрипта на Excel.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2010, 11:01
    #36467340
Dophin
Dophin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не обычная задача
Sub rr()
Dim Directory As String
Dim f As String
Dim i As Integer
Directory = "e:\VBA_2002\"

f = Dir(Directory)
Do While f <> ""
i = i + 1
Range("a" & i) = f
f = Dir()
Loop

End Sub

получение имен всех файлов из папки e:\VBA_2002\

без Вашего примера помочь Вам больше - довольно сложно :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.02.2010, 10:36
    #36468239
Сергей06
Сергей06
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не обычная задача
А также можно через cmd:
пуск - выполнить - cmd
ввести dir C:\ > C:\файлы.txt
где "C:\" - путь к папке, "C:\файлы.txt" - путь к файлу, в который запишутся названия файлов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Не обычная задача / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 522ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2178492]:
 0ms
get settings:
 8ms
get forum list:
 20ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 197ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 240ms
total:  522ms
x
x
Закрыть


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