Давно не был на форуме. Здравствуйте...

[Rust]

Как считать в переменную индекс вновь созданной книги Excel.
Пример: (первая строка кода заведомо ошибочна)

wb = ActiveWorkbook.Index
Workbooks(wb).Close (0)

Заранее благодарен.

[alibek]

А зачем тебе индекс?
У тебя есть ссылка, есть ключ.

[Pavel55]

Можно попробывать что-нить такое

Код: Выделить всё

Sub Macro1()
    Dim newWB As Workbook
    Set newWB = Workbooks.Add
    Workbooks(newWB.Name).Close (0)
End Sub

или

Код: Выделить всё

Sub Macro2()
    Dim i&
    Workbooks.Add
    i = Application.Workbooks.Count
    Workbooks(i).Close (0)
End Sub

[Rust]

Можно конечно так:
wb = ActiveWorkbook.Name
Workbooks(wb).Close (0)

Но хотелось понять, в каком свойстве лежит Index

[Rust]

Спасибо!

[GSerg]

Я повторю вопрос Алибека, который и Rust, и Pavel55 проигнорировали.

Зачем тебе индекс, если у тебя уже есть ссылка на объект?

[Rust]

1. Одновременно открыто много файлов Excel.
2. Создаётся новая книга, в которой производятся некие вычисления.
3. Могут быть созданы ещё новые книги.
4. Книгу из пункта два надо закрыть.

[alibek]

И кто тебе мешает?
Set wb = ActiveWorkbook
...
wb.Close

[Rust]

Спасибо!