User-defined type not defined

[repz]

С помощью скрипта выполняется перенос текстовой информации из Word в Excel и вылезает такая ошибка "User-defined type not defined", если кто-нибудь встречался с этим или догадывается с чем это связано, отзовитесь...

[keks-n]

Переведи ошибку и поймёшь, что используемый тип не объявлен. Попробуй подключить нужные библиотеки типов.

[SSecurity]

Более того курсор наверняка встает на место где твой необъявленный тип и расположен.

[repz]

Привожу фрагмент кода:

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

Public ExcelApp As Excel.Application
Public ExcelAlreadyRunning As Boolean
Sub Обработка()
On Error GoTo err_handler
Set ExcelApp = GetObject(, "Excel.Application")
'есть запущеный ворд, нет нужды запускать новый процесс
ExcelAlreadyRunning = True
Exit Sub
err_handler:
'нету запущенного пользователем ворда, поэтому запускаем сами
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Workbooks.Add
Dim myWorksheet As Worksheet
Set myWorksheet = ExcelApp.ActiveWorkbook.ActiveSheet

Курсор встаёт на первой строке, если её закомментировать то на пред последней. У меня не очень большой опыт писать на VB, поэтому не судите строго. Я думаю что нехватает какой то библиотеки связанной именно с Excel, хотя office, вместе с VB, я установил полностью. А если её всё таки не хватает то где её можно взять и как подключить?

[SSecurity]

Вообще в Project - Reference - Microsoft Excel 11 или 10 или нечто подобное ...
я создал пустую форму ..... ничего не объявлял ... и написал такой код - все сработало

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

Private Sub Form_Load()
  On Error Resume Next
  Set EXL = GetObject(, "Excel.Application")
  MsgBox IIf(Err <> 0, "Нету экселя", "Он есть")
End Sub