Sub 创建文本文件()Dim fso   As New Scripting.FileSystemObjectDim ostream As Scripting.TextStreamDim sfname As StringDim str1 As Stringsfname = Application.InputBox(prompt:="请输入文本文件的名称", _Title:="输入文件名称", Type:=2)If sfname = "False" Or sfname = "" Then Exit Subsfname = ThisWorkbook.Path & "\" & sfname & ".txt"Set ostream = fso.CreateTextFile(Filename:=sfname, overwrite:=True)r = 2DoWith Sheet1str1 = ""For i = 1 To 3str1 = str1 & .Cells(r, i) & ","NextEnd Withostream.WriteLine Left(str1, Len(str1) - 1)Loop Until IsEmpty(Sheet1.Cells(r, 1))ostream.CloseMsgBox "文本文件创建成功!"Set ostream = NothingSet fso = Nothing
End Sub