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

[watyh]

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

[dingzhaofeng]

mark!

[watyh]

不懂

[liuxhrabbit]

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]

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

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

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

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

[watyh]

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

[watyh]

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

[runsoft]

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

[rogery]

?????

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