各位高手,救命呀!!!---有关pb中调用excel中数据的问题.(在线等待,高分回报!)

[hustwdx]

需要在pb中将excel中的数据取出来,然后按一定的格式打印到卡片上,我该怎么做呀?
请各位高手帮帮吗呀?那位又现成的脚本更好,一定重谢的.

[jingweishu]

这个问题我做过，在excel的帮助中有起相关的属性，并且在pb中调用ole控件，其他的办法也有，我者有非常完整的例子要不要。

[hustwdx]

楼上这位老兄你好,非常想要完整的列子,不只你有何条件,我的联系方式:
[e-mail]

[chinalht]

从pb中读取excel的数据, 很多pb网站都有例程下载, 你可以找一个看看,
然后做个相应格式的数窗口, 将读取的数据填充进去打印即可

[hustwdx]

楼上这位老兄可否指点一下在哪儿可以下载到吗?

[chinalht]

在www.pdriver.com的首页左上角的search栏输入excel, 即可找到.

[kelvinma]

你先建立一个FREEDOM的数据窗口，数据源为EXTERNAL，然后用以下程序将EXCEL中的内容读到这个数据窗口中，最后打印此数据窗口即可。
string ls_1
OLEObject myoleobject

myoleobject = CREATE OLEObject
result = myoleobject.ConnectToObject('abc.xls')

ls_1=myoleobject.application.workbooks(1).worksheets(1).cells(3,1).value
...

myoleobject.application.workbooks(1).close()

DESTROY myoleobject

[yangxiao_jiang]

OLEObject ole_object
ole_object = CREATE OLEObject


IF ole_object.ConnectToNewObject("Excel.Application") <> 0 THEN
MessageBox('OLE错误','OLE无法连接!')
return
END IF

ole_object.Visible = True
ole_object.Workbooks.Open(trim(sle_xls.text)) //打开模板
ole_object.ActiveWorkBook.Sheets("表一").Select
ole_object.ActiveSheet.Cells(20,33).value = ls_value
//断开OLE连接
Ole_Object.DisConnectObject()
Destroy Ole_Object