将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 , 数据库(包含打印,安装,报表)