[archive] I am trying to read from excel

[Migrated content. Thread originally posted on 03 March 2003]

CREATE @Application OF @Excel HANDLE IN EXCEL-APP.
MODIFY EXCEL-APP @SheetsInNewWorkBook = 1.
MODIFY EXCEL-APP @GetOpenFilename()
GIVING FIELD.


MODIFY EXCEL-APP @Workbooks::Open(FIELD)
GIVING EXCEL-WORKBOOK.

MODIFY EXCEL-APP @VISIBLE = 1.


inquire EXCEL-WORKBOOK
@application::Worksheets() in EXCEL-WORKSHEET.
>>> this give a handle but ot the one that the active worksheet


MOVE "A1" TO excel-CELL-RANGE.
MOVE "Quarterly Sales Figures for 2002" TO field.

MODIFY EXcel-WORKSHEET
@Range(excel-CELL-RANGE)::Value = field.

If I may be so liberate, it is not quite obvious what is your problem, please provide some more explanation next time.

However, as your subject is: "I am trying to read from excel", I suppose what you want is how to get the content from a cell.

This is how you would extend your current sample to do that:

INQUIRE EXcel-WORKSHEET
@Range(excel-CELL-RANGE)::Value IN field.

[Migrated content. Thread originally posted on 03 March 2003]

CREATE @Application OF @Excel HANDLE IN EXCEL-APP.
MODIFY EXCEL-APP @SheetsInNewWorkBook = 1.
MODIFY EXCEL-APP @GetOpenFilename()
GIVING FIELD.


MODIFY EXCEL-APP @Workbooks::Open(FIELD)
GIVING EXCEL-WORKBOOK.

MODIFY EXCEL-APP @VISIBLE = 1.


inquire EXCEL-WORKBOOK
@application::Worksheets() in EXCEL-WORKSHEET.
>>> this give a handle but ot the one that the active worksheet


MOVE "A1" TO excel-CELL-RANGE.
MOVE "Quarterly Sales Figures for 2002" TO field.

MODIFY EXcel-WORKSHEET
@Range(excel-CELL-RANGE)::Value = field.

If I may be so liberate, it is not quite obvious what is your problem, please provide some more explanation next time.

However, as your subject is: "I am trying to read from excel", I suppose what you want is how to get the content from a cell.

This is how you would extend your current sample to do that:

INQUIRE EXcel-WORKSHEET
@Range(excel-CELL-RANGE)::Value IN field.

[Migrated content. Thread originally posted on 03 March 2003]

CREATE @Application OF @Excel HANDLE IN EXCEL-APP.
MODIFY EXCEL-APP @SheetsInNewWorkBook = 1.
MODIFY EXCEL-APP @GetOpenFilename()
GIVING FIELD.


MODIFY EXCEL-APP @Workbooks::Open(FIELD)
GIVING EXCEL-WORKBOOK.

MODIFY EXCEL-APP @VISIBLE = 1.


inquire EXCEL-WORKBOOK
@application::Worksheets() in EXCEL-WORKSHEET.
>>> this give a handle but ot the one that the active worksheet


MOVE "A1" TO excel-CELL-RANGE.
MOVE "Quarterly Sales Figures for 2002" TO field.

MODIFY EXcel-WORKSHEET
@Range(excel-CELL-RANGE)::Value = field.

At first i try to inquire but still have the error is member not found.


inquire EXCEL-WORKBOOK
@application::Worksheets() in EXCEL-WORKSHEET.

For me is the handle excel-worksheet that seen to don't have the correct value.

So i try that

CREATE @Application OF @Excel HANDLE IN EXCEL-APP.
MODIFY EXCEL-APP @SheetsInNewWorkBook = 1.
MODIFY EXCEL-APP @GetOpenFilename()
GIVING FIELD.

MODIFY EXCEL-APP @Workbooks::Open(FIELD)
GIVING EXCEL-WORKBOOK.

MODIFY EXCEL-APP @VISIBLE = 1.


inquire EXCEL-WORKBOOK
@application::Worksheets() in EXCEL-WORKSHEET.


MOVE "A1" TO excel-CELL-RANGE.
inquire EXcel-WORKSHEET
@Range(excel-CELL-RANGE)::Value = field.

And i have the error invalid member or something like that.

Thank for your reply!

[Migrated content. Thread originally posted on 03 March 2003]

CREATE @Application OF @Excel HANDLE IN EXCEL-APP.
MODIFY EXCEL-APP @SheetsInNewWorkBook = 1.
MODIFY EXCEL-APP @GetOpenFilename()
GIVING FIELD.


MODIFY EXCEL-APP @Workbooks::Open(FIELD)
GIVING EXCEL-WORKBOOK.

MODIFY EXCEL-APP @VISIBLE = 1.


inquire EXCEL-WORKBOOK
@application::Worksheets() in EXCEL-WORKSHEET.
>>> this give a handle but ot the one that the active worksheet


MOVE "A1" TO excel-CELL-RANGE.
MOVE "Quarterly Sales Figures for 2002" TO field.

MODIFY EXcel-WORKSHEET
@Range(excel-CELL-RANGE)::Value = field.

Worksheets is a collection so you need to specify which item in the collection you want, for instance the first sheet is 1 :

inquire EXCEL-WORKBOOK
@Worksheets::Item(1) in EXCEL-WORKSHEET.

or by name:

inquire EXCEL-WORKBOOK
@Worksheets::Item("Sheet1") in EXCEL-WORKSHEET.

[Migrated content. Thread originally posted on 03 March 2003]

CREATE @Application OF @Excel HANDLE IN EXCEL-APP.
MODIFY EXCEL-APP @SheetsInNewWorkBook = 1.
MODIFY EXCEL-APP @GetOpenFilename()
GIVING FIELD.


MODIFY EXCEL-APP @Workbooks::Open(FIELD)
GIVING EXCEL-WORKBOOK.

MODIFY EXCEL-APP @VISIBLE = 1.


inquire EXCEL-WORKBOOK
@application::Worksheets() in EXCEL-WORKSHEET.
>>> this give a handle but ot the one that the active worksheet


MOVE "A1" TO excel-CELL-RANGE.
MOVE "Quarterly Sales Figures for 2002" TO field.

MODIFY EXcel-WORKSHEET
@Range(excel-CELL-RANGE)::Value = field.

Worksheets is a collection so you need to specify which item in the collection you want, for instance the first sheet is 1 :

inquire EXCEL-WORKBOOK
@Worksheets::Item(1) in EXCEL-WORKSHEET.

or by name:

inquire EXCEL-WORKBOOK
@Worksheets::Item("Sheet1") in EXCEL-WORKSHEET.