Здравствуйте.
Есть таблица в Excel с подключенными данными.
Записал в макрос обновление этой таблицы:

Sheets("DATA").Select
Range("Table_Default__V_ONLINE_FLD_DNP_PHONES[FOLDER_DATE_CREATE]").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False

Хочу проделать то же самое в Access:

Private Sub dfsgdfg3_Click()
  Dim xlApp As Excel.Application
  Dim xlBook As Excel.Workbook
  Dim xlSheet As Excel.Worksheet

    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("Z:\NPS\NPS_v3.xlsx")
    Set xlSheet = xlBook.Worksheets(2)
    xlApp.Visible = False
    xlSheet.Activate
        
        With xlSheet

           .Range("A1").Select
           .ListObject.QueryTable.Refresh BackgroundQuery:=False

        End With

    xlBook.Save
    xlApp.Quit

    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
    Exit Sub
    
MsgBox "ОК"

End Sub

Вот здесь у меня не работает. ListObject не находит. Библиотеку Excel подключил.
Подскажите, пожалуйста, решение.
Спасибо.

http://www.sql.ru/forum/1087003/obnovlenie-podkluchennyh-dannyh-v-excel