0

我制作了一个宏,它调用了我共享驱动器上保存的另一个宏。我从我问的上一个问题中给出的建议中得到了帮助。它正在处理我本地驱动器上的文件,但是一旦我从共享驱动器中的文件打开它,它就会停止工作。

宏名称是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

它不起作用任何建议都会有很大帮助。

4

1 回答 1

0

最省力的解决方案是在添加之前在本地复制 XLA。

根本原因可能是许多事情之一,锁定、只读文件夹或安全限制。最好不要弄乱它,这也会让您解决一系列潜在问题,例如:- 如果您在有人使用 xla 时更新 xla 会发生什么?

于 2013-02-13T11:38:39.380 回答