Проблема с программным созданием сводной таблицы в Excel

[abc]

Пытаюсь из Access программно создать сводную таблицу в Excel
Dim objExcel As New Excel.Application
Dim wb As Excel.Workbook
NamePivot='СводнаяТаблица1'
objExcel.Workbooks.Add
objExcel.Visible = True
Set wb = objExcel.ActiveWorkbook
With wb.PivotCaches.Add(SourceType:=xlExternal)
.Connection = Array(Array("ODBC;DSN=База данных MS Access; DBQ=T:\DB\Source.mdb;DefaultDir=T:), Array("T:\DB;DriverId=25; FIL=MS Access;MaxBufferSize=2048; PageTimeout), Array("=5;"))
.CommandType = xlCmdSql
.CommandText = Array(sql)
.CreatePivotTable TableDestination:=ActiveSheet.Range("A3"), TableName:=NamePivotEnd With
И т.д.
При первом выполнении нормально строит сводную таблицу.
При повторном запуске выдают ошибку в выбеленной строке: Invalid procedure call or argument (что бы выполнилась процедура, нужно закрыть предыдущий Excel-файл)
В чем засада?

[Al Khamid]

[abc]

Думаю что нет. Открывается другая книга Workbook и соответственно активной является уже другая страничка. Пробовал, даже закрывать Excel, перед повторным запуском процедуры. Пробовал на каждый запуск генерить, новое имя TableName:=NamePivot & Time()… Помогает только полностью закрыть приложение и снова открыть.

[Nicky]

objExcel.Workbooks.Add
objExcel.Visible = True
Set wb = objExcel.ActiveWorkbook

=

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

objExcel.Visible = True
Set wb = objExcel.Workbooks.Add

И еще, ActiveSheet.Range("A3") - если книга новая, там же нет данных. Или я не прав?

[abc]

Проблема решилась сама собой.
Максимально однозначно все прописал, как советовали, и заработало.
Добавил:
Dim ws As Excel.Worksheet, pt As Excel.PivotTable
…
Set ws = wb.ActiveSheet
Set pt = ws.PivotTables(NamePivot)
…
Спасибо, за участие.