Exceltabelle in Visio laden
Ich muss aus einer Excel-Datei automatisch ein Visioorganigramm erstellen. Mein Quellcode sieht bis jetzt folgendermaßen aus (mit ihm öffnet sich leider nur der Assistens...):
Sub Macro5()
Dim appExcel As Object
Set appExcel = CreateObject("Visio.Application")
appExcel.Visible = True
appExcel.Application.Documents.AddEx "orgwiz_m.vst", Filename = "test.xls", visMSDefault, 0
End Sub
Vielen dank für eure Hilfe
PS: Das Organigramm soll sich vollkommen alleine erstellen
Sub Macro5()
Dim appExcel As Object
Set appExcel = CreateObject("Visio.Application")
appExcel.Visible = True
appExcel.Application.Documents.AddEx "orgwiz_m.vst", Filename = "test.xls", visMSDefault, 0
End Sub
Vielen dank für eure Hilfe
PS: Das Organigramm soll sich vollkommen alleine erstellen
Please also mark the comments that contributed to the solution of the article
Content-Key: 125145
Url: https://administrator.de/contentid/125145
Printed on: April 25, 2024 at 07:04 o'clock