604
社区成员
发帖
与我相关
我的任务
分享关于ms excel控件的用法
ole_1.InsertFile("d:\test.xls")
然后怎么取sheet和cells中的信息啊？或者提供一下控件用法的链接
然后怎么取sheet和cells中的信息啊？或者提供一下控件用法的链接
...全文
请发表友善的回复…
发表回复
yanfeilin 2006-11-22
- 打赏
- 举报
继续顶一下，如果没有好的回答就结帖了
yanfeilin 2006-11-03
- 打赏
- 举报
晕，我问的是《关于ms excel控件的用法》 ，不是OLEObject的用法，OLEObject的用法我会用
eastpond 2006-10-24
- 打赏
- 举报
mark
allright_flash 2006-10-23
- 打赏
- 举报
xlapp.Application.WorkBooks.Open("d:\test.xls")
xlApp.Application.Visible = false
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1] //选第几个sheet
for 循环
xlsub.cells[行,列].value //取cells的值
end //循环结束.
xlApp.Application.Visible = false
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1] //选第几个sheet
for 循环
xlsub.cells[行,列].value //取cells的值
end //循环结束.
青锋-SS 2006-10-23
- 打赏
- 举报
OLEObject xlapp,xlsub
xlapp = Create OLEObject
if xlapp.ConnectToNewObject("Excel.Sheet") < 0 then
MessageBox("Caption","Connection failed!")
return
end if
xlapp.Application.WorkBooks.Open("d:\test.xls")
xlApp.Application.Visible = false
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1] //选第几个sheet
xlsub.cells[行,列].value //取cells的值
xlapp = Create OLEObject
if xlapp.ConnectToNewObject("Excel.Sheet") < 0 then
MessageBox("Caption","Connection failed!")
return
end if
xlapp.Application.WorkBooks.Open("d:\test.xls")
xlApp.Application.Visible = false
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1] //选第几个sheet
xlsub.cells[行,列].value //取cells的值
青锋-SS 2006-10-23
- 打赏
- 举报
//使用完毕断开连接
xlapp.Application.WorkBooks.Close()
xlapp.DisConnectObject()
Destroy xlapp
xlapp.Application.WorkBooks.Close()
xlapp.DisConnectObject()
Destroy xlapp
青锋-SS 2006-10-23
- 打赏
- 举报
循环的终止条件呢?
