(Gelöst) Öffen neue Datei und gleich speichen Unter.

[Atwist]

Habe wieder etwas zusammen gebastelt und es soll eine neue Datei von einen vorlage Öffnen dass geht gut
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

[karolus]

Hallo

Code: Alles auswählen

…
NewWorkbook.storeAsURL(sURL, NoArgs())
end sub

[Atwist]

duim.jpeg (10.17 KiB) 2170 mal betrachtet

DANKE DANKE DANKE