序言
在Excel中用VBA将指定范围的值保存至txt文本，这个看似简单的命题，但我在百度搜寻了两天都没发现满意的答案，用AI来编也是答非所问，只好自己研发了，下面是研发成果，需要的朋友可以直接拿去用，节省自行研发的时间。
正文
该程序设计成功有两个关键步骤，一个是遍历指定范围内的所有单元格，另一个是遍历单个单元格值的每一行，网上有些高手给出的方案只做了第一步，没做第二步，结果保存出来的内容不分行，全部内容都整到同一行去了，简直没法看。
为了让程序方便调用，我们可以将它设计成SaveValueToTxt函数，该函数需要3个参数变量，txtRng变量表示指定的范围，savePath变量表示保存的路径，fileName变量表示保存的文件名。
SaveValueToTxt函数的代码如下：
Sub SaveValueToTxt(txtRng As Range, savePath As String, fileName As String)
' 将指定范围的值保存至txt文本。
' txtRng变量表示指定的范围，savePath变量表示保存的路径，fileName变量表示保存的文件名。
'Dim i As Long, j As Long, k As LongDim cellValue As VariantDim lines() As String... ...... ...MsgBox fileName & " 保存成功", vbOKOnly + vbInformation, "提示"Exit SubError:MsgBox "SaveValueToTxt 执行错误！", vbOKOnly + vbExclamation, "错误"End Sub以上是部分代码展示，需要完整代码的请点击这里下载SaveValueToTxt函数。
该函数如何使用呢，下面我来给大家演示一下，比如（图1）我们要将A1:A2范围内的诗歌内容保存至D盘下的“古诗”文件夹，文件名叫“李白.txt”。
图1
我们可以使用下面的代码来执行：
Private Sub Demo_SaveValueToTxt()Dim txtRng As RangeDim savePath As StringDim fileName As StringSet txtRng = Range("A1:A2")savePath = "D:\古诗"fileName = "李白.txt"Call SaveValueToTxt(txtRng, savePath, fileName)End Sub
执行效果如下图2：
图2
在使用过程中，我们只需要修改以下3个参数变量的值即可：
Set txtRng = Range("A1:A2")
savePath = "D:\古诗"
fileName = "李白.txt"
注意事项：savePath参数指定的文件夹需要事先创建好，否则执行会出错，fileName指定的文件无需事先创建，程序会自动创建。
