Как в VB узнать открыт Excel или нет?
Формулировка задачи:
Как в VB узнать открыт Excel или нет, если открыт, то необходимо просто обратиться к нему, если наоборот, то создать объект.
Сапасибо.
Решение задачи: «Как в VB узнать открыт Excel или нет?»
textual
Листинг программы
Dim obj as Object
On Error Resume Next
Set obj = GetObject(, 'excel.application')
If obj Is Nothing Then
Set obj = CreateObject('excel.application')
End If
On Error GoTo ErrorHandler
If obj Is Nothing Then
MsgBox 'Проблемка...'
Exit Sub
End If
' Теперь можем пользоваться
obj.<<DoSomething>>...