ADO 连接excl的问题

   '需要引用Microsoft Excel 11.0 Object Library 

   Dim appExcel As Excel.Application
   Dim wbk As Excel.Workbook
   Dim wks As Excel.Worksheet
   Dim sFile As String
   Dim K As Integer
   Set appExcel = Excel.Application
  
   sFile = CurrentProject.Path & "\test.xls"
   Set wbk = appExcel.Workbooks.Open(sFile)
 
  
   For K = 1 To wbk.sheets.Count
  
       Debug.Print wbk.sheets(K).Name
      
    Next K
   
   Set wks = Nothing
   wbk.Close True
   Set wbk = Nothing
   appExcel.Quit
   Set appExcel = Nothing