显示用vb快速读取excel大量数据的代码

以下是可以用 VB 读取 Excel 大量数据的示例代码：

Dim xlsApp As Object
Dim xlsBook As Object
Dim xlsSheet As Object
Dim i As Integer
Dim j As Integer

Set xlsApp = CreateObject("Excel.Application")
Set xlsBook = xlsApp.Workbooks.Open("C:\File.xlsx")
Set xlsSheet = xlsBook.Worksheets("Sheet1")

' 从第1行到第100行，从第1列到第40列读取数据
For i = 1 To 100
    For j = 1 To 40
        Cells(i, j) = xlsSheet.Cells(i, j)
    Next j
Next i

xlsBook.Close SaveChanges:=False
xlsApp.Quit

Set xlsSheet = Nothing
Set xlsBook = Nothing
Set xlsApp = Nothing

以上代码将会逐行逐列地读取 Excel 文件的内容，将每个单元格的内容写入到 Excel 文件中。如果要快速读取大量数据，建议使用`xlsSheet.UsedRange`代替`For`循环，它将返回 Excel 文件中真正使用的范围。