Ошибка в макросе Word?

[Zurs]

Компилятор возвращает ошибку:User-defined type not defined на компонент Excel.Application. Макрос пишется в Word. Подскажите, как можно исправить? Сам макрос:

Sub impot()
    Dim xl As Excel.Application, wb As Excel.Workbook, ws As Excel.Worksheet
    Dim xlOpen As Boolean, wshell
    Set xl = GetObject(, "Excel.application")
    If Err.Number <> 0 Then
        Set xl = CreateObject("excel.application")
    Else
        xlOpen = True
    End If
    On Error Resume Next
    Set wshell = CreateObject("WScript.Shell")
    Set wb = xl.Workbooks.Open(wshell.CurrentDirectory & "\Таблица.xlsx")
    If wb Is Nothing Then
        MsgBox "Unable to open file!"
    
    On Error GoTo 0
    GoTo cleanUp
    End If
    On Error GoTo 0
    Set ws = wb.Sheets("table1")
    With ws
        .Range("A10:M20").Copy
        Selection.Paste
    End With
cleanUp:
    If xlOpen = False Then xl.Quit
    Set xl = Nothing
    Set wb = Nothing

End Sub

[Serge_Bliznykov]

Макрос от MS Excel не будет работать в MS Word - это совершенно разные платформы, у них разная объектная модель.
Зачем Вам в MS Word выполнять макрос, который должен выполняться в MS Excel?
Вы его в MS Excel и выполняйте!

[Zurs]

Эм, ну мне нужно записать в Word-файл, таблицу из Excel. А можно этот код переработать, чтоб он в Word работал?

[shanemac51]

попробуйте

Sub impot()
'''
    Dim xl As object, wb As object, ws As object
''' 
   Dim xlOpen As Boolean, wshell
    Set xl = GetObject(, "Excel.application")
    If Err.Number <> 0 Then
        Set xl = CreateObject("excel.application")
    Else
        xlOpen = True
    End If
    On Error Resume Next
    Set wshell = CreateObject("WScript.Shell")
    Set wb = xl.Workbooks.Open(wshell.CurrentDirectory & "\Таблица.xlsx")
    If wb Is Nothing Then
        MsgBox "Unable to open file!"
    
    On Error GoTo 0
    GoTo cleanUp
    End If
    On Error GoTo 0
    Set ws = wb.Sheets("table1")
    With ws
        .Range("A10:M20").Copy
        Selection.Paste
    End With
cleanUp:
    If xlOpen = False Then xl.Quit
    Set xl = Nothing
    Set wb = Nothing

End Sub

[Zurs]

Все отлично сработало, только Excel файл становится недоступен. Это можно исправить?

[shanemac51]

это строка выхода из ексель

 If xlOpen = False Then xl.Quit

закомменте ее