VBA读取TXT 失败，显示内容#N/A

pcbnet

请教一下，为什么我这段代码读附件TXT 后， 从14542 行开始就显示#N/A TEST.zip (357.44 KB, 下载次数: 5)

2022-12-2 15:16 上传

点击文件名下载附件

Sub Read()
    Dim s
    Dim Fl As String
    Fl = Application.GetOpenFilename("TXT,*.txt")
    If Fl = "False " Then Exit Sub
    Open Fl For Input As #1
    s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    Close #1
    Columns(1).Clear
    Columns(2).Clear
    Columns(3).Clear
    Columns(4).Clear
    Columns(5).Clear
    [a1].Resize(UBound(s) + 1, 1) = Application.Transpose(s)
End Sub

蓝桥玄霜

程序读取文本数据没有出错，是transpose函数对数组的大小有限制，建议将数据赋给一个新的数组，然后再赋值给单元格区域。

tanglf188

当在函数或公式中没有可用数值时，将产生错误值#N/A

pcbnet

蓝桥玄霜 发表于 2022-12-2 16:53
程序读取文本数据没有出错，是transpose函数对数组的大小有限制，建议将数据赋给一个新的数组，然后再赋值 ...

请版主赐教代码

gwjkkkkk

蓝桥玄霜 发表于 2022-12-2 16:53
程序读取文本数据没有出错，是transpose函数对数组的大小有限制，建议将数据赋给一个新的数组，然后再赋值 ...

蓝版正解。。。

蓝桥玄霜

1. Sub Read()
   
2.     Dim s, Arr, i&
   
3.     Dim Fl As String
   
4.     Fl = Application.GetOpenFilename("TXT,*.txt")
   
5.     If Fl = "False" Then Exit Sub
   
6.     Open Fl For Input As #1
   
7.     s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
   
8.     Close #1
   
9.     ReDim Arr(1 To UBound(s) + 1, 1 To 1)
   
10.     For i = 0 To UBound(s)
    
11.         Arr(i + 1, 1) = s(i)
    
12.     Next
    
13.     Columns(1).Clear
    
14.     [a1].Resize(UBound(Arr), 1) = Arr
    
15. End Sub
    

复制代码