Hallo,
ich habe letztendlich eine Frage zu Visio, dennoch hoffe ich, dass die hier beantwortet werden kann.
Ich will eigentlich nur eine Exceldatei über Visio öffnen (einfachstes Beispiel, bei dem bereits der Fehler auftritt). Dazu verwende ich folgenden Code
Sub ExcelDateiOeffnen()
Dim xlApp As Excel.Application
Dim xlMappe As Excel.Workbook
Dim xlBlatt As Excel.Worksheet
Dim xlZelle As Excel.Range
Set xlApp = New Excel.Application
xlApp.Visible = true
Set xlMappe = xlApp.Workbooks.Open(FileName:= _
"---hier Datei----")
Set xlBlatt = xlMappe.Worksheets(1)
Set xlZelle = xlBlatt.Range("A1")
Set xlZelle = Nothing
Set xlBlatt = Nothing
Set xlMappe = Nothing
Set xlApp = Nothing
End Sub
Nun tritt beim Ausführen immer die Fehlermeldung auf, dass die Schnittstelle nicht registriert ist. Über Extras/Verweise habe ich jedoch schon die Excel Object Library eingebunden.
Ich komme leider einfach nicht weiter und frage mich deshalb, ob ich etwas übersehen habe.
Late Bindung funktioniert übrigens, wenn ich alles als Object deklariere. Ich würde jedoch gerne mit Early Binding arbeiten.
Vielleicht liegt es an unverträglichen Versionen? (Excel 2016 und Visio 2013)
Ich hoffe, jemand hat einen kleinen Tipp für mich.
Vielen Dank!
Beste Grüße!
|