EXCEL里面有1列800行的数据，通过VB读取，并附值给一个数组！非常感谢！

Dim Exl
Dim Exlbook As New Excel.Workbook
Dim Exlsheet As Excel.Worksheet

Set Exl = CreateObject("Excel.Application")
Exl.Visible = False

Set Exlbook = Exl.Workbooks.Open("Excel所在路径")

Set Exlsheet = Exlbook.Worksheets("Sheet1")
Exlsheet.Activate
dim i%,a(800) as double
do
if i>=800 then
exit do
end if
a(i)=exlsheet.cells(i,1)
i=i+1
loop
end if