Dynamische Basiclibraries in Calc einfügen

[getobject.de]

Hallo in die Runde.
Ich bin gerade ein wenig überfordert. Ich möchte eine dynamisch erzeugte Basic Bibliothek in den Calc Container schreiben. Allerdings als eigenständige Bibliothek und nicht in den Standard Container des Calc Dokuments. Meine Frage ist eigentlich ganz einfach. Wie bekomme ich die da hinein?

Sub main
Dim oLib As Object
Dim sText As String
sText = "'/**** Create with goInstaller from getObject.de******"
If Globalscope.BasicLibraries.hasbyname("Probe") Then
Globalscope.BasicLibraries.removeLibrary("Probe")
End If
globalscope.BasicLibraries.CreateLibrary("Probe")
oLib = Globalscope.BasicLibraries.getByName("Probe")
oLib.insertByName("Module1", sText )
Globalscope.BasicLibraries.storeLibraries()
End Sub

Mit dieser Variante erstelle ich zwar eine Bibliothek aber die wird standardmäßig unter Meine Makros gespeichert.

[getobject.de]

Upps, habe ich jetzt die Kommentare gelöscht?

[getobject.de]

@anon73440385
Ich weiss nicht warum deine Kommentare hier auf einmal verschwunden sind. Also schreib ich noch einmal.
Durch das weglassen von Globalscope ändert sich leider gar nichts. Libo speichert es trotzdem dort hinein.
Wenn zwei Calc Dokumente geöffnet sind muss Libo ja wissen in welchen Container gespeichert werden soll.
Ich hab es mal über das Dokument Objekt versucht. Dort gibt es auch eine Eigenschaft .BasicLibraries mit den gleichnamigen Methoden. Funzt aber auch nicht.

[getobject.de]

Sub addBibliothek(oObject As Object )
Dim oLib As Object
Dim sText As String
sText = “’/**** Create with goInstaller from getObject.de******”
if oObject.BasicLibraries.hasbyname(“Probe”) Then
oObject.BasicLibraries.removeLibrary(“Probe”)
End If
oLib = oObject.BasicLibraries.CreateLibrary(“Probe”)
oLib = oObject.BasicLibraries.getByName(“Probe”)
oLib.insertByName(“Module1”, sText )
oObject.BasicLibraries.storeLibraries()
End Sub

Korrektur, es funktioniert doch. Ich hatte nur vergessen die Änderungen oDoc.Store zu speichern.

[getobject.de]

Ich glaube das ist es…