Сделать заказ

Сделать заказ макроса

Категории сайта

Поиск

Название листов не открывая Excel


Dim myXL As Object
Set myXL = GetObject("C:\framework VL.xls")
For i = 1 To myXL.Sheets.Count
	Debug.Print myXL.Sheets(i).Name
Next
Set myXL = Nothing