UC知道vb读取表格数据问题
来源：百度知道 编辑：UC知道 时间：2024/06/09 10:59:35
哪位大哥帮检查下什么地方错了啊, 总说内存溢出
Private Sub Command1_Click()
Dim xlExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim AppExcel As Object
Set xlExcel = CreateObject("Excel.Application")
xlExcel.Workbooks.Open "C:\test.xls"
Set xlBook = xlExcel.Workbooks("test.xls")
Set xlSheet = xlBook.Worksheets(1)
Dim i As Long
With xlSheet
Debug.Print .Rows
For i = 1 To .Rows
Text1.Text = .Cells(23, 10).Value & .Cells(2, 2).Value & .Cells(2, 3).Value
Next
End With
xlBook.Close (True) '关闭EXCEL工作簿
xlExcel.Quit '关闭EXCEL
Set xlExcel = Nothing '释放EXCEL对象
End Sub
其实我就是想读取表格中的数据,在程序中显示出来 ,的时候数据还较大哪位大哥有这样的代码啊，谢谢
Private Sub Command1_Click()
Dim xlExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim AppExcel As Object
Set xlExcel = CreateObject("Excel.Application")
xlExcel.Workbooks.Open "C:\test.xls"
Set xlBook = xlExcel.Workbooks("test.xls")
Set xlSheet = xlBook.Worksheets(1)
Dim i As Long
With xlSheet
Debug.Print .Rows
For i = 1 To .Rows
Text1.Text = .Cells(23, 10).Value & .Cells(2, 2).Value & .Cells(2, 3).Value
Next
End With
xlBook.Close (True) '关闭EXCEL工作簿
xlExcel.Quit '关闭EXCEL
Set xlExcel = Nothing '释放EXCEL对象
End Sub
其实我就是想读取表格中的数据,在程序中显示出来 ,的时候数据还较大哪位大哥有这样的代码啊，谢谢
应该是Rows太大了。你应该检测一下有数据的行数总共是多少，然后再循环。
“Text1.Text = .Cells(23, 10).Value & .Cells(2, 2).Value & .Cells(2, 3).Value”这一行里的Text1.text和循环“i”有什么关系呢？
For i = 1 To .Rows-1
Text1.Text = .Cells(23, 10).Value & .Cells(2, 2).Value & .Cells(2, 3).Value
Next