Click here to Skip to main content
12,956,433 members (70,597 online)
Rate this:
 
Please Sign up or sign in to vote.
I made an coding to create a open-office calc document using a vb.net
Public Class OoCalc
Public Context As unoidl.com.sun.star.uno.XComponentContext
Public Factory As unoidl.com.sun.star.lang.XMultiServiceFactory
Public Loader As unoidl.com.sun.star.frame.XComponentLoader
Public Doc As unoidl.com.sun.star.sheet.XSpreadsheetDocument
Public Storable As unoidl.com.sun.star.frame.XStorable
Public Model As unoidl.com.sun.star.frame.XModel
Public Sheets As unoidl.com.sun.star.sheet.XSpreadsheets
Public Sheet As unoidl.com.sun.star.sheet.XSpreadsheet
Public Closeable As unoidl.com.sun.star.util.XCloseable
Public FileProps As unoidl.com.sun.star.beans.XPropertySet
Public strSheetName as String = "Price"
Public strArray(,) as String={{"Aries","79"},{"Bridge","86"},{"Copper","80"}}
Public strFilePathSource as String = "file:///c:/tmp/reportcard.ods"
Sub Main
Context = uno.util.Bootstrap.bootstrap
Factory = Context.getServiceManager
Loader = CType(Factory.createInstance("com.sun.star.frame.Desktop"), unoidl.com.sun.star.frame.XComponentLoader)
Doc = Loader.loadComponentFromURL("private:factory/scalc", "_blank", 0, Nothing)
Sheets.insertNewByName(strSheetName, 0)
Sheet = DirectCast(Sheets.getByName(strSheetName).Value, unoidl.com.sun.star.sheet.XSpreadsheet)
 
'Insert name and grade and comments
For x = strArray.GetLowerBound(0) To strArray.GetUpperBound(0)
    For y = strArray.GetLowerBound(1) To strArray.GetUpperBound(1)
        If IsNumeric(strArray(x, y)) = True Then
           Sheet.getCellByPosition(y, x).setValue(strArray(x, y))
        Else
           Sheet.getCellByPosition(y, x).setFormula(strArray(x, y))
        End If
    Next
Next
'Insert signature
 
'Save
Storable = DirectCast(Doc, unoidl.com.sun.star.frame.XStorable)
FileProps.setPropertyValue("Overwrite", New uno.Any(CType(True, Boolean)))
Storable.storeAsURL(strFilePathSource, MyClass.FileProps)
 
If Doc IsNot Nothing Then
   Closeable = DirectCast(Doc, unoidl.com.sun.star.util.XCloseable)
   Closeable.close(True)
   Doc = Nothing
   Factory = Nothing
   Loader = Nothing
   Context = Nothing
End If
 
End Sub
End Class


My problem now is i don't know how to put an image to the calc document. I tried to search but i cant find anything. I'm using OpenOffice 3.3 and the following ddl: cli_basetypes,cli_cppuhelper,cli_oootypes, cli_uno,cli_ure and cli_uretypes
Posted 6-Sep-12 1:09am
evilson808
Updated 6-Sep-12 2:17am
v2
Comments
evilson 15-Sep-12 0:26am
   
Can anyone help me?
kepik 19-Mar-17 23:36pm
   
do you have the solution already?
I have same problem here. if you dont mind, please send me the solution.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

    Print Answers RSS
Top Experts
Last 24hrsThis month
OriginalGriff 6,869
CHill60 3,550
Maciej Los 3,302
ppolymorphe 2,080
Jochen Arndt 1,973


Advertise | Privacy | Mobile
Web02 | 2.8.170525.1 | Last Updated 6 Sep 2012
Copyright © CodeProject, 1999-2017
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100