Вызов Excel из VB6 sp5

Формулировка задачи:

Dim ExcelApplication As New excel.Application
Dim ExcelWorkbooks As Object
Dim ExcelSheets As Object
 
ExcelApplication.Visible = True
Set ExcelWorkbooks = ExcelApplication.Workbooks.Add
Set ExcelSheets = ExcelWorkbooks.Worksheets(1)
 
ExcelSheets.Cells(2, 3).Value = 'fggfffhfhfh'

выдает ошибку automation error : -2147417848 стоит офис 2000, w9x под ХР работает

Решение задачи: «Вызов Excel из VB6 sp5»

textual
                            Листинг программы 
                        

                            Dim AppExcel
Dim wsH As Worksheet
Dim wbO As Workbook    
 
Set AppExcel = CreateObject('Excel.Application')
Set wbO = AppExcel.Workbooks.Open('file.xls')
 
Set wsH = AppExcel.Sheets('лист1')
wsH2.Range('M9').Value = Value
                        