如何实现打开新EXCEL表自动加载自己编写的宏excel自动加载vba

Question

如题所述

Answer 1

　　依次点击工具-》加载宏-》浏览，选中加载宏，并勾选该加载宏，点击确定，以后每次打开Excel，都会加载该宏。
　　也可使用代码：
　　Sub DynamicAddin()
　　Dim strFilename As String
　　Dim addX As AddIn
　　Dim strAddInName As String
　　On Error Resume Next
　　strAddInName = \"12345\"
　　strFilename = ThisWorkbook.Path & \"\\\" & strAddInName & \".xls\"
　　'尝试返回对加载宏的引用
　　Set addX = Application.AddIns(strAddInName)
　　If Err > 0 Then
　　Err.Clear
　　' 如果加载宏不在集合中，则添加它
　　Set addX = Application.AddIns.Add(strFilename)
　　If Err > 0 Then
　　' 如果发生错误，则退出过程
　　MsgBox \"没有找到加载宏文档\"
　　Exit Sub
　　End If
　　End If
　　' 加载加载宏
　　If Not addX.Installed Then addX.Installed = True
　　'调用加载宏中的过程
　　'其它代码
　　'...
　　'调用完成后卸载加载宏
　　End Sub
　　Private Sub Workbook_Open()
　　DynamicAddin
　　End Sub