Export data to OpenOffice Calc and MS Office Excel

[Mario Mansilla]

Hola Amigos :
colocando la comilla simple delante del valor funciono perfecto .
Muchas gracias
Saludos
Mario Mansilla

Hello friends :
placing the single quote in front of the value worked perfectly.
Thank you
regards
Mario Mansilla

[SALINETAS24]

Hola Amigos :
colocando la comilla simple delante del valor funciono perfecto .
Muchas gracias
Saludos
Mario Mansilla

Hello friends :
placing the single quote in front of the value worked perfectly.
Thank you
regards
Mario Mansilla

Hola Mario, me puede indicar donde tengo que poner la "comilla" y que tipo de comilla tengo que poner.
Tengo el mismo problema.
Gracais

[SALINETAS24]

Yeeep .., ya lo tengo

oSheet:Cells(nLinea,4):Value := "'"+aTemp[4]

Gracias

[mol]

Hello my friends!
I want to refresh this topic because I want to find a possibility to create OpenOffice spreadsheet without using OLE.
It should work too much quicker than writing data cell by cell or even by PASTE data from clipboard.
It would avoid program from OLE errors.
It's important for me because sometimes I need to create file with many sheets and a lot of data.
Harbour contains hbxslxml library, some test are located in extras\hbxlsxml\tests, but I don't have a time to study it.
I need quick solution almost for now

[edk]

Marku mam zrobione na hblibxlsxwriter prostą konwersję z DBFów do xlsx. Zmodyfikowałem o możliwość dodawania arkuszy do skoroszytu. Przykład wraz z wymaganymi bibliotekami (.a i .dll) oraz definicjami (.ch) jest w załączniku.

[Rathinagiri]

If you just want to create a data export with multiple sheets, then this is a quick way to do in Harbour! Just use this xml code and save as .xml file. You can open in Excel with multiple sheets automatically!

Code: Select all

<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o="urn:schemas-microsoft-com:office:office"
 xmlns:x="urn:schemas-microsoft-com:office:excel"
 xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:html="http://www.w3.org/TR/REC-html40">
 <ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel">
  <ActiveSheet>2</ActiveSheet>
 </ExcelWorkbook>
 <Styles>
  <Style ss:ID="Default" ss:Name="Normal">
   <Alignment ss:Vertical="Bottom"/>
   <Borders/>
   <Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="11" ss:Color="#000000"/>
   <Interior/>
   <NumberFormat/>
   <Protection/>
  </Style>
 </Styles>
 <Worksheet ss:Name="Sheet1">
  <Table ss:ExpandedColumnCount="2" ss:ExpandedRowCount="1" x:FullColumns="1"
   x:FullRows="1" ss:DefaultRowHeight="15">
   <Row>
    <Cell><Data ss:Type="Number">11</Data></Cell>
    <Cell><Data ss:Type="Number">22</Data></Cell>
   </Row>
  </Table>
 </Worksheet>
 <Worksheet ss:Name="Sheet2">
  <Table ss:ExpandedColumnCount="2" ss:ExpandedRowCount="1" x:FullColumns="1"
   x:FullRows="1" ss:DefaultRowHeight="15">
   <Row>
    <Cell><Data ss:Type="Number">33</Data></Cell>
    <Cell><Data ss:Type="Number">44</Data></Cell>
   </Row>
  </Table>
 </Worksheet>
</Workbook>

Also, read this:

https://www.codeproject.com/Articles/18 ... x2714732xx
https://www.autoitscript.com/forum/topi ... orksheets/

[mol]

Thank you Rathi. I will try to use it.

[mol]

Thank you Edward!
Jesteś niezawodny jak zawsze!

[edk]

Nie ma sprawy. BTW zauważyłem "czeski błąd" przy komentowaniu wywołania funkcji DodajArkuszXLSX(): zamiast /* Ramki_naglowkow /* powinno być oczywiście /* Ramki_naglowkow */, stąd nie działają poprawnie pozostałe parametry: ramka dla danych i dopasowanie szerokości kolumny do treści nagłówka kolumny

Code: Select all

************************************************************************************
Function MakeXLSX()

Local workbook, cFile := "Demo_DBFsToXLSX"

workbook := SkoroszytXLSX( @cFile )
IF !Empty ( workbook )
    DodajArkuszXLSX(workbook, "dbf_1.dbf" /* cDBFFile */ , "Arkusz nr 1" /* cTytul */ ,  { "#", "Imię", "Nazwisko", "Data urodzenia", "Żonaty/zamężna?" } /* aNaglowki */ , /* nOrientacja */, .T. /* Ramki_naglowkow */, .T. /* Ramki_danych */, .T. /* AutoFit_danych */ )
    DodajArkuszXLSX(workbook, "dbf_2.dbf" /* cDBFFile */ , "Arkusz nr 2" /* cTytul */ ,  /* aNaglowki */ , 2 /* nOrientacja */, .T. /* Ramki_naglowkow */, /* Ramki_danych */ , /* AutoFit_danych */ )
    TworzXLSX( workbook, cFile )
ENDIF

RETURN

[mol]

I can't find a way to display cells rotated by 90 deg.
Is it possible to do?