急问:pb中关于excel的ole属性以及函数调用!!

swordlhh 2008-09-03 04:08:11
哪里可以查到OLEObject的属性、函数等的帮助!!非常急!
其实目前急用的就是如何打开一个已有的excel文档,然后激活某个sheet,再取激活的页面中的数据,放入到dw中。
但是下面的程序总报错(具体错误地方已标注),请高手指点!!急!!!!
//open excel file
lo_excel = create OLEObject

li_value = getfileopenname("excel file",ls_path,ls_file,"excel文件","excel,*.xls")
if li_value = 1 then
li_excelok = lo_excel.connecttoobject(ls_path)
if li_excelok <> 0 then
messagebox("","连接EXCEL失败,请检查计算机中是否安装了EXCEL!")
return -1
end if
lo_excel.Application.WorkBooks.open(ls_path)
// lo_excel.WorkSheets('Sheet1').Activate//这一句是行不通的,但是网上很多人的例子用这个,迷惑......
end if

ib_end = false
if this.event ue_connect() = -1 then return -1
dw_cardinfo.setredraw(false)
//get data
for i = 1 to 9999
ll_row = dw_cardinfo.insertrow(0)
for j = 1 to 5
li_row = j - 1
lo_excel.Application.ActiveWorkBook.WorkSheets(1).Cells(1,1).value = "test"//测试用,行不通,网上很多人给的例子是用这个,疑惑中......
ls_tmp = lo_excel.Application.ActiveWorkBook.WorkSheets(1).Cells(1,1) //报错,同上一句
// ls_keyvalue[li_row] = String(lo_excel.Application.ActiveWorkbook.Worksheets[1].cells[i,j]) 本句行不通,疑惑中......
// ls_tmp = lo_excel.cells(i,j)//报错。
ls_keyvalue[li_row] = ls_tmp
if isnull(ls_keyvalue[li_row]) or len(ls_keyvalue[li_row]) <= 0 then
if j <> 0 then
messagebox("message","数据源文件中有空字符,请查证后重新导入~~d第"+string(i)+"行 第"+string(j)+"列")
return -1
else
ib_end = true
end if
end if
next
if ib_end then exit
//赋值语句省略
next
lo_excel.DisconnectObject()
destroy lo_excel
...全文
157 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lllyyymmm 2008-09-03
这种东西网上多的是,搜索一下就行了,还那么多废话。
回复
ybkenan 2008-09-03
可在excel中用錄制巨集的方式查看Excel中的語法。然後再在PB中調用。
回复
编程的夜猫 2008-09-03
查excel vba帮助。
回复
swordlhh 2008-09-03
在线等,急!!
恳请各位高手帮忙
回复
相关推荐
发帖
DataWindow
创建于2007-09-28

573

社区成员

PowerBuilder DataWindow
申请成为版主
帖子事件
创建了帖子
2008-09-03 04:08
社区公告
暂无公告