VBA Macros: Exporting Visio Shape Report into New Excel File, then Creating a Pivot Table

So basically, I have a Visio file that has lots of shapes and data. I'm trying to create a shape report into a new excel file, and then have the excel file turn the exported data into a pivot table programmatically.

I have a macro running in Visio that generates the excel file with data in normal table form already. I want to be able to run a macro in Visio that activates the excel window of exported data and runs a macro to make it into a pivot table. However, any excel macro code I put into my visio macro modules is unrecognized (e.g. "Range"), presumably because they're not words recognized by Visio.

My question is this: How do I run a macro that alters an Excel file FROM a Visio module?

I know how to call a macro IN an Excel file from Visio (Excel.run "ModuleNAME"), but that would require the macro to already be in Excel. Since I'm creating new Excel files when I get shape reports, these files don't have any macros in them.

An alternative solution would be if I was able to export shape data report from Visio as a new sheet to an EXISTING Excel file that already contained the macro, but I'm not sure how to do this either... (export shape reports from Visio to existing Excel file)

My Code to Generate Excel Report:

Sub Excel2()Visio.Application.Addons("VisRpt").Run     ("/rptDefName=ReportDefinition_2.vrd/rptOutput=EXCEL")End Sub

I would like to run this macro after running Excel2()

Sub NewMacro()AppActivate "Microsoft Excel"Dim AppExcel As Excel.ApplicationSet AppExcel = CreateObject("Excel.Application")'Do all sorts of fancy stuff with making pivot tables'Do all sorts of fancy stuff with making pivot tablesEnd Sub