如何用VB逐行读取excel

Question

比如工作薄中A列用100个英语单词，VB有个文本框，然后让它一次显示一个单词，点一下按钮就能让它往下读取，不断点击从A1读取到A100

Answer 1

先在VB里面建立一个Excel Object用以访问Excel文件,如果你的Excel是CSV的则不需要,直接按照Txt文本方式打开读取即可.


建立Button事件,将获取的数据传入到TextBox里面即可.

参考如下代码:

条件:我有一个Excel文件D:\A.xls里面的Sheet1中A1开始有100个单词;在VB中Form1中有一个TextBox名字为Text1,有一个按钮，名字为Command1则实现代码如下:

Private i As Integer
Private Sub Command1_Click()
Set ExcelApp = CreateObject("Excel.Application")
Set ExcelBook = ExcelApp.Workbooks.Open("D:\A.xlsx")
Set ExcelSheet = ExcelBook.Worksheets("Sheet1")
Text1.Text = ExcelSheet.cells(i, 1)
i = i + 1
If i > 100 Then i = 1
End Sub
Private Sub Form_Load()
i = 1
End Sub

希望可以帮助到你！

追问

您好，
Text1.Text = ExcelSheet.cells(i, 1)
这一段代码提示错误
应用程序定义或对象定义错误
麻烦您能再帮忙一下

追答

代码我调试过的,没有问题哦。。
提示什么错误？？