当前位置:编程学习 > VB >>

将excel数据导入到vb的问题

从excel导入数据到MSHFlexGrid,为什么只显示了第一条记录
代码如下:
On Error GoTo ErrorHandler
Dim xlsconn As New ADODB.Connection
Dim xlscmd As New ADODB.Command
Dim rs As New ADODB.Recordset
    CommonDialog1.ShowOpen
    xlsconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CommonDialog1.FileName & ";Extended Properties=excel 8.0;Persist Security Info=False"

    xlsconn.Open
    
    If MsgBox("确实要导入数据吗?", vbInformation + vbYesNo, Me.Caption) = vbYes Then
        rs.Open "select * from [sheet1$] ", xlsconn
        Set MSHFlexGrid1.DataSource = rs

        If rs.EOF And rs.BOF Then
            MsgBox "导入失败", vbInformation, Me.Caption
        Else
            MsgBox "记录已被导入", vbInformation, Me.Caption
        End If
    End If
    Set xlsconn = Nothing
    Set rs = Nothing
Exit Sub
ErrorHandler:
    MsgBox err.Description, vbInformation, Me.Caption

--------------------编程问答-------------------- 题目就借了,应该是在VB中打开excel才对啊! --------------------编程问答-------------------- …… 先别管题目了,帮忙解决下问题吧 --------------------编程问答-------------------- 關注! --------------------编程问答-------------------- 没用过MSHFlexGrid,也不用绑定。帮不上忙了。
不过你可以用

do while not rs.eof
    debug.print rs.fields(0)
    rs.movenext
loop
rs.close
来试看看打开是否成功! --------------------编程问答-------------------- 说出邮箱,发给你现成的函数 --------------------编程问答-------------------- 我也有同样的问题“如何将excel数据直接导入到vb的问题 ”,请多多指教!谢谢!
我的邮箱是cxgnj@163.com --------------------编程问答-------------------- 你可以用MSHFlexGrid1.TextMatrix( , )=rs.fields( )
补充:VB ,  数据库(包含打印,安装,报表)
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,