[GELÖST]Dialog aufrufen klappt nicht

[Mike_S]

Moin zusammen!

Ich bin immer noch dabei, ein Excel-VBA-Projekt zur automatischen Auswertung von Sportabzeichenergebnissen nach LO zu portieren.

Da Grundprogramm läuft dabei eigentlich fast unverändert, da es sich tatsächlich um rudimentäres Basic handelt, das bei VBA und LO fast identisch ist.

Obwohl ich mir jetzt einige Beispiele angesehen habe und versucht habe, die nachzubilden bekomme ich es in diesem Projekt nicht hin, einen Dialog aufzurufen, in den ich dann verschiedene Funktionen einbetten kann (Sortieren, etc.).

Die Rahmendaten:

Im Blatt "Ergebnisse" gibt es eine Schaltfläche "Sortieren", die das Marko "DSAAuswertung.Dialoge.StartDiaglog (document, Basic)" aufruft.

Das Makro wird von dort auch korrekt aufgerufen, bricht aber dann mit Fehler ab:

Dim oDialog As Object
Sub StartDiaglog

BasicLibraries.LoadLibrary("Standard")
DialogLibraries.LoadLibrary("Standard")
oDialog = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
oDialog.Execute()

End Sub

Fehler: BASIC-Laufzeitfehler. '423' Dialog1 - Ok

Den Dialog "Dialog1" gibt es aber, daher kann ich nicht nachvollziehen, wie es zu diesem Fehler kommt. Mache ich da nen Denkfehler?

Da das nichts Geheimes ist, hänge ich das komplette Dokument mal hier an in der Hoffnung, das mir jemand sagen kann, wo der Fehlerteufel sitzt...

Danke und Gruß,

Mike

[mikele]

Hallo,
der Dialog befindet sich nicht im Bereich "Standard" sondern "DSAAuswertung" daher:

Code: Alles auswählen

oDialog = CreateUnoDialog(DialogLibraries.DSAAuswertung.Dialog1)

Die ersten beiden Zeilen sind unötig.

Code: Alles auswählen

BasicLibraries.LoadLibrary("Standard")
DialogLibraries.LoadLibrary("Standard")

[Mike_S]

Hi Mikele!

Danke Dir, das war's! Das kommt vermutl. vom Umstieg VBA -> LOSB. Da ist dann doch einiges anders, als ich es bisher gewohnt war

LG

Mike