这段程序为什么已经能看到excel一瞬间被打开，但马上又自动关闭了?解决办法

这段程序为什么已经能看到excel一瞬间被打开，但马上又自动关闭了?
Private   Sub   Command1_Click()
        Dim   xlApp   As   Object
        Set   xlApp   =   GetObject( "e:\book3.xls ")
        xlApp.Application.Visible   =   True
End   Sub

[解决办法]
用这个
Private Sub Command1_Click()
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlQuery As Excel.QueryTable
Set xlApp = CreateObject( "Excel.Application ")
Set xlBook = Nothing
Set xlSheet = Nothing
Set xlBook = xlApp.Workbooks().Add
Set xlSheet = xlBook.Worksheets( "sheet1 ")
xlApp.Visible = True
End Sub