Если книга открыта, то можно так:
Dim Book, iArray() As String
iBook = "Test.xls"
With Application.Workbooks.Item(iBook)
For x = 1 To .Sheets.Count
ReDim Preserve iArray(x)
iArray(x) = .Sheets.Item(x).Name
Next x
End With
Есть ли способ обработать закрытую книгу? Передача переменной iBook полного пути не помогла.
Dim Book, iArray() As String
iBook = "Test.xls"
With Application.Workbooks.Item(iBook)
For x = 1 To .Sheets.Count
ReDim Preserve iArray(x)
iArray(x) = .Sheets.Item(x).Name
Next x
End With
Есть ли способ обработать закрытую книгу? Передача переменной iBook полного пути не помогла.