還是關於VB和EXCEL的問題
小弟是VB新手，求各位大蝦幫忙。
在VB中有一個MSFlexGrid控件，如何用ADO調用EXCEL數據，讓它在該控件内顯示出來。
急需，謝謝
问题点数：50、回复次数：1Top
1 楼faysky2（出来混，迟早是要还嘀）回复于 2006-07-04 18:54:20 得分 0
Private Sub Form_Load()
Dim cn As Object
Dim rs As Object
Set cn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
cn.CursorLocation = 3
cn.Open "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=c:\test.xls"
rs.Open "select * from [sheet1$]", cn, 1, 1
Dim i As Long, j As Long
With MSFlexGrid1
.Rows = rs.RecordCount
.Cols = rs.Fields.Count
For i = 0 To .Rows - 1
For j = 0 To .Cols - 1
.TextMatrix(i, j) = rs(j) & ""
Next
rs.MoveNext
Next
End With
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End SubTop
