Insert Row/Column into Excel

[Jonathan Hodder]

Can anyone tell me how to insert a new row using OLE?

[Enrico Maria Giordano]

Code: Select all  Expand view  RUN

FUNCTION MAIN()

    LOCAL oExcel := CREATEOBJECT( "Excel.Application" )

    LOCAL oWorkbook := oExcel:Workbooks:Add()

    LOCAL oSheet := oExcel:ActiveSheet

    oSheet:Cells( 1, 1 ):Value = "Test 1A"
    oSheet:Cells( 1, 2 ):Value = "Test 1B"

    oSheet:Cells( 2, 1 ):Value = "Test 3A"
    oSheet:Cells( 2, 2 ):Value = "Test 3B"

    oSheet:Rows( 2 ):Insert()

    oSheet:Cells( 2, 1 ):Value = "Test 2A"
    oSheet:Cells( 2, 2 ):Value = "Test 2B"

    oExcel:Visible = .T.

    RETURN NIL

EMG

[Jonathan Hodder]

Thanks Enrico

[kajot]

what may I do, I can't open application Excell but write sheet to file

[Enrico Maria Giordano]

Replace

Code: Select all  Expand view  RUN

oExcel:Visible = .T.

with

Code: Select all  Expand view  RUN

oSheet:SaveAs( "c:\xharbour\newfile.xls" )

oExcel:Quit()

EMG

[kajot]

thanks You
I want to open two folder in one sheet

[Enrico Maria Giordano]

Code: Select all  Expand view  RUN

oSheet = oWorkSheets:Add()

You should start to seriously review Excel docs.

EMG

[Otto]

Enrico, could you please help me on that.
Thanks in advance
Otto
Unresolved external '_HB_FUN_CREATEOBJECT' referenced from C:\FWH\SAMPLES

[Enrico Maria Giordano]

If you are using Harbour you have to use TOleAuto():New() instead of CreateObject().

EMG

[Otto]

Hello Enrico,
Thank you for your help. But I can’t get it working.

I have a original FWH installation 7.11 with original FIVEWIN harbour.

I get this error. The only other file with TOleAuto in Fivewin\samples
is mscomm32.prg. If you compile this file you have the same error.

Error: Unresolved external '_HB_FUN_TOLEAUTO' referenced from C:\FWH\SAMPLES\MSC
OMM32.OBJ


Thanks in advance
Otto


FUNCTION MAIN()
// LOCAL oExcel := CREATEOBJECT( "Excel.Application" )
LOCAL oExcel := TOleAuto( ):New( "Excel.Application" )
LOCAL oWorkbook := oExcel:Workbooks:Add()
LOCAL oSheet := oExcel:ActiveSheet

oSheet:Cells( 1, 1 ):Value = "Test 1A"
oSheet:Cells( 1, 2 ):Value = "Test 1B"
oSheet:Cells( 2, 1 ):Value = "Test 3A"
oSheet:Cells( 2, 2 ):Value = "Test 3B"
oSheet:Rows( 2 ):Insert()
oSheet:Cells( 2, 1 ):Value = "Test 2A"
oSheet:Cells( 2, 2 ):Value = "Test 2B"
oExcel:Visible = .T.

//oSheet:SaveAs( "c:\xharbour\newfile.xls" )
//oExcel:Quit()


RETURN NIL

[Enrico Maria Giordano]

I forgot to say that you need hbole.lib or hbwin32.lib.

EMG

[Antonio Linares]

Otto,

You have to link HbWin32.lib from Harbour

[Otto]

Where can I download HbWin32.lib ?
Regards,
Otto

[Antonio Linares]

Otto,

http://rapidshare.com/files/72966698/hbwin32.lib.html

Have you checked if it is included in Harbour libs directory ?

[Otto]

Thank you Enrico and Antonio.