有那么复杂吗?几句代码就搞定Sub ReadFile(sFile As String)
Dim ByteArr() As Byte
Dim lFile As Long, lSize As Long
Dim sData() As String '用于存放TXT文本的数组
Dim Tmp As Long
If Dir(sFile) = "" Then Exit Sub '文件不存在则退出
lFile = FreeFile
lSize = FileLen(sFile)
'读取文件
ReDim ByteArr(lSize - 1) As Byte
'...