如何在vba中讀取文件中的數據並賦給二維數組

公共函數readFileToVariable(strFileName)

'===============================================

將文本文件讀入變量。

@Param strFileName字符串文件路徑

' @Retrun字符串文本文件的內容

@Ver 0.1

@日期2015.9.25

'===============================================

Const ForReading = 1 '文件只讀常量。

Fso，文件

“Dim strFile”文件內容

Set objFso = CreateObject("腳本。文件系統對象”)

Set objFile = objFso。OpenTextFile(strFileName，用於讀取)

readFileToVariable = objFile。ReadAll

objFile。關閉

結束功能

公共函數readFileToArray(strFileName)

'===============================================

將文本文件讀入數組。

@Param strFileName字符串文件路徑

“@Retrun數組文本文件”的內容

@ 0.3版

@日期2015.9.29

@評論

修正了壹個函數名拼寫錯誤的錯誤

作者:klsjnh@qq.com

'===============================================

Dim strFile

strFile = readFileToVariable(strFileName)

readFileToArray = Split(strFile，vbCrLf)

結束功能