Read from XLS

[cdmmaui]

Can anyone provide sample code that reads values from an excel spreadsheet that can be stored to a variable?

[Enrico Maria Giordano]

Code: Select all

FUNCTION MAIN()

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

    LOCAL oSheet

    oExcel:WorkBooks:Open( "E:\XHARBOUR\TEST.XLS" )

    oSheet = oExcel:ActiveSheet

    ? oSheet:Cells( 1, 1 ):Value
    ? oSheet:Cells( 2, 1 ):Value
    ? oSheet:Cells( 3, 1 ):Value

    ? oSheet:Range( "A1" ):Value

    oExcel:Quit()

    RETURN NIL

EMG

[cdmmaui]

Thank You Enrico

[Patrick Mast]

Hey Darrell,

Is that picture-logo you use here the Brooks and Dunn logo?



Patrick