共有ドライブに保存されている別のマクロを呼び出すマクロを作成しました。私が尋ねた前の質問で与えられた提案から助けを得ました。ローカル ドライブにあるファイルで動作していますが、共有ドライブのファイルから開くとすぐに動作しなくなります。
マクロ名は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
それはうまくいきません。どんな提案も大いに役立ちます。