我有一个场景。我正在使用一组Excel文件进行报告。所有这些优点都启用了宏,并具有“登录”功能以连接到服务器。为了解决安全问题,我们必须更新“登录”功能。有没有办法在所有此类excel文件中编写宏来替换此功能?基本上是一个宏来更新一个宏!
启用宏安全性选项:
然后,您需要这样的代码:
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] 删除。
我来说两句