打开宏后的关闭引用工作簿

shitianyun

那位高手帮忙修改一下，引用的工作簿能自动关闭。
现在运行宏后，所有引用的工作簿都打开了，一张一张关闭很麻烦。
最好能改成只关闭引用工作簿，其他已打开的不想关的工作簿不影响。

Sub 合并工作薄()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets("大原料明细").Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
End Sub

zjdh

Sub 合并工作薄()
    Dim FileOpen
    Dim X As Integer
    Application.ScreenUpdating = False
    FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="合并工作薄")
    If Not IsArray(FileOpen) Then Exit Sub  '不选择时退出
    X = 1
    While X <= UBound(FileOpen)
        Workbooks.Open Filename:=FileOpen(X)
        Sheets("大原料明细").Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        Workbooks(2).Close False
        X = X + 1
    Wend
    Application.ScreenUpdating = True
End Sub

zjdh

若要保存则：
Workbooks(2).Close True

shitianyun

谢谢大神。可以了！