【发布时间】:2013-02-13 19:38:39
【问题描述】:
我创建了一个宏来调用保存在我共享云端硬盘上的另一个宏。我从我问的上一个问题中给出的建议中得到了帮助。它正在处理我本地驱动器上的文件,但是一旦我从共享驱动器中的文件打开它,它就会停止工作。
宏名称是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
它不起作用任何建议都会有很大帮助。
【问题讨论】:
-
可能文件被其他用户打开? Excel 以出色的方式锁定文件。另外:路径是像 server:// 这样的 UNC 路径吗?如果是这样,也许 Excel 拒绝打开 CMD 路径? CMD 是这样做的,所以这就是我的猜测。
标签: vba excel excel-2007