Порядковый номер в For Each in

Вход

Регистрация

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

= Мир MS Excel/Порядковый номер в For Each in - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Порядковый номер в For Each in (Макросы/Sub)

Порядковый номер в For Each in

InExSu

Дата: Пятница, 15.12.2017, 10:31 | Сообщение № 1

Группа: Друзья

Ранг: Ветеран

Сообщений: 650

Репутация: 96 ±

Замечаний: 0% ±

Excel 2010, 365

Привет!

Перебираю файлы

[vba]

Код

Option Explicit
Sub ForEachIndex()
    Dim fs As Object, arrFiles As Object, ff As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set arrFiles = fs.GetFolder("c:\windows\").Files
    For Each ff In arrFiles
' на Locals вижу, что у Item есть номер. Как до него добраться?
        'MsgBox ff.Item    'как узнать порядковый номер Item
    Next
End Sub

[/vba]

на Locals вижу, что у Item есть номер. Как до него добраться?
Спасибо.