How to create an Excel .csv

[Rick Lipkin]

To All

Does anyone have an example on how to create an Excel .csv comma delimited useing TOleAuto() ??

Many Thanks
Rick Lipkin

[Enrico Maria Giordano]

Code: Select all  Expand view

#define xlCSV 6


FUNCTION MAIN()

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

    LOCAL oSheet

    oExcel:WorkBooks:Add()

    oSheet = oExcel:ActiveSheet

    oSheet:Cells( 1, 1 ):Value = "This is a test 1"
    oSheet:Cells( 1, 2 ):Value = "This is a test 2"
    oSheet:Cells( 1, 3 ):Value = "This is a test 3"

    oExcel:ActiveWorkBook:SaveAs( "E:\XHARBOUR\SAVED.CSV", xlCSV )

    oExcel:ActiveWorkBook:Close( 0 )

    oExcel:Quit()

    RETURN NIL

EMG