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

Question

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 d

Answer 1

You can just use the Get/CreateObject function to use an Excel application instance from Visio.

Have a look at this article:

http://msdn.microsoft.com/en-us/library/gg251785.aspx

You might also find this useful:

http://support.microsoft.com/kb/309603

...it describes the opposite direction (ie controling Visio from another app), but in your case you'd do something like:

Dim AppExcel As Excel.Application

   On Error Resume Next

   Set AppExcel = GetObject(, "excel.application")

   If AppExcel Is Nothing Then
      Set AppExcel = CreateObject("excel.application")
   End If

Hope that helps.