vba中如何讀取文件中的數據，並賦值給壹個二維數組

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