VBA将指定范围的值保存为txt文本

序言

        在Excel中用VBA将指定范围的值保存为txt文本，这个看似简单的命题，但我在百度搜寻了两天都没发现满意的答案，用AI来编也是答非所问，只好自己研发了，下面是研发成果，需要的朋友可以直接拿去用，节省自行研发的时间。

正文

        程序设计成功有两个关键步骤，一个是遍历指定范围内的所有单元格，另一个是遍历单个单元格值的每一行，网上有些高手给出的方案只做了第一步，没做第二步，结果保存出来的内容不分行，全部内容都整到同一行去了，简直没法看。

        为了让程序方便调用，我们可以将它设计成SaveToTxt函数，该函数需要3个参数变量，txtRng变量表示指定的范围，savePath变量表示保存的路径，fileName变量表示保存的文件名。

        SaveToTxt函数的代码如下：

Sub SaveToTxt(txtRng As Range, savePath As String, fileName As String)
' 将指定范围的值保存至txt文本。
' txtRng变量表示指定的范围，savePath变量表示保存的路径，fileName变量表示保存的文件名。
'
    Dim i As Long, j As Long, k As Long
    Dim cellValue As Variant
    Dim lines() As String
    
    ... ...
    ... ...
    
    MsgBox fileName & " 保存成功", vbOKOnly + vbInformation, "提示"
    Exit Sub
    
Error:
    MsgBox "SaveToTxt 执行错误！", vbOKOnly + vbExclamation, "错误"
    
End Sub

        以上是部分代码展示，需要完整代码的请点击这里下载SaveToTxt函数。

        该函数如何使用呢，下面我来给大家演示一下，比如（图1）我们要将A1:A2范围内的诗歌内容保存至D盘下的“古诗”文件夹，文件名叫“李白.txt”。

图1

        我们可以使用下面的代码来执行：

Private Sub Demo_SaveToTxt()

    Dim txtRng As Range
    Dim savePath As String
    Dim fileName As String
    
    Set txtRng = Range("A1:A2")
    savePath = "D:\古诗"
    fileName = "李白.txt"
    
    Call SaveToTxt(txtRng, savePath, fileName)
    
End Sub

       执行效果如下图2：

图2

        在使用过程中，我们只需要修改以下3个参数变量的值即可：

        Set txtRng = Range("A1:A2")
        savePath = "D:\古诗"
        fileName = "李白.txt"

        注意事项：savePath参数指定的文件夹需要事先创建好，否则执行会出错，fileName指定的文件无需事先创建，程序会自动创建。