Excel宏更新宏

阿伦

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

ttaao​​ossuu

启用宏安全性选项:

在此处输入图片说明

然后,您需要这样的代码:

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

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章