pb从excel读数据

pb从excel读数据

      pb从excel读数据。

　　实现通过PB来读取excel中某一行某一列的数据。

　　我在相关论坛上找到了一个例子，但其中的怎么申明，怎么调用还不太明白，例子如下：

　　读excel的代码：

　　ole1.workbooks.open(ls_pathname,0,0)

　　ole1.visible = true

　　//获取EXCEL单元格数据

　　ls_cell = ole1.workbooks[1].worksheets[1].cells(ll_rowno,ll_colno).value

　　各位可否通过一个实例进行说明呢？

　　谢谢了！

　　NO.1 作者： Hanson_bati_zhu

　　试试看

　　这个是用PB自带的例子改的

　　integer result

　　OLEObject myoleobject

　　myoleobject = CREATE OLEObject

　　result = myoleobject.ConnectToObject("现有的EXCEL文件名")

　　IF result = 0 THEN

　　MessageBox(,String(myoleobject.application.workbooks(1).worksheets(1).cells(行号,列号).value))

　　END IF

　　myoleobject.DisconnectObject()

　　DESTROY myoleobject

　　NO.2 作者： xiaozhigood

　　上面的写的太仓促 你可以看这个就可以了

　　//从excel文件获得数据

　　//建立从EXCEL表获取数据的通道

　　OLEObject ole1

　　ole1= CREATE OLEObject

　　result=ole1.ConnectTonewObject("Excel.application")

　　if result<>0 then

　　messagebox("提示！","连接Excel表出错,请重新选择")

　　return

　　end if

　　//操作员选择要导入数据的EXCEL文件

　　ll_rtn = getfileopenname(打开文件,ls_pathname,ls_filename,XLS,EXCEL文件(*.xls),*.xls)

　　if ll_rtn<>1 then

　　messagebox("提示！","连接Excel表出错,请重新选择")

　　return

　　end if

　　ole1.workbooks.open(ls_pathname,0,0)

　　ole1.visible = true

　　ll_rowno=1 ‘列

　　ll_colno=1 ’行

　　do while ole1.workbooks[1].worksheets[1].cells(ll_rowno,1).value

　　‘判断是否有数据

　　do while ole1.workbooks[1].worksheets[1].cells(ll_rowno,ll_colno).value

　　‘取数据

　　ls_cell = string(ole1.workbooks[1].worksheets[1].cells(ll_rowno,ll_colno).value)

　　s_cpxx[ll_rowno,ll_colno]=ls_cell

　　ll_colno=ll_colno+1

　　loop

　　ll_rowno=ll_rowno+1

　　loop

　　ole1.visible = false

　　‘关闭

　　ole1.workbooks.close()

　　‘销毁

　　destroy ole1

2011年02月07日 21:34:00 xyjnzy 阅读数：1175