急！怎样让Excel2000中的数据输出到程序的变量中？

Question

Dim xlApp As Excel.Application 
Set xlApp = New Excel.Application Set xlApp = CreateObject("Excel.Application") 
'激活EXCEL应用程序 
xlApp.Visible = False '隐藏EXCEL应用程序窗口 
Set xlBook = xlApp.Workbooks.Open(strDestination) 
'打开工作簿，strDestination为一个EXCEL报表文件 
Set xlSheet = xlBook.Worksheets(1) 
'设定工作表 strXXXX=xlSheet.Cells(1,1)

Answer 1

是不是可以把excel中的数据导入一个空的数组啊？
盼回复，救急

Answer 2

可以导入到数组中，msdn中有例子

Answer 3

导入数组
for i=1 to 10
  a(i)=xlSheet.Cells(i,1)
next