Codice: Seleziona tutto
Sub Go
REM copia-incolla Range
Doc = ThisComponent
Dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Frame1 = Doc.CurrentController.Frame
Sheet1 = Doc.Sheets(0)
Sheet2 = Doc.Sheets(1)
Col1 = Sheet1.getColumns().getByIndex(3) ' colonna D Foglio1
Col2 = Sheet2.getColumns().getByIndex(3) ' colonna D Foglio2
Range2 = Col2.queryEmptyCells.RangeAddresses
LastRow2 = Range2(0).StartRow
Range22 = Sheet2.getCellRangeByName("A3:F" & LastRow2)
Doc.CurrentController.Select(Range22)
Dispatcher.executeDispatch(Frame1, ".uno:Copy", "", 0, Array())
Range1 = Col1.queryEmptyCells.RangeAddresses
LastRow1 = Range1(0).StartRow +1
CellAddress = Sheet1.getCellRangeByName("A" & LastRow1)
Doc.CurrentController.Select(CellAddress)
Dispatcher.executeDispatch(Frame1, ".uno:Paste", "", 0, Array())
end sub
uso la colonna D di riferimento perchè è l'unica piena di dati
Il problema è che dovrei lasciare la cella D1 vuota e si incasina (se metto un carattere da risultare piena – funziona correttamente)
sostituendo
Range1 = Col1.queryEmptyCells.RangeAddresses
LastRow1 = Range1(0).StartRow +1
con
c = Sheet1.createCursor
c.gotoEndOfUsedArea(false)
LastRow1 = c.RangeAddress.EndRow + 2
sarebbe ok ma si incasina ugualmente perchè a destra della colonna G ci sono degli altri dati
Grazie