Question

跪求各位vb高手，在vb6.0中如何读取excel中的数据，并把数据填写到vb中的textbox上？

就是在vb的textbox输入一个代码，然后就读取excel中相应代码下同行不同列单元格中的数据，把其数据填写到相应的textbox中。
在vb的textbox输入下一个代码，然后在就读取excel中相应代码下同行不同列单元格中的数据，把其数据填写到相应的textbox中。
小弟是学工程的，不同编程，希望各位电脑高手帮忙，小弟在此谢过了。跪求回答啊！

Answer 1

不懂编程,代码给你也很难读懂.还是先学一点编程吧.
用ado对象,连接到excel表,下面的代码给你参考:
哦,使用前要先引用ado对象哦

Private Sub Command3_Click()
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim sql As String

'On Error Resume Next

strName = App.Path & "\book.xls" 'EXCEL文件名
strSheetName = "sheet1" 'EXCEL表名

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strName & ";Extended Properties='Excel 8.0;HDR=Yes'" '连接EXCEL文件

sql = "select * from [" & strSheetName & "$]" '打开EXCEL表
rs.Open sql, Conn, 3, 3

MsgBox rs.RecordCount '显示表里的记录数
Do Until rs.EOF
For i = 0 To rs.Fields.Count - 1 '读一行数据
List1.AddItem rs.Fields.Item(i).Name '读出数据,添加到list1里
If Not IsNull(rs.Fields.Item(i).Value) Then
List2.AddItem rs.Fields.Item(i).Value
Else
rs.Update
rs.Fields.Item(i).Value = i ' "peter" & i
rs.Update
End If
Next i
rs.MoveNext
Loop
rs.Close '关闭数据集
Conn.Close '关闭对象

End Sub

Answer 2

这个太简单了，不用跪的
就是用OLE连接EXCEL，然后操纵EXCEL读取数据