运行macros后，打开工作簿不会closures

我有一个工作簿工作表从另一个工作簿运行macros。 function运行良好。 但是具有macros（从活动工作表运行）的工作簿会打开并且不会通过vbaclosures。 我必须手动closures它。 我能做些什么来使其通过代码本身closures，以便其他文件保持打开状态

代码如下

Sub UpdateStockRegister() Application.DisplayAlerts = False Application.ScreenUpdating = False Application.Run "'F:\ITEMS.xlsm'!UniqueTransactionItems" ActiveWorkbook.Close Dim wbSource As Workbook Dim wbTarget As Workbook Set wbTarget = ThisWorkbook Set wbSource = Workbooks.Open("F:\ITEM REPORT.xlsm") wbSource.Sheets("TRANSACTION DATA").Copy After:=wbTarget.Sheets("STOCK REGISTER") wbSource.Close Savechanges = True Sheets("TRANSACTION DATA").Select ActiveSheet.Range("A1").EntireRow.Delete Range("A1").Select Sheets("TRANSACTION DATA").Select ActiveSheet.Range("A1").EntireRow.Delete Range("A1:A15000,B1:B15000,C1:C15000,D1:D15000,E1:E15000,F1:F15000").Select Selection.Copy Sheets("STOCK REGISTER").Select Range("A8").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False Selection.HorizontalAlignment = xlCenter Selection.VerticalAlignment = xlCenter Range("A8").Select Sheets("TRANSACTION DATA").Delete ActiveWorkbook.Save End Sub