我有这个带有自定义Ribbon的.xlsm文件。它有8个按钮分配给自定义宏。是否有一种方法将自定义Ribbon提取到.xlam中?如果没有,有没有办法从另一个。xlsm打开自定义功能区?
我使用此代码从Excel-File中提取CustomUI文件。它创建文件的副本,然后从中提取customUI14.xml文件。假设:C:Program Files7-Zip7z.exe可用
我将这段代码添加到sourcetools。不仅可以提取模块,还可以提取用于版本控制的customUI。
Public Sub extractCustomUIToFolder(wb As Workbook, pathTarget As String)
Dim tmp As String
tmp = wb.Path & "~temp.xlsm"
wb.SaveCopyAs tmp
Dim strShellString As String
strShellString = "e " & Chr$(34) & tmp & Chr$(34) & _
" -o" & Chr$(34) & pathTarget & "" & Chr$(34) & _
" customUI14.xml -r -aoa"
Dim exePath As String
exePath = Chr$(34) & "C:Program Files7-Zip7z.exe" & Chr$(34) & " "
Call Shell(exePath & strShellString)
Kill tmp
End Sub
使用相应的命令也可以"重新导入"。将customUI14.xml文件放入xlam
我能找到的关于导入和导出自定义色带的唯一文档是在这里
和
<- 点击文件/gh>
- 选择选项。
- 选择自定义功能区
- 选择导入/导出。
- 选择导出所有自定义
- 在"文件保存"窗口中选择目标文件和文件名。 点击保存完成。