Question

如何实现EXCEL表数据导入到VB的DATAGRID控件中

如何实现EXCEL表数据导入到VB的DATAGRID控件中
急急急.....

Answer 1

MsgBox "注意：请先将Excel表取名为333，然后将它放入E盘根目录下，否则不能导入数据", 48, "提示"

If Dir("e:\333.xls", vbDirectory) <> "" Then
FileCopy "e:\333.xls", "e:\444.xls"

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=e:\333.xls;Extended Properties='Excel 8.0;HDR=Yes'"
rs.Open "select * from [Sheet1$]", cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs

Else:
MsgBox "没有找到E盘下名称为“" & 333 & "”Excel文件", 64, "系统提示"
End If