从指定位置导入 .bas 文件时，对 Visual Basic 项目的编程访问不受信任

Question

我在使用 vba 代码将模块从一个工作簿导入到另一个工作簿时出现运行时 1004 错误

Sub importModuleBas()
 Dim wb As Workbook
 Dim strTemp As String
 sPath = "D:\Users\dheeraj.kumar\Desktop\New folder\"
 sourseFile = sPath & "Projec.xlsm"
 strTemp = sPath & "TransModule.bas"
 Set wb = Workbooks.Open(sourseFile )
 wb.Activate
 wb.VBProject.VBComponents.Import (strTemp)
 Kill (strTemp)
 wb.Close
 End Sub

Answer 1

您需要确保 Excel 的信任中心选项允许以编程方式访问 VBE/VbProject，并且两个都工作簿被信任可以执行宏。

请参阅 MS 知识库文章 282830对 Office VBA 项目的编程访问被拒绝