【VB6笔记-01】读取Excel绑定到DataGrid

最新推荐文章于 2023-05-26 07:08:25 发布

weixin_30702413

最新推荐文章于 2023-05-26 07:08:25 发布

阅读量237

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/allen0118/p/3726388.html

本文介绍了一种使用VBA从Excel文件中读取数据的方法。通过CommonDialog控件选择Excel文件，然后利用ADODB.Connection和ADODB.Recordset对象打开并读取Excel中的Sheet1数据。最后将数据源设置为DataGridView控件，实现数据的动态显示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub cmdOpen_Click()
    CommonDialog1.Filter = "Excel???t(*.xlsx)|*.xlsx"
    CommonDialog1.DialogTitle = "????"
    CommonDialog1.ShowOpen
    Me.txtFilePath.Text = CommonDialog1.FileName
    
    
    Dim DBconn As ADODB.Connection
    Dim strSQL As String
    Dim RS As ADODB.Recordset
    
    Set DBconn = New ADODB.Connection
    Set RS = New ADODB.Recordset
    DBconn.CursorLocation = adUseClient
    strSQL = "SELECT * FROM [Sheet1$]"
    DBconn.Open "provider=microsoft.ace.oledb.12.0;extended properties='Excel 12.0 Xml; imex=1'; data source=" & Me.txtFilePath.Text
    RS.Open strSQL, DBconn, adOpenDynamic, adLockOptimistic
    
    Set dgList.DataSource = RS
    dgList.AllowUpdate = True
    
    
End Sub