如何在Excel VBA导出TXT的代码中添加特定格式的总行数统计

核心修改步骤 #

1. 确定总行数来源：根据需求获取包含输入行数的总行数（而非仅导出行数），常见场景示例：

   • 选中区域所在工作表的已使用总行数：totalLineCount = rng.UsedRange.Rows.Count
   • 指定列的所有数据行数（比如A列）：totalLineCount = rng.Parent.Cells(Rows.Count, "A").End(xlUp).Row
   • 固定已知行数：直接赋值，比如totalLineCount = 1000

2. 生成符合格式的统计字符串：用VBA实现你指定的Excel公式逻辑，简化写法如下：

   countStr = "99" & Format(totalLineCount, "000000000") & String(289, " ")
   

   • Format(totalLineCount, "000000000")等价于公式中的REPT(0,9-LEN(LINE COUNT)) & LINE COUNT，自动补0到9位
   • String(289, " ")直接生成289个空格，对应公式里的REPT(" ",289)

3. 追加统计行到TXT末尾：在写完选中区域的所有内容后，将统计字符串写入文件。

修改后的完整VBA代码示例 #

Sub ExportSelectedToTXTWithTotalCount()
    Dim savePath As String
    Dim fNum As Integer
    Dim rng As Range
    Dim cell As Range
    Dim rowText As String
    Dim totalLineCount As Long
    Dim countStr As String
    
    ' 获取保存路径
    savePath = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
    If savePath = "False" Then Exit Sub
    
    ' 选中要导出的区域
    Set rng = Selection
    
    ' --- 替换为你的总行数获取逻辑 ---
    totalLineCount = rng.Parent.Cells(Rows.Count, "A").End(xlUp).Row ' 示例：A列所有数据行数
    
    ' 生成指定格式的统计字符串
    countStr = "99" & Format(totalLineCount, "000000000") & String(289, " ")
    
    ' 打开TXT文件准备写入
    fNum = FreeFile()
    Open savePath For Output As #fNum
    
    ' 逐行导出选中区域内容
    For Each cell In rng.Rows
        rowText = ""
        For Each c In cell.Cells
            rowText = rowText & c.Value & vbTab ' 可根据需要修改分隔符（如逗号、空格）
        Next c
        Print #fNum, rowText
    Next cell
    
    ' 写入总行数统计行
    Print #fNum, countStr
    
    ' 关闭文件
    Close #fNum
    MsgBox "导出完成！"
End Sub

注意事项 #

• 如果你导出的内容用的不是制表符分隔，修改rowText = rowText & c.Value & vbTab中的vbTab为你需要的分隔符（比如","或" "）
• 确保总行数的获取逻辑符合你的实际需求，比如如果输入行数是指特定范围的行数，替换对应的totalLineCount赋值语句

内容的提问来源于stack exchange，提问作者Jenna