网文拔萃

读取一个表格里全部数据到一个数组里

Sub test() '
Dim Arr
Application.ScreenUpdating = False

Sset '读取DK路径，Al文件名

Set OB = GetObject(DK & "\" & Al)

With OB.Sheets("qaz")
R = .UsedRange.Rows.Count
C = .UsedRange.Columns.Count
Arr = .Range(.Cells(1, 1), .Cells(R, C))
End With

Application.Windows(Al).Visible = True
OB.Close False

Cells(22, 3) = R
Cells(22, 4) = C
For i = 1 To R
For j = 1 To C
Cells(i + 22, j + 2) = Arr(i, j)
Next
Next

Application.ScreenUpdating = True
End Sub

Sub test()
Dim Arr
Application.ScreenUpdating = False

Sset '读取DK路径，Al文件名

With GetObject(DK & Al).Sheets("qaz")
R = .UsedRange.Rows.Count
C = .UsedRange.Columns.Count
Arr = .Range(.Cells(1, 1), .Cells(R, C))
End With

For i = 1 To R
For j = 1 To C
Cells(i + 22, j + 2) = Arr(i, j)
Next
Next

Application.ScreenUpdating = True
End Sub