在Excel中使用VBA自定义function区

我已经知道在Excel中创build自定义选项卡是不可能的! 后(不像即MSProject)

具体而言,我可以将macros的path更改为当前位置吗?

编辑看来,这个网页可能会导致答案,但我仍然不知道如何,但

一些更详细的情况描述:

用户将下载一个文件,其中包含一个材料清单,设备,劳动力。 每列包含数量,定价等信息当用户点击这个button,我想创build(我已经手动创build),另一个工作簿中的一个名为“主”的macros启动并将整个工作表(内容)复制到自身,并执行一些程序做的事情。

所以我面临的问题是,我发送一个新版本给客户,他必须把它放在确切的位置,否则将无法正常工作。 由于涉及到Mac和Windows计算机的组合,我宁愿看到在用户打开WorkBook B(包含代码的那个)时将button分配给该过程的情况。

这样一个新版本只需要打开一次,然后连续使用,用户只需打开下载的文件,点击相应的button,WorkBook B就会自行打开并执行。

也许还有其他方法可以解决这个问题。 我还没有检查是否不容易分配一个button快速访问工具栏…

这是我用来添加自定义工具栏的一些代码:

Set cbToolbar = Application.CommandBars.Add(csToolbarName, msoBarTop, False, True) With cbToolbar Set ctButton1 = .Controls.Add(Type:=msoControlButton, ID:=2950) Set ctButton2 = .Controls.Add(Type:=msoControlButton, ID:=2950) Set ctButton3 = .Controls.Add(Type:=msoControlButton, ID:=2950) End With With ctButton1 .Style = msoButtonIconAndCaption .Caption = "Set &Picklists" .FaceId = 176 .OnAction = "SetPicklist" End With With ctButton2 .Style = msoButtonIconAndCaption .Caption = "Set &Defaults" .FaceId = 279 .OnAction = "SetDefaults" End With With ctButton3 .Style = msoButtonIconAndCaption .Caption = "&Visibility Settings" .FaceId = 2174 .OnAction = "VisibilitySettings" End With With cbToolbar .Visible = True .Protection = msoBarNoChangeVisible End With 

“OnAction”控制运行的macros…如果要扩展该macros以在特定工作簿上运行macros,请使用“whatever.xls!MacroName”