Question

我在工作簿（包含许多模块）中编写了一个vba代码，我需要将包含新代码的存档（例如Setup.XLSB）发送给我工作的其他人。

在打开Setup.XLSB并单击安装程序按钮以调用install_new_modules_inside_personal（）之后，它应该用新的模块替换PERSONAL.XLSB中的旧模块。

如果用户在PERSONAL.XLSB中已有自己的模块，我不希望将它们删除。我只是希望我的模块包括新代码来替换我的旧代码同名。

Private Sub Install_new_modules_inside_personal()

Dim Ver As String
Ver = "3" 'Number of version. Insert manually.

Dim startupFolder As String
startupFolder = Application.StartupPath

'Setup archive check
If ActiveWorkbook.Name <> "Setup.XLSB"  Then
   MsgBox ("Error message.")
   Exit Sub
End If

'Version check. This one here is OK.

'Check if PERSONAL.XLSB else save Setup.XLSB as PERSONAL in Application.StartupPath

'export – import code goes here

End Sub

在PERSONAL.XLSB中用更新的模块替换旧模块

0 个答案: