Excel宏更新宏

Question

我有一个场景。 我正在使用一组Excel文件进​​行报告。 所有这些优点都启用了宏，并具有“登录”功能以连接到服务器。 为了解决安全问题，我们必须更新“登录”功能。 有没有办法在所有此类excel文件中编写宏来替换此功能？ 基本上是一个宏来更新一个宏！

Answer 1

启用宏安全性选项：

然后，您需要这样的代码：

Sub AddMacro()

    Dim xlbook As Workbook
    Set xlbook = ActiveWorkbook 'Assign workbook to have macro added here

    Dim xlmodule As Object
    Set xlmodule = xlbook.VBProject.VBComponents.Add(1)

    Dim strCode As String
    strCode = _
       "Function MyFunction()" & vbCr & _
       "'some function code here" & vbCr & _
       "End Function"
    xlmodule.CodeModule.AddFromString strCode

End Sub

Answer 2

过去我也遇到过类似的问题。 基本上需要在所有用户使用新费率时更新功能。

我的解决方案是使用.xlam文件，基本上是在用户重新引导计算机时推送更新。

如果您没有多个用户，则只需在“ PERSONAL.XLSB”中将宏作为模块即可，只需更新该宏即可，然后该宏将适用于每个工作簿。