vb数组提取EXCEL的数据的问题

Dim A(0 to 50, 0 to 50) As String
Private Sub Command1_Click()
Set xlsApp = Excel.Application
With xlsApp
.Visible = True
.Workbooks.Open ("d:\abc.xls")
A(1, 1) = .Workbooks("abc").Sheets("Sheet1").Range("B2").Value
A(1, 2) = .Workbooks("abc").Sheets("Sheet1").Range("B4").Value
A(1, 3) = .Workbooks("abc").Sheets("Sheet1").Range("I3").Value
A(1, 4) = .Workbooks("abc").Sheets("Sheet1").Range("J3").Value
........
过程太大，如何处理

---

提个建议
如果是连续单元格区域的话
直接赋给友前迟数组（可用变体类型操作），例如
DIM XX
XX=xlsApp.SELECTION (切记前面不要使用 SET，否则传过来不是数组，而是对象)
用好李UBOUDN,LBOUnD 读取上下限，悔旁用FOR循环 导入你要的数组里

如果区域不连续，建议利用批注等信息来捕捉
例如在A1:D50这样的区域里 只有 3个单元格的信息需要提取
那么提取选择范围内所有单元格，然后读取批注信息（字体，大小，背景前景色等等都可以尝试）

当单元格的字体大小=10（假设是一个特定的，别的单元格不用这一尺寸）作为判断条件 然后读到数组里
有疑问可以给我留言

---