Ошибка "40036"

[Allex]

Господа, возникла следующая неприятная ситуация. Имеется две машины с одинаковыми осями (XP SP2) и офисом (97), все устанавливалось с одного дистрибутива, компоненты офиса - одни и теже. Но... следующий простой код:

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

Dim objXl As Object
  Set objXl = CreateObject("Excel.Application")
  objXl.Workbooks.Open "E:\Temp\new.xls"
  objXl.Visible = True
b = objXl.ActiveSheet.Name
ba = objXl.ActiveSheet.Cells(1, 1).Value
objXl.Application.Quit
Set objXl = Nothing

на одной машине выполняется на раз (как, в прочем, и на других), а на той которой надо, на строке 5 или 6 выдается ошибка 40036, "Ошибка, определяемая приложением или объектом".
Стороки приведены для примера, ошибка вылетает при любой попытке что-либо прочитать/записать. Одинаковое поведение и в word и в excel.
Буду признателен за любые мысли по исправлению ситуации без переустановки офиса/оси.

[Al Khamid]

14

[Allex]

Al Khamid, спасибо за ответ. Увы, так тоже не работает. Попробую переставить офис.

[MeMBus]

А может это вовсе не лист, а книга...

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

Set vExcelObject = CreateObject("Excel.Sheet")
Set vExcelObject = vExcelObject.Application.Workbooks.Open("E:\temp.xls")
Set vExcelObject = vExcelObject.Application.Workbooks("temp.xls").Worksheets("Лист1")
vExcelObject.Range("A1").select
msgbox vExcelObject.Range("A1").Value