| |
|
|
| | есть папка, в ней файлы под номерами.
sFile = Dir(ThisWorkbook.path & Application.PathSeparator & "TZ\*.*")
While sFile <> ""
бла бла бла
wend
|
переберёт все файлы в директории. если *.* заменить на 1510 - переберёт только один файл.
а можно как-то задать, больше какого я хочу выбрать ? ( например больше 1510-го )
либо просто, либо, может, как-нить можно в диалоговом окне? про диалог ничего не знаю пока. | |
| |
| |
| |
|
|
| | можно перебирать по файлово
For Nomer= Start to End
sFile = Dir(ThisWorkbook.path & Application.PathSeparator & "TZ\" & trim (Str(Nomer)) )
While sFile <> ""
бла бла бла
wend
next
|
Start и End задаем в своей форме | |
| |
| |
| |
|
|
| | у меня не форма, у меня страница екселя )
поетому и форум не аксессовский )
да, я уже подумал, что надо наверно
int ( left ( myfilename, len ( myfilename )-4)) - отнимаем 4 правых буквы ( .xls ) и вот тебе и число вышло.
что-то такое.
в принципе-то как раз и интересно, как именно узнать задаваемые старт и енд.
что-то типа выпадающего списка, ну или на худой конец просто в ячейку писать
спасибо. | |
| |
| |
| |
|
|
| | а какая нам разница InputBox () никто в Екселе не отменял.
Start =InputBox ("Введите № начального файла")
End = Start + InputBox ("Введите Количество файлов для обработки") - 1 | |
| |
| |
| |
|
|
| | ток надо int ( nputBox ("Введите № начального файла") )
и енд соответственно преобразовать, а то получается ерунда
а вот
ThisWorkbook.path & Application.PathSeparator & "TZ\" & Str(Trim(iNomer)) имеет значение ("D:\excel\TZ\ 2201")
а Dir от этого значения : sFile = ""
и если в конец строки добавить & "*.*" или & ".*" - всё равно. не хочет он считать dir от этого значения.
соответственно сразу из цикла вываливается .
апд. написал и сам увидел - опять пробел перед 2201 )). убрал.
спасибо !! | |
| |
| |
| |
|
|
| | всё сделал
правда не стал морочиться с многоэтажными ссылками
файлик в директорию сую ( на общем диске ) и запускаю
но блин клинтон - как же он медленно считывает !!!!!
так должно быть ? никак нельзя ускорить чтение ячеек и запись их на лист в нашем файле ? | |
| |
| |
