如何将EXCEL中cell的数据导入Microsoft SQL server?

Question

在EXCEL宏的VB编辑器中：
   Set Sheet = ThisWorkbook.ActiveSheet
    MsgBox Sheet.Cells(7, "A")
   End Sub
如何将 Sheet.Cells(7, "A") 导入 Microsoft SQL server中？

Answer 1

把Excel表当作数据库来访问
    strFileName = dirname & filename & ".xls"
    adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strFileName & ";Extended Properties='Excel 8.0;HDR=Yes'"
    adoRecordset.Open "select * from [students.sheet$] ", adoConnection, adOpenKeyset, adLockOptimistic
    Do While Not adoRecordset.EOF
       '读数据显示，Sheet.Cells(7, "A") 实际上就是第7行中A字段的数据
    loop
    adoRecordset.close
   adoConnection.close

Answer 2

我是初学者，上面的代码我不是很明白。我想问我是在EXCEL的VB编辑器中写的代码呀，那Data Sourse指的应该是Microsoft SQL server中的数据库呀？能不能解释一下。

Answer 3

我也想问一下怎么在vb中把excel或是其他的格式的数据导入数据库啊？
或者说在vb中调用dts之类的东东？有没有代码啊？谢谢了！