Надо перебрать все имена листов и их номера в семействе.

23.01.2011, 12:53. **Показов** 2265. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста, в данной процедуре именно в цикле For Each
надо перебрать все имена листов и их номера в семействе(Items(?))

Visual Basic

Sub Test()
    Dim Obj As Object
    For Each Obj In Application.ActiveWorkbook.Sheets
        Debug.Print 'Имя листа: ' & Obj.Name
        Debug.Print 'Номер в семействе: ' & ?????????
    Next Obj
End Sub

23.01.2011, 15:04

Obj.Index

23.01.2011, 18:17

А для VBComponents index не получается...

Visual Basic

For Each Obj In OpenWb.VBProject.VBComponents
Debug.Print 'Имя листа: ' & Obj.Name
Debug.Print 'Номер в семействе: ' & ?????????
Next Obj

Savelev
	23.01.2011, 15:04	2
	Obj.Index

	23.01.2011, 18:17