运行宏不能关闭窗体

kangyunde

Sub 数据库恢复()
    If Dir(Range("A2") & "\数据库备份数据.xls") = "" Then
    MsgBox "没有查询到导入文件 数据库备份数据，请检查导入文件是否放在   " & Range("B2") & "   目录中"
    Exit Sub
    End If
    Dim i As Integer
    i = MsgBox("是否导入数据库备份数据，导入数据将覆盖原数据", 1, "数据导入")
    If i = 2 Then Exit Sub
    Dim sh As Worksheet
    Set sh = ActiveSheet
    Application.DisplayAlerts = False '屏蔽所有的提示。
    Application.ScreenUpdating = False '禁止屏幕刷新
    With GetObject(Range("A2") & "\数据库备份数据.xls")
    .Sheets("Sheet1").[A2:bC10000].Copy
    Sheets("数据汇总").Range("A3").PasteSpecial xlPasteValues
    ActiveWorkbook.Save
    Range("A1").Select
   Close False
    Sheets("数据汇总").Visible = False
    End With
    MsgBox "备份数据已导入"
    Range("D4").Select
End Sub

vitrel

问题可能是出在“Close False”，
请问一下，“Close False”的主体是什么？谁Close？
估计是少了一个点，试试改为“.Close False”