und dann soll es auch gleich Speichen unter und dass bekomme ich nicht hin.
Ja ich weiß es sieht wieder schrecklich aus bemühe mich um das Basic zu lehren aber habe noch viel VBA im Kopf.
Die neue Datei wird geöffnet aber die Name ist nicht geändert.
Bitte einen Tipp
Und sei mir nicht böse wenn es wieder nicht richtig ist.
Code: Alles auswählen
Sub open_und_speicherUnter
'open new doc'
Dim Doc as Object
Dim Filepath as String
Dim DirPath as String
Dim OpenFile as String
GlobalScope.BasicLibraries.LoadLibrary("Tools")
Doc = thiscomponent
Filepath = Doc.URL
DirPath = convertfromURL(Filepath)
Dim NewWorkbook as Object
Dim NoArgs()
OpenFile = ConvertToURL("/home/andre/test/JaarVorlage.ods")
NewWorkbook = StarDesktop.loadComponentFromURL(OpenFile,"_blank",0 ,NoArgs())
Dim name as Object
Dim sURl as String
name = ThisComponent.Sheets.getByName("Jaarkosten").getCellRangeByName("A1")
'save Doc under new name'
sUrl = ConvertToURL("/home/andre/test/" & name.String & ".ods")
NewWorkbook.storeToURL(sURL, NoArgs())
End Sub