当作数据库操作:'引用ado:工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号) Private Sub Form_Load() Dim cn As New ADODB.Connection, rs As New ADODB.Recordset cn.CursorLocation = adUseClient cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\temp.xls;Extended Properties='Excel 8.0;HDR=Yes'" rs.Open "select * from [Sheet1$]", cn, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = rs End Sub
或用Excel对象来做,读取数据,然后循环导入
Private Sub Form_Load()
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\temp.xls;Extended Properties='Excel 8.0;HDR=Yes'"
rs.Open "select * from [Sheet1$]", cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
[Sheet1$]是指Excel表里的Sheet1工作表