Dim XL As New Excel.Application xls.Workbooks.Open FileName не работает - VB

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

Использую код:

Dim XL As New Excel.Application
xls.Workbooks.Open FileName

Не работает под Win98. Выдается ошибка 'automation error'. Пожалуйста, помогите справится с проблемой.

Решение задачи: «Dim XL As New Excel.Application xls.Workbooks.Open FileName не работает»

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

                            Dim XLS As Excel.Application
Set XLS = CreateObject('Excel.Application')
 
XLS.Workbooks.Open PathDan 'открыть документ
XLS.Visible = True 'показать его на экране
Set XLS = Nothing
                        