Dim bytFile() As Byte, strFile As String, strTmp As String        
        Open Txt_文件 For Binary As #1
        ReDim bytFile(LOF(1) - 1)
        Get #1, , bytFile
        Close #1
        strFile = StrConv(bytFile, vbUnicode)
        strTmp = Replace(strFile, vbCrLf, "")
        n = ((LenB(strFile) - LenB(strTmp)) / 2 + 1) / 2
我想用这段代码获取一个csv文件的行数，文件小可以，如果文件大了，比如几百M就会提示“内存溢出”（ReDim bytFile(LOF(1) - 1)），有什么解决办法不？

，我是为了先读出进度条的分母，那这样的话就不行了！

这个是个好方法也，能给个代码不？不知道怎么做啊！我的进度条控件的值是这样的：ProgButton.Value = (Number / n) * 100

[此贴子已经被作者于2019-12-14 23:34编辑过]

谢谢，按照你的思路解决问题了！   
 Line Input #1, s
 ReDim Preserve strFile(UBound(strFile) + 1)
 strFile(UBound(strFile)) = s
这几行在以前的代码中定义过，原来如此巧妙！

[此贴子已经被作者于2019-12-15 18:11编辑过]