Excel VBAclosures加载项而不提示保存

我正在显示一个加载项，将工作表复制到活动工作簿，然后再次隐藏加载项。 这可以正常工作，但是当Excel工作簿closures时，用户会得到一个提示，询问他们是否要保存对加载项的更改。 我怎样才能修改这个语法，以便加载项总是被closures，没有任何提示保存更改？

Dim wbName As String wbName = ActiveWorkbook.Name ThisWorkbook.IsAddin = False Dim LookupWB As Workbook: Set LookupWB = Application.Workbooks("URZ.xlam") Sheets("Green").Select ActiveSheet.Copy Before:=Workbooks(wbName).Sheets(1) LookupWB.IsAddin = True 

Answer 1

你可以添加这一行： LookupWB.Saved = True
但我不认为你需要显示加载项，然后隐藏它。

试试这个代码：

 Sub test() Dim Wb As Workbook: Set Wb = ActiveWorkbook Dim LookupWB As Workbook: Set LookupWB = Application.Workbooks("URZ.xlam") LookupWB.Sheets("Green").Copy Before:=Wb.Sheets(1) End Sub