如何读取EXCEL中的数据 ？

[hzwindy]

如何读取EXCEL中的数据 ？

[sunqi_790817]

OLEObject ExcelServer
integer ExcelOK
string ls_tmp
ExcelServer = CREATE OLEObject
ExcelOK = ExcelServer.ConnectToNewObject( "excel.application" )
ExcelServer.Workbooks.open("c:\aa.xls")
ExcelServer.ActiveWorkBook.Sheets("Sheet1").Select
ls_tmp = ExcelServer.ActiveSheet.Cells(1,1).value //取1行1列的值
ExcelServer.ActiveWorkBook.Close(false)
ExcelServer.quit

[hzwindy]

谢谢。
我是这样取的：
oleobject my
my = create oleobject
my.connecttoobject("d:\test.xls")
string s
s = string(my.application.workbooks(1).worksheets(1).cells(14,2).value)


但同时又碰到一个问题，因为我有一个循环读取动作，怎样判断已读到文件尾，否则读取的时候就会出错。
用如下语句运行时出错：无法找到EOF属性
我该怎样判断：

do while not my.application.workbooks(1).worksheets(1).eof
my.application.workbooks(1).worksheets(1).next
loop

[hzwindy]

谢谢，已经搞定。