Cводная таблица в MS Excel из MS Access с помощью VBA

[Red Fox]

Товарищи форумчане,

Помогите, пожалуйста, исправить VBA код. Необходимо из MS Access создать в MS Excel сводную таблицу.

Ошибка возникает в следующем отрезке кода:

Set PTCache = .ActiveWorkbook.PivotCaches.Add _
      (SourceType:=xlDatabase, _
      SourceData:=.ActiveWorkbook.Sheets("Raw_Data").Range(SourcePivot))

Файл приложен.

[AndVGri]

И вам здравствуйте

Ошибка возникает в следующем отрезке кода:

А где собственно код?
Создать cache напрямую к базе данных по запросу можно так

Public Function GetCache() As PivotCache
    Const aceConn = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Mode=1;Data Source=$1"
    Dim pConn As WorkbookConnection
    Set pConn = ThisWorkbook.Connections.Add("QueryAll" & CStr(Int(Timer)), "Подключение к Report", _
                                             Replace$(aceConn, "$1", ThisWorkbook.Path & "\Report.accdb"), _
                                             "Select * From QueryAll", XlCmdType.xlCmdSql)
    Set GetCache = ThisWorkbook.PivotCaches.Create(xlExternal, pConn)
End Function

[Red Fox]

Спасибо за содействие!

VBA код большой, поэтому я его не стал весь показывать. Его можно посмотреть в редакторе VBA.

Cache создается на основании выгрузки из MS Access в MS Excel. Предварительно записи выгружаются из MS Access в MS Excel, а затем на основе этой выгрузки создается сводная таблица в MS Excel. Для этого нужно загрузить форму "ReportForm" и сформировать отчет. И на указанном месте возникает ошибка: Run-Time error '5' Invalid procedure call or argument.

[AndVGri]

Доброе время суток
А смысл создавать выгрузку на лист Excel, что бы по ней создавать сводную таблицу?
А в коде выше у вас просто ошибка.
Коллекция PivotCaches не имеет метода Add. Используйте метод

Create(1, .ActiveWorkbook.Sheets("Raw_Data").Range(SourcePivot))

Вы же используете позднее связывание, зачем же указывать имя перечисления, о значении которого код ничего не знает?

[Red Fox]

Спасибо большое!