如何用VB逐行读取<em>excel</em>-vb读取 excel,vb读取excel

窗体上添加2个文本框,Text1和Text2,设置它们的MultiLine 属性为True，这样可以显示多行文本。
添加1个按钮Command1。
使e799bee5baa6e59b9ee7ad94363用菜单：[工程] -- [引用] -- ，勾选：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