Salvataggio file spreadsheet google

[Luka2017]

Buonasera
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

Sto provando a mettere l'indirizzo che è già presente nella stringa sFilename, che sarebbe il link diretto al file excel di google drive, l'unica cosa che mi da' errore nella stringa DocName.
Conscete un'altra possibilità?
Grazie

[geovign]

Buonasera @Luka2017,
il link che hai inserito nel codice non è un link di download diretto, apre un pagina web nella quale visualizzi il file.
Quindi non è possibile, secondo me, caricare il file con loadComponentFromUrl.
Se nel tuo hd hai una cartella condivisa con google dove risiede il file, ti conviene agire lì.
Geo