我制作了一个宏,它调用了我共享驱动器上保存的另一个宏。我从我问的上一个问题中给出的建议中得到了帮助。它正在处理我本地驱动器上的文件,但是一旦我从共享驱动器中的文件打开它,它就会停止工作。
宏名称是mymacro.xla
这些是代码:
Dim i As AddIn
Set i = Application.AddIns.Add("M:\nit\USER\nitin kumar\NQK\macro\run1.2.xla", True)
i.Installed = True
我创建了一个按钮,其代码如下:
Dim CoBa As CommandBar
Dim Ctlconst As CommandBarControl
On Error Resume Next
Set CoBa = Application.CommandBars.Add(Name:="Quote Daily Report", temporary:=True)
With CoBa
Set Ctlconst = .Controls.Add(Type:=msoControlButton)
With Ctlconst
.Caption = "Lexington Macro"
.Style = msoButtonIconAndCaptionBelow
.OnAction = "Accounts_Summary"
.FaceId = 483
.TooltipText = "NITIN"
End With
.Visible = True
.Position = msoBarBottom
End With
它不起作用任何建议都会有很大帮助。