用VB快速读取EXCEL中的数据到数组中的例子

Public Sub GetGuJiaFromExcel(ByVal fs As String, ByVal r1 As Long, ByVal r2 As Long) '''''打开Excel文件读取数据
On Error GoTo Ends:
Dim mybb As Variant
Dim i As Long
Dim j As Long
Dim hao1 As Long
Dim Index1 As Long

If r1 < 1 Then Exit Sub
If r2 < r1 Then Exit Sub

Set oExcel = CreateObject("excel.application")
oExcel.Visible = True
Set oBook = oExcel.Workbooks.Open(fs)
Set oSheet = oBook.Worksheets(1)

mybb = oExcel.Range(Cells(r1, 1), Cells(r2, 6))
For i = 1 To r2 - r1 + 1
  hao1 = Val(mybb(i, 1))
  Index1 = GetGuIndex(hao1)
  If Index1 > 0 And Index1 <= nGu Then
  Gu(Index1).TimJiaBefore = Val(mybb(i, 3))
  Gu(Index1).TimJiaMax = Val(mybb(i, 4))
  Gu(Index1).TimJiaMin = Val(mybb(i, 5))
  Gu(Index1).TimJiaEnd = Val(mybb(i, 6))
  End If
   
Next
Ends:
oExcel.Quit
Set oSheet = Nothing
Set oBook = Nothing
Set oExcel = Nothing

End Sub

这是什么，有用的吗？