Question

VB怎样实现excel的逐行读取

基本框架有，就是怎样实现点一下按钮，文本框中显示一行excel中的数据，要能按顺序逐行显示，求高手指点，谢谢啦
假设excel中有一列10行的数据，能实现逐行读取，点击按钮读第一行，再次点击读第二行，直到10行全部读完

Answer 1

窗体上添加2个文本框,Text1和Text2,设置它们的MultiLine 属性为True，这样可以显示多行文本。
添加1个按钮Command1。
使用菜单：[工程] -- [引用] -- ，勾选：Microsoft Excel 11.0 Object Library
'其中11.0是不一定的，要看你计算机安装的OFFICE版本而定，11.0对应Office2003
代码如下：
Option Explicit
Private Sub Command1_Click()
Dim xlsApp As Excel.Application '声明对象变量
Dim H As Long
Dim AStr As String
Dim BStr As String

Set xlsApp = Excel.Application '实例化对象
xlsApp.Visible = False '使Excel隐藏不可见
xlsApp.Workbooks.Open ("C:\book1.xls") '打开EXCEL文件，假设文件名为book1.xls，存放在C盘根目录
AStr = ""
BStr = ""
H = 1 '假设数据从第一行开始，如果第一行是列名称，就改为从2开始
Do While xlsApp.Application.ActiveWorkbook.Sheets("Sheet1").Range("A" & CStr(H)).Value <> ""
AStr = AStr & xlsApp.Application.ActiveWorkbook.Sheets("Sheet1").Range("A" & CStr(H)).Value & vbCrLf
BStr = BStr & xlsApp.Application.ActiveWorkbook.Sheets("Sheet1").Range("B" & CStr(H)).Value & vbCrLf
H = H + 1
Loop
Text1.Text = AStr
Text2.Text = BStr
xlsApp.ActiveWorkbook.Close savechanges:=True '关闭活动工作簿同时保存对它的更改。
xlsApp.Quit '关闭EXCELL
Set xlsApp = Nothing '释放资源

End Sub

追问

………复制粘贴的不要，这个我见过

Answer 2

这个简单
for 循环一下即可！

追问

能给出具体的吗？

追答

文本框，要与单元格中每行的个数一致！就可以了

追问

能给个程序不？