如何用vba创建空白的文本文件？

在vba中可以引用FileSystemObject对象的CreateTextFile方法创建一个空白的文本文件。

它的语法如下

object.CreateTextFile(filename[, overwrite[, unicode]])

其中第一个参数filename表示要创建的文本文件的完整路径，比如“c:\1.txt”。

第二个参数表示假如第一个参数所表示的文本文件已经存在，那么是否可以创建空白的文本文件覆盖它。如果设置为True，则直接用创建的空白文本文件覆盖存在的文本文件，如果设置为False，则如果要创建的文本文件已经存在，会弹出“文件已经存在”的错误提示。

第三个参数表示要创建的文本文件的编码格式。

如下所示：

Sub QQ1722187970()
    Set oFSO = CreateObject("Scripting.FileSystemObject")
        sFilePath = Excel.ThisWorkbook.Path & "\" & "1" & ".txt"
    With oFSO
        Set oTextStream = oFSO.CreateTextFile(sFilePath, False)
    End With
End Sub