将宏从个人工作簿复制到其他工作簿

Question

我需要以编程方式将module1从我的个人工作簿复制到另一个工作簿。我得到了一个由我们的ERP系统生成的报告，它只是excel电子表格中的一堆数据，而我的个人.xls格式的宏，对数据进行排序和过滤以使其可用。它有很多步骤，所以我只是编写了一个宏来完成整个shebang，我将这个宏保存在我的个人中，因为每当我们在ERP系统中运行它时都会生成该报告，即它没有家，它就是＆ ＃39;每次我们得到它都是一个独特的文件。

我需要我这样做的人才能运行宏并拥有宏：

• 从personal.xlsb复制module1并将其放入报告中
• 将报告保存为我们在其上运行宏的一周中的日期。

我无法在不收到错误的情况下运行此代码。我看到的最常见的是它无法访问TRANSCT.xls

我已将信任中心设置更改为信任对VBA项目对象模型的访问权限。我在计算机上运行了一次此代码，运行正常。之后，在我的计算机和其他计算机上，它不起作用。

Workbooks("PERSONAL.XLSB").Activate
  Dim wbkSource As Workbook, wbkTarget As Workbook

Set wbkSource = Workbooks("PERSONAL.XLSB")
Set wbkTarget = Workbooks("TRANSCT.XLS")

wbkSource.VBProject.VBComponents("module1").Export ("c:\tmp\\MrXL1.bas")
wbkTarget.VBProject.VBComponents.Import ("c:\tmp\\MrXL1.bas")

报告的名称始终为TRANSCT.xls 它不以只读方式打开 personal.xlsb中的模块实际上名为Module1

我在这里失去了理智。