lo scenario è ..\ELENCHI\CONTATTI, in elenchi c'è il file Riepilogo.ods e in contatti ci sono i diversi file da riepilogare.
Non riesco a modificare la seguente macro per ottenere in Riepilogo.ods l'elenco nelle colonne A e B delle 18 righe dei file contatti (la riga intestazione si deve ripetere per ogni contatto):
Codice: Seleziona tutto
Sub ApriDoc_InFolder
Dim DocName as object, DocUrl as string, Parent as String, dummy()
doc = ThisComponent
sh = doc.Sheets(0)
GlobalScope.BasicLibraries.loadLibrary("Tools")
sDocURL = ThisComponent.getURL()
sPercorso = ConvertFromURL(sDocURL)
sNome = FileNameOutOfPath(sDocURL)
sCartella = DirectoryNameoutofPath(sPercorso, GetPathSeparator())
sottoCartella = "CONTATTI"
sPath = sCartella & GetPathSeparator() & sottoCartella & GetPathSeparator()
sFileName = Dir(sPath & "*.ods", 0)
print sFileName
dr = 0
Do While (sFileName <> "")
DocUrl = ConvertToURL(sPath & sFileName)
print DocUrl
DocName = StarDesktop.loadComponentFromURL (DocUrl, "_blank",0, Dummy() )
Range = Docname.Sheets(2).getCellRangeByPosition(0,0, 1, 17).getDataArray
dRange = Sh.getCellRangeByPosition(0,dr, 1, dr)
dRange.setDataArray(Range)
dr = dr + 17
DocName.close(true)
sFileName = Dir()
Loop
End Sub
P.S. Nella prima parte ho aggiunto un po' di chiamate a titolo di studio per cercare di generalizzare ulteriormente il path e rendere la macro funzionante anche su Mac; non ho però la possibilità di provare se funziona...