在PB中怎样调用VBA宏代码？

watyh 2003-08-18 03:53:59

在PB中怎样调用VBA宏代码？

...全文

207 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

rogery 2003-08-19

打赏
举报

?????

我只有望楼兴叹的份了………

runsoft 2003-08-19

打赏
举报

ole_object.application.workbooks.open(book1.xls)
ole_object.application.activeworkbook.worksheets[5]

watyh 2003-08-19

打赏
举报

救救我，要不我明天完了!!!!!!!!!

watyh 2003-08-19

打赏
举报

哪位帮帮忙，要不我明天死定了,
我现在是万事具备，就差这一块了，
谁给我送送东风？
等待............................

watyh 2003-08-19

打赏
举报

比如说，我已经在BOOK1.XLS中录制了一个宏test，
我如何在PB中执行此test过程?

ole_object.Application.run(path + '\book1.xls!test')

执行到此语句时出错，
出错内容：
调用外部对象函数错误!
谁能帮我解决？？？

可以加到100分!!!!!!!!

liuxhrabbit 2003-08-19

打赏
举报

Integer li_target
OLEObject ole_object

ole_object = Create oleobject //建立OLE对象
IF ole_object.ConnectToNewObject("Excel.Application") <> 0 THEN //连接到Ole
MessageBox('OLE错误','无法建立与Word的连接!')
Else
ole_object.Application.Workbooks.Add() //增加空白工作表
ole_object.Visible = 1

ls_range='A1:B3'
oo=ole_object.Application.WorkSheets(1).Range(ls_range)
oo.Merge()
oo.Value=value
//可以加入任意的EXCEL函数或属性赋值

Ole_Object.DisConnectObject()
End If
Destroy Ole_Object

watyh 2003-08-18