能不能不自动打开EXCEL表

我想将查询导入指定的EXCL表,得到大肚鸭老兄帮助,帮我设计了如下模块,(对不起,我不能上传附件),

Option Compare Database

'---------------------------------------------------------------------------------------
' Procedure : QueryToExcel
' DateTime  : 2008-12-2 00:02
' Author      : Henry D. Sy
' Purpose    : strQueryName 查询名（表名）
'                   xlsName 工作簿名
'                   strShtName 工作表名
'                   需要引用Microsoft Excel 11.0 Object Library
'---------------------------------------------------------------------------------------
'
Sub QueryToExcel(ByVal strQueryName As String, ByVal xlsName As String, ByVal _
                                                                        strShtName As String)
' Send the Query results to Excel
' for further analysis

    Dim rs As ADODB.Recordset
    Dim objXL As Excel.Application
    Dim objWs As Excel.Workbook
    Dim fld As ADODB.Field
    Dim intCol As Integer
    Dim intRow As Integer

    Set rs = New ADODB.Recordset

    ' Get the desired data into a recordset
    rs.Open strQueryName, CurrentProject.Connection

    ' Launch Excel
    Set objXL = New Excel.Application
    ' Open a  worksheet
    '    Set objWs = objXL.Workbooks.Open(CurrentProject.Path & "\" & xlsName & _
         ".xls")
    If Mid(xlsName, 2, 2) <> ":\" Then xlsName = CurrentProject.Path & "\" & xlsName & ".xls"
   
    Set objWs = objXL.Workbooks.Open(xlsName)

    objWs.Worksheets(strShtName).Activate

    ' Copy the data
    ' First the field names
    For intCol = 0 To rs.Fields.Count - 1
        Set fld = rs.Fields(intCol)
        objWs.Worksheets(strShtName).Cells(1, intCol + 1) = fld.Name
    Next intCol
    ' Now the actual data
    intRow = 2
    Do Until rs.EOF
        For intCol = 0 To rs.Fields.Count - 1
            objWs.Worksheets(strShtName).Cells(intRow, intCol + 1) = _
            rs.Fields(intCol).Value
        Next intCol
        rs.MoveNext
        intRow = intRow + 1
    Loop

    ' Make the worksheet visible
    objXL.Visible = True
    rs.Close
    Set rs = Nothing
End Sub
我在窗体中设置按钮:

Private Sub Command12_Click()
QueryToExcel "[分界站1 查询]", "D:\查询结果.xls", "Sheet3"

End Sub

可是我发现使用Command12,虽然能将数据导入D:\查询结果.xls", "Sheet3,但也会自动打开D:\查询结果.xls", "Sheet3,

我希望自动运行D:\查询结果.xls", "Sheet1

不知道怎么改,谢谢!

点击下载此附件