VBA功能区栏集成

问题描述

我有一个Excel宏，该宏对MS-Word文档中的文档执行一些功能（以表单形式创建，并发送一些电子邮件）。如果宏是从主电子表格（宏所在的位置）执行的，则一切正常。我想将此宏放在功能区上，以使用户无需（或不知道主要Excel文档位于何处或将其打开）就可以启动它。我创建了一个子程序来检查电子表格是否已打开，并修改了功能区以包含该宏的图标。

哪个工作。但是，在未打开主Excel电子表格的情况下从功能区启动时，它将打开工作簿并完整运行宏（不执行宏的打开工作簿行）。我假设电子表格正在打开，因为被调用的宏驻留在其中（很有意义）。由于宏依赖于电子表格中包含的数据，因此我需要允许用户对其进行修改，然后再次从功能区重新运行宏。 是否有人有推荐的方法或最佳做法？预先谢谢你。

Sub MainForm()
    Dim WorkingFolder As String
    Dim File01 As String                               'Main Excel Data File,where all data is
    Dim File02 As String                               'Preliminary Email to send to user
    Dim File03 As String                               'Final Email to Send to user when production is complete
    Dim wb As Workbook
    
    WorkingFolder = "C:\Temp\"
    File01 = "01-MainData.xlsm"
    File02 = "02-PreProductionEmail.docx"
    File03 = "03-FinalProductionEmail.docx"
    
    If wbIsOpen(File01) = True Then
       MsgBox "Workbook Is Open"
       Run ("'C:\Users\Guest\Nextcloud\Documents\Excel Forms\02-TEST-Production Request-Data.xlsm'!CreateProductionForm")   
    Else
        MsgBox "The Main Datafile is not open,verify the last row before re-runing",vbOKOnly,"Not Open"
        Set wk = Workbooks.Open(WorkingFolder & DataFile)
    End If
End Sub

解决方法

里卡多提到的《指南》并不是我所需要的，但它很有帮助，确实使我走上了正确的道路。再次感谢里卡多。为了使此工作正常进行，我需要执行以下操作。

1-将过程放在其自己的单独* .xlam文件（另存为外接程序）上。

2-添加插件以通过“开发人员”标签自动启动

3-将宏添加到功能区。

我已经修改了上面的示例，以包含open语句以及执行另一个工作簿中的宏的语句。

赞赏指导。