Hi，大家好，我是编程小6，很荣幸遇见你，我把这些年在开发过程中遇到的问题或想法写出来，今天说一说
vba创建并写入文本文件_vba取指定字符后内容,希望能够帮助你!!!。

有的时候，我们在操作Excel的时候，

最后常常需要输出一个记录的log，这样可以供后期追溯。

主要使用CreateTextFile方法。

Private Sub CreateTxtFile() Dim fso As Object Dim myTxt As Object Dim MyFName As String Dim i As Integer Dim nowDate As String Dim sht As Worksheet nowDate = CDate(Now()) nowDate = Replace(nowDate, ":", "") '去除Now()函数的返回的冒号 nowDate = Replace(nowDate, "/", "") '去除Now()函数的返回的斜杠 nowDate = Replace(nowDate, " ", "_") '去除Now()函数的返回的空格 MyFName = ThisWorkbook.path & "/" & nowDate & ".txt" '确定新建的txt文件的路径 Set fso = CreateObject("Scripting.FileSystemObject") '创建文件需要使用Scripting.FileSystemObject对象 Set myTxt = fso.CreateTextFile(fileName:=MyFName, OverWrite:=True) '使用CreateTextFile创建文件 For Each sht In ThisWorkbook.Worksheets '循环每一个sheet myTxt.Write sht.Name & vbCrLf '使用Write方法写入sheet名，然后插入一个换行符 Next myTxt.Close Set myTxt = Nothing Set fso = Nothing End Sub

动图演示如下：

今天的分享到此就结束了，感谢您的阅读，如果确实帮到您，您可以动动手指转发给其他人。