Excel -> 2.5 несложных вопроса

[Бутч]

Здавствуйте!
Выкладываю суть проблем:

(1) Есть у меня форма. При инициализации открывается книга Excel (по умолчанию appExcel.Visible=false). При нажатии на одну из кнопок книга отображается пользователю (visible становится true). Как сделать так, чтобы если пользователь попытался её закрыть, книга не закрывалась, а исчезала (visible менялась опять на false)?

(2) Существует ComboBox. При открытии списка выполняется команда

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

For i = 1 To appExcel.Workbooks.Count
      ComboBook.Items.Add(appExcel.Workbooks(i).Name)
Next

, то есть в список помещаются все имеющиеся рабочие книги.
(a) рабочие книги помещаются только те, которые были открыты после вызова программы. Как сделать, чтоб выводились имена книг, открытых до её вызова?
(б) как сделать, что если открытых книг не существует, то пустой combo список просто не открывался (иначе он "выворачивается" с одним пустым элементом, который нельзя выбрать), то есть чтобы ComboBox.DroppedDown менялось визуально на false?

Заранее благодарен за помощь.

[GSerg]

(1)

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

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Cancel = True
  Me.Windows(1).Visible = False
End Sub

(2)
(а) Непонятно. Перебираются все. Кстати, скобки убрать у Add. [Тьфу, форум по .NET. Скобки не убирать.]
(б) Что именно не получается?

[Бутч]

(1)

Спасибо. Не догадался бы.

(а) Непонятно. Перебираются все. Кстати, скобки убрать у Add.

у меня как раз перебираются только те, которые были открыты после выполнения команды

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

appExcel=new Excel.Application

(б) Что именно не получается?

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

    Private Sub ComboBook_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBook.DropDown
        ...
        ComboBook.DroppedDown = False
    End Sub

Почему список после этого обратно не залезает?

[GSerg]

у меня как раз перебираются только те, которые были открыты после выполнения команды

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

appExcel=new Excel.Application

Ну разумеется.

Блин, развратился народ этой фичей офиса, когда документам MDI соответствуют кнопки таскбара... Вот и не видит, когда один инстанс экселя, а когда другой - сливается...
Иди в Сервис - Параметры - Вид и сними галку Окна на панели задач.

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

Private Sub ComboBook_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBook.DropDown
    ...
    ComboBook.DroppedDown = False
End Sub

Почему список после этого обратно не залезает?

Видимо, потому что это обработчик дропдауна?

[Бутч]

Ну разумеется.

Блин, развратился народ этой фичей офиса, когда документам MDI соответствуют кнопки таскбара... Вот и не видит, когда один инстанс экселя, а когда другой - сливается...
Иди в Сервис - Параметры - Вид и сними галку Окна на панели задач.

Инстант, насколько понял, это мой appExcel после команды

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

appExcel=new Excel.Application

Вот мне и надо получить список этих самых инстантов, открытых до меня (Excel насколько я понял создает один из них и пихает все книги туда, а я другой (или несколько другий) и книги уже в свои "инстанты")
Блин, и можешь объяснить, что это слово означает?

Видимо, потому что это обработчик дропдауна?

Да я это уже понял. Но в нем же нету агрумента

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

Cancel as Boolean

Как же быть?

[GSerg]

Инстанс - экземпляр класса...

[Бутч]

Инстанс - экземпляр класса...

Понял
Расскажи только, пожалуйста, как мне задачи необходимые выполнить. Особенно как найти все созданние инстансы Excel. Очень надо

[GSerg]

Замучаешься.
Создавать массив объектов, ловить их события, да ещё и ловить появление новых инстансов экселя.

Вообще что пишешь-то? Чё-то очень злостно получается.

[Бутч]

Мне необходимо переделать чужую программку из VBA в самостоятельную VB.NET. Программа должна либо открывать книгу из OpenDialog, либо выводить список уже открытых. Ну и далее листы в них создавать, расчеты проводить и т.д.
В VBA было все просто (что-то вроде такого)

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

For i = 1 To Workbooks.Count
      ComboBox1.AddItem Workbooks(i).Name
Next i

И всё. Список книг у тебя в кармане
А здесь не знаю как быть . Уже программу почти доделал. Только эту часть осталось закончить. А это обязательно .
Ну должен ведь где-то Excel хранить название открытых книг . Эх, мне бы только этот списочек получить . Я бы тогда их просто еще разочек открыл и сразу в свой инстанс запихнул . А там уж что хотел бы с ними, то и делал .

[GSerg]

Не надо так делать.

Лучше тогда не новый инстанс экселя делать, а брать имеющийся.

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

= GetObject(, "excel.application")

Если ошибка, значит создавать новый.

[Бутч]

GSerg, это то, что мне нужно . Теперь я и программу закончу, и в будущем смогу над всеми открытыми Вордами и Ацессами извращатся . Я просто безпредельно благодарен тебе за помощь ! Желаю тебе успехов !