Question

Workbook2由Workbook1的Sub Workbook_Open打开。然后我删除了Workbook2中的Modul1，现在我想将Modul1从Workbook1复制到Workbook2。知道如何解决这个问题吗？

关心Wicki

Answer 1

现在我找到了解决方案。我必须在不同地点处理各种工作簿。所有工作簿在Modul1中都具有相同的vba代码。如果代码发生变化，我想要新文件＆＃34; Modul1.bas＆＃34;提供自动更新工作簿。它遵循＆＃39; Modul2＆＃39;中的更新代码。每个工作簿。使用Ctrl + u（例如）

调用代码

Sub Wu() 'shortcut Ctrl+u
    With ActiveWorkbook.VBProject
      .VBComponents.Remove .VBComponents("Modul1")
'      would be inserted as a Modul11
'      .VBComponents.Import ThisWorkbook.Path & "\Modul1.bas"
    End With
    'Start Wv after 2 sec
    Application.OnTime Now + TimeValue("00:00:02"), "Wv"
End Sub
Sub Wv()
    With ActiveWorkbook.VBProject
      .VBComponents.Import ThisWorkbook.Path & "\Modul1.bas"
    End With
End Sub

对待Wicki

将Workul1中的Modul1复制到Workbook2

1 个答案: