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

Excel VBA是一种用于扩展Microsoft Excel功能的编程语言，VBA代表Visual Basic for Applications。使用Excel VBA，可以编写自定义的宏和脚本，以实现自动化和高级数据处理功能。

要计算文件夹和子文件夹中所有文件的行数，可以使用以下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

上述代码首先需要设置文件夹路径，然后通过Dir函数获取文件夹中的第一个文件，并遍历文件夹中的所有文件。对于每个非文件夹和系统文件，它会打开文件、获取文件中的行数并累加到TotalRows变量中，最后显示总行数。

此外，为了运行VBA代码，需要在Excel中打开Visual Basic编辑器（按Alt + F11），将代码粘贴到新的模块中，并运行CalculateTotalRows子程序。

这种方法可以在不打开每个文件的情况下计算所有文件的行数，从而提高效率。