vb如何从excel表中读取数据？

Question

vb如何从excel表中读取数据？

Answer 1

Option ExplicitPublic Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection
Dim ExcelApp As New Excel.ApplicationPrivate Sub Form_Load()
    Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source= C:\Documents and Settings\Administrator\桌面\EXCEL\test.xls;Extended Properties='Excel 8.0;HDR=Yes'"
    Conn.CursorLocation = adUseClient    Conn.Open
    Rs.Open "select * from [jobs]", Conn, adOpenKeyset, adLockOptimistic
    Set Me.DataGrid1.DataSource = RsEnd Sub