SQL导出EXCEL,,但是打开EXCEL时会同时出现好几个新的\空的工作薄,不知道是怎么回事?如何解决?谢谢!

Question

我用以下的代码导出EXCEL成功，同时在我的文档中会出现一个Book1的新文件，打开导出的EXCEL文件时我的文档中的文件也同时被打开，每导出一次在我的文档中就多出一个Book2、Book3……如何去除这个问题？谢谢！Set oexcel = CreateObject("Excel.Application")
    Set obook = oexcel.Workbooks.Add
    Set osheet = obook.Worksheets(1)    Adodc1.RecordSource = "SELECT * FROM CLK ORDER BY CL_ID"
    Adodc1.Refresh
    oexcel.Visible = False    osheet.Range("A3").CopyFromRecordset Adodc1.Recordset
    osheet.Name = "库"    '工作薄名等于当前工程名
    obook.SaveAs CommonDialog1.FileName    '& "\" & CurProName & "表.xls"
    oexcel.Quit
    Set osheet = Nothing
    Set obook = Nothing
    Set oexcel = Nothing

Answer 1

Set oexcel = CreateObject("Excel.Application") 
    Set obook = oexcel.Workbooks.Add 
    Set osheet = obook.Worksheets(1)     Adodc1.RecordSource = "SELECT * FROM CLK ORDER BY CL_ID" 
    Adodc1.Refresh 
    oexcel.Visible = False 
    osheet.Range("A3").CopyFromRecordset Adodc1.Recordset 
    osheet.Name = "库"    '工作薄名等于当前工程名 
    obook.SaveAs CommonDialog1.FileName    '& "\" & CurProName & "表.xls" 
    oexcel.Quit 
    Set osheet = Nothing 
    Set obook = Nothing 
    Set oexcel = Nothing

Answer 2

Set oexcel = CreateObject("Excel.Application") 
    Set obook = oexcel.Workbooks.Add 
    Set osheet = obook.Worksheets(1)     Adodc1.RecordSource = "SELECT * FROM CLK ORDER BY CL_ID" 
    Adodc1.Refresh 
    oexcel.Visible = False 
    osheet.Range("A3").CopyFromRecordset Adodc1.Recordset 
    osheet.Name = "库"    '工作薄名等于当前工程名 
    obook.SaveAs CommonDialog1.FileName    '& "\" & CurProName & "表.xls" 
    oexcel.Quit 
    Set osheet = Nothing 
    Set obook = Nothing 
    Set oexcel = Nothing

Answer 3

试试在oexcel.Quit前再加一句
obook.close

Answer 4

你的过程中会产生两个EXCEL文档,quit后,打开谁就是谁了

Answer 5

试试在oexcel.Quit前再加一句
obook.close（True）