Не работает под Office2000

[Mishel]

1. Вопрос

Имеется приблизительно такой код:
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = Excel.Application
Set xlBook = xlApp.Workbooks.Open(xxxxx)
Set xlSheet = xlBook.ActiveSheet
xlApp.Visible = True

Соответственно на моем компе стоит Office2002, подключена библиотека Microsoft Excel 10.0 Object Library
и все работает.
Запускаю на другом компе, там стоит Office2000,
в результате нет ни ошибки, но и не запускается Excel,
что нужно сделать чтобы программа и там запускалась?

2. Вопрос

Как узнать из кода, открыт Excel или нет,
и соответственно нужно ли делать xlApp.Close

[tyomitch]

2. Выполни GetObject (, "Excel.Application")
Если ошибка, значит экселя нет, иначе есть.

Ещё, а разве Офис2002 - не 11.0? Десятым же был ОфисХР?
Или это одно и то же?

[Mishel]

Да, одно и тоже XP это 2002 и соответственно 10 библиотека, но вопрос не в этом почему не работает на 2000 или нельзя на библитеках с меньшим номером.
А на счет проверки я от так проверяю:
If xlApp Is Excel.Application Then
вроде работает

[alibek]

Попробуй использовать позднее связываение. Т.е. не подключать библиотеку, а использовать CreateObject.

[tyomitch]

А на счет проверки я от так проверяю:
If xlApp Is Excel.Application Then
вроде работает

Вау, круто. А я и сам не знал, что так можно
Но всё равно, имхо лучше "If xlApp Is Nothing Then"

[Mishel]

If xlApp Is Nothing Then
А обратное как?
только не else, код какой-то кривой получается

[tyomitch]

If xlApp Is Nothing Then
А обратное как?
только не else, код какой-то кривой получается

If Not (xlApp Is Nothing) Then

скобки необязательны, но с ними как-то нагляднее

[Mishel]

Сам нашел:
If (xlApp Is Nothing) = False Then

А как же все таки второй вопрос,
как узнать закрыли Excel или нет?

[tyomitch]

Сам нашел:
If (xlApp Is Nothing) = False Then

А как же все таки второй вопрос,
как узнать закрыли Excel или нет?

Дык точно так же:

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

Set xlApp = Excel.Application
If xlApp Is Nothing Then
    'уже закрыли
End If