Chiudi file di origine di fogli copiati

Il software della nostra società crea report da templates e riempie i dati utilizzando gli script VBA. Devo modificarlo, quindi dopo aver riempito tre fogli di lavoro in una cartella di lavoro con i dati correnti, deve copiare due fogli di lavoro da rapporti creati in precedenza memorizzati in altri file. Ho modificato il codice, già presente, e ho aggiunto la mia parte. Ho semplicemente aprire la cartella di lavoro di origine e utilizzare il codice esistente per copiare i miei valori.

'this code is in REPORT_3.xls file Sub Init_Copy_Sheets() ReDim Copy_Sheets(5) Dim x As Workbook Dim y As Workbook Dim strFilePath1 As String Dim strFilePath2 As String strFilePath1 = "PREVIOUS_REPORT_1.xls" strFilePath2 = "PREVIOUS_REPORT_2.xls" Set x = Workbooks.Open(strFilePath1) Set y = Workbooks.Open(strFilePath2) Set Copy_Sheets(1).Worksheet = ThisWorkbook.Sheets("report_sheet_1") With ThisWorkbook.Sheets("report_sheet_1") Set Copy_Sheets(1).Range = .Range("A1:O64") End With Copy_Sheets(1).Name = "report_sheet_1" 'same code for sheets report_sheet_2 and report_sheet_3 'MY CODE STARTS HERE Set Copy_Sheets(4).Worksheet = x.Sheets("previous_report1_sheet_1") With x.Sheets("previous_report1_sheet_1") Set Copy_Sheets(4).Range = .Range("A1:U35") End With Copy_Sheets(4).Name = "previous_report1_sheet_1" Set Copy_Sheets(5).Worksheet = y.Sheets("previous_report2_sheet_1") With y.Sheets("previous_report2_sheet_1") Set Copy_Sheets(5).Range = .Range("A1:U30") End With Copy_Sheets(5).Name = "previous_report2_sheet_1" 'MY CODE ENDS HERE End Sub 

Funziona bene e copia i fogli necessari a nuovi rapporti, ma funziona solo, quando è così e lascia aperti i rapporti precedenti. Quando desidero chiudere i rapporti precedenti da cui ho copiato i fogli e aggiungo queste due righe:

  x.Close False y.Close False End Sub 

aggiunge solo al foglio di lavoro precedente_report1_sheet_1 che è vuoto (non dovrebbe essere vuoto), quindi aggiunge un foglio completamente vuoto con il nome predefinito Sheet1 alla prima posizione e lascia il PREVIOUS_REPORT_1.xls aperto. Sembra che non apri nemless il PREVIOUS_REPORT_2.xls. In poche parole, non funziona, quando cerco di chiudere i file sorgenti alla fine. Quali suggerimenti, come posso chiudere in sicurezza le due tabs di lavoro?