把excel导入到SQL的问题。

Question

  Dim XL  As Excel.Application
         Dim xlb As Excel.Workbook
         Set XL = New Excel.Application
          XL.Workbooks.Open "c:\dt.xls"
          Set xlb = XL.Workbooks(1)
          XL.Visible = True
          Dim cnn As New ADODB.Connection
         Dim rs  As ADODB.Recordset
          If rs.State <> 0 Then
             rs.Close
          End If
         Set rs = New ADODB.Recordset
          rs.Open "select * from Student_xx", cnn, adOpenKeyset, adLockOptimistic
          If rs.EOF Then
            MsgBox "open   table   failed!"
            Exit Sub
          End If
          rs.AddNew
          rs.Fields("学籍号") = XL.Cells(2, 2)
          rs.Update
上面是我导入的代码，可是总提示“对象变量或WITH块没有设置”请高手指教，谢谢。

Answer 1

在工程->引用-> 里面找Excel

Answer 2

还要找MicroSoft Access Data Object 

Answer 3

"Dim cnn As New ADODB.Connection"这一句完了要为"cnn"赋值啊！cnn.connectionstring="    " 数据源没有连，当然有问题了。检查一下。

Answer 4

Dim XL As New Excel.Application 还需要声明一个WorkSheet吧

Answer 5

        Dim rs  As ADODB.Recordset 
          If rs.State  <> 0 Then 
             rs.Close 
          End If 
         Set rs = New ADODB.Recordset 
改成        Dim rs  As New ADODB.Recordset 
          If rs.State  <> 0 Then 
             rs.Close 
          End If