Export aus Microsoft Visio 2007

Hallo,

ich muss eine Organigramm aus Visio 2007 in einer Excel-Tabelle exportieren. Dafür will ichein Makro generieren (Aufzeichnungsmethode funktioniert irgendwie nicht).

Folgenden Code habe ich bereits. Es wird eine neue Excelmappe erzeugt.


Sub Macro1()
Dim exceldatei As Object
Dim appExcel As Object
Dim Name As String, Pfad As String
Dim organigramm As String

organigramm = "export1"

Application.ActiveDocument.Save
Set appExcel = CreateObject("Excel.Application")
appExcel.Visible = True
Application.ActiveWindow.SelectAll
Set exceldatei = appExcel.Workbooks.Add


exceldatei.activesheet.Range("A1") = "export1"

appExcel.sheets(1).Name = organigramm


End Sub


Vielen dank für die schnelle Hilfe