如何执行EXCEL的宏?

[jxgzam]

我已成功建立EXCEL对象并在单元格填入了"abcde"

oleobject newoleobj,newoleworkbooks
newoleobj=create oleobject
if newoleobj.connecttonewobject("excel.application")<>0 then
messagebox("?","oleFAil!")
return
else
messagebox("ok","olesuccess!")

end if
newoleobj.workbooks.add
newoleobj.visible=true
newoleworkbooks=newoleobj.worksheets(1)
newoleworkbooks.cells(1,1).value = "abcde"


现在有如下宏如何执行?(如VB下直接使用即可).
Sub 宏1()
'
' 宏1 Macro
' kjgs 记录的宏 2005-3-21
'

'
Range("A1:B3").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub

[jxgzam]

请高手们赐教。先谢了！

[spring_cj]

newoleobj.宏1() ？

newoleworkbooks.宏1() ？

[hygougou]

应该和调用VBA函数差不多，

但不知道是否要声明？

[jxgzam]

那VBA函数如何调用呢？

我已知道如何执行EXCEL表里的宏 newoleworkbooks.appliction.run("宏1")
但如何将一些参数写进EXCEL表里的宏中呢？（比如选定区域，是根据数据表的字段数和记录数确定的），或者宏的代码如何直接在PB中使用呢？


-----------------------
hygougou:
应该和调用VBA函数差不多，

但不知道是否要声明？

[jxgzam]

有没有办法在PB中给当前的EXCEL表添加宏呢？
能解决添加宏这个问题也解决问题了。

[j9dai]

关注 + 友情UP

[jxgzam]

我已经找到解决问题的办法了.
我用我的方法已经可以设计用户自定义打印报表了,比如普通的工资表和工资条都可以实现.

但用户添加原始表字段后,输入界面部分还没有实现自定义.