Ouverture d'une feuille de calcul OpenOffice à partir d'une macro d'enregistreur

Question

Je suis nouveau sur OpenOffice et j'essaie de porter une macro MS Office vers OpenOffice Basic. Je dois être en mesure d'ouvrir une feuille de calcul Calc à partir de Writer afin que je puisse vider son contenu dans un tableau dans ma macro Writer. La documentation d'OpenOffice est difficile. Merci!

Answer 1

Dim oSM 
Dim oDesk 

'Instantiate OOo 
Set oSM = CreateObject("com.sun.star.ServiceManager") 
'Create the services 
Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop") 
Set oCalc = oSM.createInstance("com.sun.star.sheet.SpreadsheetDocument") 

Dim strVar(4) As String 
Dim iRow As Integer 
Dim iColumn As Integer 
Dim strEnd As String 
Dim Cell as object 
Dim CalcDoc 
CalcDoc = oDesk.loadComponentFromURL("file:///c:/<path>", "_blank", 0, Array()) 
Dim Sheet 
Sheet = CalcDoc.Sheets.getByName("Sheet1") 

iRow = 0 
Do While strEnd <> "end" 
    For iColumn = 0 To 4 
    Cell = Sheet.getCellByPosition(iColumn, iRow) 
    strValue = Cell.String 
     strVar(iColumn) = strValue 
    Next 
'first cell contains "end" at end of spreadsheet 
strEnd = Sheet.getCellByPosition(0, iRow).String 
'Do something HERE with strValue row values, like use them in a search 
iRow = iRow + 1 
Loop