EXCEL中单元格内容提取并转化为TXT

有时候统计完数据之后需要提取数据进行进一步分析，利用EXCEL原表格进行分析往往不太方便。需要将单元格内容进行提取并转化为其他格式，这次记录一下怎么提取特定单元格并保存成不同的TXT文本以便后续分析。

还是在EXCEL中利用VBA进行处理，不用其余编程语言，EXCEL本身就能进行处理。

Sub ExtractTop5RowsToTXT()
    Dim savePath As String
    Dim fileName As String
    Dim dataRange As Range
    Dim fileNum As Integer
    Dim rowCounter As Integer, colCounter As Integer

第一步也是设定宏名称以及设定对象
 

savePath = ThisWorkbook.Path & "\"
    
    ' 设置数据范围，这里假设是从A1到E5
    Set dataRange = Range("A1:E5")

    For rowCounter = 1 To 5
        ' 文件名可以依据需求定制，这里假设是以行号命名
        fileName = "Top5Row_" & rowCounter & ".txt"

第二步就是设定工作路径以及所需要的文件名，所需要提取的单元格

On Error Resume Next
        fileNum = FreeFile()
        Open savePath & fileName For Output As #fileNum
        If Err.Number = 0 Then
            For colCounter = 1 To dataRange.Columns.Count
                Print #fileNum, dataRange.Cells(rowCounter, colCounter).value
            Next colCounter
            Close #fileNum
        Else
            MsgBox "无法打开或写入文件：" & savePath & fileName & vbCrLf & Err.Description
            Err.Clear
        End If
        On Error GoTo 0
    Next rowCounter
End Sub

第三步就是进行数据的提取及录入并进行下一行的循环