Excel VBA计算文件夹和子文件夹中所有文件的行数

Sub CalculateTotalRows()
    Dim FolderPath As String
    Dim FileName As String
    Dim TotalRows As Long
    
    ' 设置文件夹路径
    FolderPath = "C:\Path\To\Folder\"
    
    ' 设置初始行数为0
    TotalRows = 0
    
    ' 获取文件夹中的第一个文件
    FileName = Dir(FolderPath & "\*.*", vbNormal)
    
    ' 遍历文件夹中的所有文件
    Do While FileName <> ""
        ' 排除文件夹和系统文件
        If Not (FileName Like "." Or FileName Like ".." Or (GetAttr(FolderPath & FileName) And vbDirectory) = vbDirectory) Then
            ' 打开文件
            Workbooks.Open (FolderPath & FileName)
            
            ' 获取文件中的行数并累加到TotalRows变量
            TotalRows = TotalRows + ActiveSheet.UsedRange.Rows.Count
            
            ' 关闭文件
            ActiveWorkbook.Close
        End If
        
        ' 获取文件夹中的下一个文件
        FileName = Dir
    Loop
    
    ' 显示总行数
    MsgBox "Total rows: " & TotalRows
End Sub