如何解决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语句以及执行另一个工作簿中的宏的语句。
赞赏指导。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。