怎样将excel的数据读入VBA中的数组哦？？

Question

怎样将excel的数据读入VBA的数组哦？？

Answer 1

具体实现代码：

Public Function readFileToVariable(strFileName)
'===============================================
' 读取文本文件到一个变量
' @Param strFileName String 文件路径
' @Retrun String 文本文件的内容
' @Ver 0.1
' @Date 2015.9.25

'===============================================
Const ForReading = 1 '文件只读常量
Dim objFso, objFile 'FSO，文件
Dim strFile '文件内容
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.OpenTextFile(strFileName, ForReading)
readFileToVariable = objFile.ReadAll
objFile.Close
End Function

Public Function readFileToArray(strFileName)
'===============================================
' 读取文本文件到一个数组
' @Param strFileName String 文件路径
' @Retrun Array 文本文件的内容
' @Ver 0.3
' @Date 2015.9.29
' @Comment
' 修正函数名拼写错误的Bug
' By klsjnh@qq.com
'===============================================
Dim strFile
strFile = readFileToVariable(strFileName)
readFileToArray = Split(strFile, vbCrLf)
End Function

Answer 2

这样，

Dim a(9) As integer,i as integer

for i=1 to 10

a(i-1)＝activesheet.range("A"&i).value

next

这样就将A1到A10的数据写到数组里了