ho questa macro per salvare il mio file in un percorso specifico.
Codice: Seleziona tutto
Sub Save_db_file
Dim DocName as object, DocUlr as string, range as object, Sheet1 as object
Dim nPropertyValue(1) As New com.sun.star.beans.PropertyValue
Doc = ThisComponent
Sheet = Doc.Sheets(1)
Range = Sheet.getCellRangeByName("A1:O10000").getDataArray ' range da copiare
sFileName ="https://docs.google.com/spreadsheets/d/19zUpPwij11OGG8jU8XuBPra-oblvNezdADmLgIn1oqg/edit?usp=sharing" ' file destinazione
DocUrl = ConvertToURL(sFileName)
nPropertyValue(1).Name = "Hidden"
nPropertyValue(1).Value = True
DocName = StarDesktop.loadComponentFromURL(DocUrl,"_Blank",0, nPropertyValue)
Sheet1 = DocName.Sheets(1)
dRange = Sheet1.getCellRangeByName("A1:O10000") ' range destinazione
dRange.setDataArray(Range)
DocName.store
DocName.close(true)
End Sub
Conscete un'altra possibilità?
Grazie