Excel宏：获取TXT文本行数的方法

TOMaster.

已于 2023-03-10 00:14:40 修改

阅读量2.7k

点赞数 1

分类专栏： VBA技术文章标签： windows 小程序

于 2022-05-03 22:19:47 首次发布

本文链接：https://blog.csdn.net/bigtoothcat/article/details/124562707

版权

VBA技术专栏收录该内容

12 篇文章 3 订阅

订阅专栏

网上有很多人提供了类似的VBA代码，但经本人修改测试，只有以下方法管用，可以准确地获取指定TXT文本的行数（包含空行），建议用行数多、数据结构复杂的TXT文本来测试。

Sub 统计文本行数()
'
' 统计文本行数 宏
'
'
File = "C:\Windows\system.ini"

Dim fso, sFile
Dim n As Integer
n = 0
Set fso = CreateObject("scripting.filesystemobject")
Set sFile = fso.OpenTextFile(File, 1)
   Do While Not sFile.AtEndOfStream
      n = n + 1
      sFile.SkipLine
   Loop
sFile.Close
Set fso = Nothing
Set sFile = Nothing

MsgBox "一共有" & n & "行（含空行）"

End Sub