Как проверить включен ли Excel?

[Flo]

Уважаемые, подскажите, пожалуйста. Я делаю так:

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

Set xl = CreateObject("Excel.Sheet")
xl.Application.Visible = True

При этом, если этот код уже выполнялся, Excel после этого не закрыли и он уже, так сказать Visible, то получается ошибка ( пишет много-много цифр и Automation error), что в общем-то логично.

Вопрос в том, как проверить, что там в Excel'е уже что-то открыто и в таком случае просто создать в нем новый лист (или книгу, все равно).
Дело может и не совсем в этом. Проверила, если Excel открыть вручную (просто запустить), то такой код добавляет все без ошибок. Значит я что-то неправильно открываю (объявляю)? Переменная

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

Global xl As Object

В чем может быть дело?

[Max!]

Мне тут на форуме замечательные люди дали вот такой код

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

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim Str As String

Private Sub Form_Load()
Str = "Загаловак окна"
End Sub

Private Sub Timer1_Timer()
Dim Wnd As Long
Wnd = FindWindow(vbNullString, Str)
If Wnd = 0 Then Exit Sub
MsgBox "Прога запущена"
End Sub


Здесь отлавливается заголовок окна ! ( В Timer1 интервал ставь 1)

[Amed]

Надо искать не по имени окна, а по классу...

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

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Form_Load()
If FindWindow("XLMAIN", vbNullString) > 0 Then
    MsgBox "Excel запущен!"
Else
    MsgBox "Excel не запущен!"
End If
End Sub

[Vi]

Самый простой способ - это использовать функцию GetObject

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

Private Sub Form_Load()
  On Error Resume Next
  If Not GetObject(, "Excel.Application") Is Nothing Then
    MsgBox "Excel запущен!"
  Else
    MsgBox "Excel не запущен!"
  End If
  Unload Me
End Sub

[Flo]

Всем большое спасибо. Люди тут на форуме действительно замечательные, полностью согласна!