excel - 运行时错误 50012 - 对象 "Export"的方法 'VBComponent' 失败错误

Question

我有一段代码可以将模块和用户表单从一个工作簿传输到另一个工作簿，该工作簿可以在多个系统上运行。但是，我有 2 个用户失败并出现错误

“运行时错误 '50012' - 对象 'VBComponent' 的方法 'Export' 失败”

代码如下:

Public Sub TransferModule2()
Const MODULE_NAME    As String = "Module5"         ' Name of the module to transfer
Const UserForm As String = "UserForm1"
Dim ID As String
ID = Environ("USERNAME")

Dim TEMPFILE As String
TEMPFILE = "C:/Users/" & ID & "/Desktop/Modul.bas" ' temp textfile
TEMPFILE2 = "UserForm.frm"
   
   ' On Error Resume Next
   '**Create new workbook
   
   '** export the module to a textfile
   Workbooks(Module4.GetBook3).VBProject.VBComponents(MODULE_NAME).Export fileName:=TEMPFILE
  
   'import the module to the new workbook
   Workbooks(TemplateBook).VBProject.VBComponents.Import fileName:=TEMPFILE
   
   Workbooks(Module4.GetBook3).VBProject.VBComponents(UserForm).Export fileName:=TEMPFILE2
    Workbooks(TemplateBook).VBProject.VBComponents.Import fileName:=TEMPFILE2
  
   'kill the textfile
   Kill TEMPFILE
   Kill TEMPFILE2
End Sub

错误发生在第一个导出代码上。我在这些计算机上启用了 Visual Basic 对象项目模式，但它仍然失败，但在任何其他计算机上都没有问题。这些计算机与我的计算机在同一时间成像，并且文件位于一个位置，因此没有代码修改。我们正在运行具有完全相同更新的完全相同版本的 Office。

这个不是引用库或版本控制问题的导出对象语句可能与什么冲突？

Answer 1

事实证明，有问题的两个用户的登录 ID 与其桌面所在的位置不同。我不确定它为什么这样做，但事实证明这是 TEMPFILE 路径中的位置问题。我不知道为什么我没有注意到它让我在 UserForm 传输上使用默认路径，好像我已经看得更深我会看到那是解决方案。