400
社区成员
发帖
与我相关
我的任务
分享向PB高手求教！！狂送分！！在pb中如何导入Excel文件
现在做一个项目，要求把Excel格式的文件导入到sql server 中（在程序运行中），不能让客户先把Excel文件save as 成.txt格式的文本文件，请问如合做？我试过用数据管道，但是没有办法导入。
...全文
请发表友善的回复…
发表回复
yangxiao_jiang 2002-05-27
- 打赏
- 举报
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
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
xjbs 2002-05-27
- 打赏
- 举报
DDE
dy830901 2002-05-27
- 打赏
- 举报
ole
qjx7221 2002-03-20
- 打赏
- 举报
建个excel odbc 然后加个数据源
autumn_fox 2002-03-20
- 打赏
- 举报
关注
handi 2002-03-20
- 打赏
- 举报
试试ole控件吧。 :))
jamy_li 2002-03-20
- 打赏
- 举报
先转换成DBF文件，再利用SQL PIPLINE导入
