• 主页
  • API 调用
  • 基础类
  • 控件与界面
  • 数据库相关
  • DataWindow
  • 项目管理
  • Web 应用
  • 脚本语言

如何执行EXCEL的宏?

jxgzam 2005-03-21 09:57:21
我已成功建立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
...全文
524 点赞 收藏 7
写回复
7 条回复
jxgzam 2005年03月23日
我已经找到解决问题的办法了.
我用我的方法已经可以设计用户自定义打印报表了,比如普通的工资表和工资条都可以实现.

但用户添加原始表字段后,输入界面部分还没有实现自定义.
回复 点赞
j9dai 2005年03月23日
关注 + 友情UP
回复 点赞
jxgzam 2005年03月23日
有没有办法在PB中给当前的EXCEL表添加宏呢?
能解决添加宏这个问题也解决问题了。
回复 点赞
jxgzam 2005年03月21日
那VBA函数如何调用呢?

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


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

但不知道是否要声明?
回复 点赞
hygougou 2005年03月21日
应该和调用VBA函数差不多,

但不知道是否要声明?
回复 点赞
spring_cj 2005年03月21日
newoleobj.宏1() ?

newoleworkbooks.宏1() ?
回复 点赞
jxgzam 2005年03月21日
请高手们赐教。先谢了!
回复 点赞
发动态
发帖子
PowerBuilder
创建于2007-09-28

599

社区成员

6.6w+

社区内容

PowerBuilder 相关问题讨论
社区公告
暂无公告