excel综合应用实例(VB+ADO+API+access+excel)

feng474 · 发表于 2010-6-7 19:38

老师，我想知道这个是怎么做的呀？

yykxiaoyang · 发表于 2010-6-7 20:52

原帖由 feng474 于 2010-6-7 19:38 发表
老师，我想知道这个是怎么做的呀？

Sub NewAWReportToolbar()
On Error Resume Next
Dim arr As Variant, ID As Variant, I As Integer
Dim Toolbar As CommandBar
Application.CommandBars("AWReport3.0").Delete
arr = Array("返回首页", "参数设置", "重算当前", "重算所有", " 预览 ", " 打印 ", " 导出 ", _
"资产负债表", "损益表", "现金流量表", "现流表附表", "股权变动表", "报表列表", "退出系统")
ID = Array(1016, 538, 215, 459, 109, 4, 531, 500, 278, 1837, 1750, 2114, 501, 1640)
Set Toolbar =Application.CommandBars.Add("AWReport3.0", msoBarTop)
With Toolbar
.Protection = msoBarNoResize
For I = 0 To UBound(arr)
With .Controls.Add(Type:=msoControlButton)
.Caption = arr(I)
.FaceId = ID(I)
.ToolTipText = arr(I)
.BeginGroup = True
.OnAction = "toolbar" & I + 1
.Style = msoButtonIconAndCaptionBelow
End With
Next
.Protection = msoBarNoChangeVisible + msoBarNoCustomize + msoBarNoMove + msoBarNoResize
.Visible = True
End With
Set Toolbar = Nothing
End Sub

复制代码

zez · 发表于 2010-6-8 17:57

谢谢分享!!

feng474 · 发表于 2010-6-8 19:32

老师你好：
我是初学者，你能不能把你封装的过程做个详细的图解呀，这样才能让象我这样的初学者学习呀。

qr1008 · 发表于 2010-6-8 20:18

赵师傅帮我编个代码吧

yykxiaoyang · 发表于 2010-6-9 14:23

原帖由 feng474 于 2010-6-8 19:32 发表
老师你好：
我是初学者，你能不能把你封装的过程做个详细的图解呀，这样才能让象我这样的初学者学习呀。

这好像难，我不会做那些东东，有兴趣多发贴，相信你在本论坛可学到所需的知道，愿你学习进步!

yykxiaoyang · 发表于 2010-6-9 14:27

原帖由 qr1008 于 2010-6-8 20:18 发表
赵师傅帮我编个代码吧

feng474 · 发表于 2010-6-9 20:12

老师，你能不能把你研究这个时看的帖子地址发上来呀。你做的太好了，我真心的想学习。

yykxiaoyang · 发表于 2010-6-9 21:35

这咋给你说呢,我觉得我帖子中说的很明白了,再就是学习过程中,我不可能记住每一个地址,
你多在本站搜搜,再就是有不懂的可发贴,这儿多的是高手!祝你学习进步!

feng474 · 发表于 2010-6-10 08:20

谢谢你的回复，更谢谢你的鼓励。

		自动登录	找回密码
密码			免费注册

[分享] excel综合应用实例(VB+ADO+API+access+excel)