Export aus Microsoft Visio 2007
Export via Makro im 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
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 125093
Url: https://administrator.de/contentid/125093
Printed on: April 26, 2024 at 21:04 o'clock