Помогите пожалуйста решить проблему.
Раньше с объектами QueryTables я не работал, сейчас необходимо по запросу вставить в книгу «Akt.xls» в лист akts результирующую таблицу из dbf файла по нажатию на кнопку.
Имеется: файл «Akt.xls» с двумя листами («service» и «akts»). На листе «service» я указываю путь к базе и нажимаю на кнопку.
Получаю ошибку:
Run-time error: ‘-2147024809 (80070057)’
Конечный диапазон находится на разных листах с таблицей запроса.
Подскажите, что исправить.
Спасибо.
Вот код кнопки:

‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
Public path_of_base As String
Public kod_pr As String
Public date_of_akt

Private Sub CommandButton1_Click()
Workbooks("Akt").Worksheets("service").Activate
path_of_base = Worksheets("service").Range("E4").Value
kod_pr = Worksheets("service").Range("E7").Value
date_of_akt = Worksheets("service").Range("E8").Value
region = Worksheets("service").Range("E9").Value

'the_month = Trim(IIf(Month(date_of_akt) < 9, "0" & Str(Month(date_of_akt)), Str(Month(date_of_akt))))
the_month = Trim(Mid(Str(date_of_akt), 4, 2))
the_year = Trim(Right(Str(date_of_akt), 2))
the_file = "akt" & the_month & the_year & region & ".dbf"

''''''''''''''''' Добавление акта в книгу '''''''''''''''''''''''''''


str0 = "SELECT AKT.KOD, AKT.KOD_SCH, AKT.DATA, AKT.PRED_POK, AKT.TEK_POK, AKT.POTERI, AKT.PR, AKT.KVT, AKT.POTERI_F, AKT.N_AKT, AKT.DATA_AKT, SPR_SCH.KOD, SPR_SCH.KOD_SCH, SPR_SCH.TYPE, SPR_SCH.F_NUM, SPR_SCH.KOEF_TR, SPR_SCH.MESTO_UST, SPR_SCH.PROC_POT, SPR_SCH.KOD_N, PREDP.KOD, PREDP.NAIM, PREDP.ADDRES"
str2 = "FROM " & the_file & " AKT, PREDP PREDP, SPR_SCH SPR_SCH"
str3 = "WHERE AKT.KOD = SPR_SCH.KOD AND AKT.KOD_SCH = SPR_SCH.KOD_SCH AND AKT.KOD = PREDP.KOD and (predp.kod = '" & kod_pr & "') and (AKT.DATA = '" & date_of_akt & "')"
str4 = "ORDER BY AKT.KOD, AKT.KOD_SCH"

Workbooks("Akt").Worksheets("akts").Activate
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=Файлы dBASE;DefaultDir=" & path_of_base & ";DriverId=533;MaxBufferSize=2048;PageTimeout=5;", Destination:=Range("A1"))
.CommandText = str0 & Chr(13) & Chr(10) & str2 & Chr(13) & Chr(10) & str3 & Chr(13) & Chr(10) & str4
.Name = "the_akt"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub

Все, разобрался.
(Destination:=Workbooks("Akt").Worksheets("akts").Range("A1"))