vb怎样调用对话框，选择excel文件，并将选中的文件sheet1导入到MSHFlexGrid1中显示

地铁 2013-08-23 05:15:51

如题,vb怎样调用对话框，选择excel文件，并将选中的文件sheet1导入到MSHFlexGrid1中显示
谢谢!

...全文

248 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

地铁 2013-08-24

打赏
举报

谢

我的昵称被占用 2013-08-23

打赏
举报



Dim FileName As String
Private Sub Command1_Click()
 '引用ado：工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）
 '引用控件  Microsoft Common Dialog Control 6.X（版本号）
 '工程中有一个 MSHFlexGrid1 控件 ;一个CommonDialog1控件; 一个Command1控件
    MSHFlexGrid1.FixedCols = 0
    MSHFlexGrid1.FixedRows = 1
    
    CommonDialog1.Filter = "*.Xls(Excel文件)|*.Xls"
    CommonDialog1.ShowOpen
    
    If Len(CommonDialog1.FileName) = 0 Then Exit Sub
    
    FileName = CommonDialog1.FileName
    On Error Resume Next
    
    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=" & FileName & ";Extended Properties='Excel 8.0;HDR=Yes'"
    rs.Open "select * from [Sheet1$]", cn, adOpenDynamic, adLockOptimistic
    Set MSHFlexGrid1.DataSource = rs

End Sub