La cosa che ora non riesco a realizzare è selezionare un'area o range di celle in particolare, nel mio caso dalla prima cella A1 alla H60.
E copiare i formati (altezze bordi colori ecc ecc) dalla cella A61
Parte del programma funzionante è:
Dim objServiceManager, objDesktop As Object 'root objects from OOo API
Dim objCoreReflection, Fileoo, foglio_oo, As Object ' objects from OOo API
Dim objText, objCursor As Object ' objects from OOo API
Dim objTable As Object ' objects from OOo API
Dim objRows, objRow As Object ' objects from OOo API
Dim objTextFrame, objSize As Object ' objects from OOo API
Dim objFrameText, objFrameTextCursor, Cella_selezionata, Selezione_celle As Object ' objects from OOo API
Dim args(-1) As Object '<-- initializing the array with a -1
objServiceManager = CreateObject("com.sun.star.ServiceManager")
objCoreReflection = objServiceManager.createInstance("com.sun.star.ref lection.CoreReflection")
objDesktop = objServiceManager.createInstance("com.sun.star.fra me.Desktop")
posizione_cartiglio = "file:///Q:/GIUSTI/" & cartiglio_scelto & ".ods"
args(0) = False
Fileoo= objDesktop.loadComponentFromURL(posizione_cartigli o, "_blank", 0, args)
foglio_oo = Fileoo.Sheets.getByName(FileExcel.currentcontrolle r.activesheet.name)
Poi però ora sono completamente arenato poichè tutte le prove e i tentativi fatti non funzionano.
Mi sembra molto utile l'istruzione:
Dim CellRangeAddress As New com.sun.star.table.CellRangeAddress
Ma Visual basic 2010 mi evidenzia servizio com.sun.star.table.CellRangeAddress come un errore poichè non definito.
Come faccio a definirlo ?
Qualcuno Saprebbe dirmi come poter andare avanti?