Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Объект-коллекция "Files" - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объект-коллекция "Files" (Макросы/Sub)
Объект-коллекция "Files"
AndreTM Дата: Четверг, 06.11.2014, 17:48 | Сообщение № 21
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
Друзья, вам же ответили - в FSO из WSH, коллекции Files и Folders не работают с индексами, независимо от используемого хост-приложения :)
Вполне возможно , что "For Each" OO надеется на коллекцию, поддерживающую индексы. Поэтому и рубится...

Андрей, вроде бы DIR вполне устаканивает твои проблемы? Забей ты на этот глюк в OO :D

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM - Четверг, 06.11.2014, 17:51
 
Ответить
СообщениеДрузья, вам же ответили - в FSO из WSH, коллекции Files и Folders не работают с индексами, независимо от используемого хост-приложения :)
Вполне возможно , что "For Each" OO надеется на коллекцию, поддерживающую индексы. Поэтому и рубится...

Андрей, вроде бы DIR вполне устаканивает твои проблемы? Забей ты на этот глюк в OO :D
Автор - AndreTM
Дата добавления - 06.11.2014 в 17:48
RAN Дата: Четверг, 06.11.2014, 17:53 | Сообщение № 22
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Я и забил. :D

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЯ и забил. :D
Автор - RAN
Дата добавления - 06.11.2014 в 17:53
krosav4ig Дата: Четверг, 06.11.2014, 20:23 | Сообщение № 23
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а еси так
[vba]
Код
    Set fso = CreateObject("Scripting.FileSystemObject")
     Set fld = fso.GetFolder(ThisWorkbook.Path)
     Set ss = New Collection
     Set ss = fld.Files
     For Each ff In ss
         Debug.Print ff.Name
     Next
[/vba], чем черт не шутит, вдруг сработает

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеа еси так
[vba]
Код
    Set fso = CreateObject("Scripting.FileSystemObject")
     Set fld = fso.GetFolder(ThisWorkbook.Path)
     Set ss = New Collection
     Set ss = fld.Files
     For Each ff In ss
         Debug.Print ff.Name
     Next
[/vba], чем черт не шутит, вдруг сработает
Автор - krosav4ig
Дата добавления - 06.11.2014 в 20:23
RAN Дата: Четверг, 06.11.2014, 20:33 | Сообщение № 24
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Неа! :)

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНеа! :)
Автор - RAN
Дата добавления - 06.11.2014 в 20:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объект-коллекция "Files" (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!