vba中如何读取文件中的数据，并赋值给一个二维数组

来源：百度知道 编辑：UC知道 时间：2024/06/08 14:20:36
我的原文件如下：
1 "0" 0 100 0
2 "0" 3000 100 0
3 "0" 0 400 0
4 "0" 100 300 0
5 "2" 350 300 0
6 "2" 350 305 0
7 "2" 400 305 0
8 "2" 400 300 0
9 "3" 500 300 0
10 "3" 620 450 0
11 "3" 780 600 0
12 "3" 910 700 0
13 "3" 1200 700 0
14 "3" 1400 580 0
15 "3" 1600 250 0
16 "4" 1700 250 0
17 "4" 1720 270 0
18 "4" 1730 270 0
19 "4" 1730 250 0
20 "5" 2000 250 0
21 "5" 2000 220 0
22 "5" 2100 220 0
23 "5" 2100 250 0
24 "1" 2200 300 0
25 "6" 2350 300 0
26 "6" 2350 315 0
27 "6" 2400 315 0
28 "6" 2400 300 0
29 "7" 2600 300 0
30 "7" 2600 3

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.ReadA