TXT文件处理问题——

resarter

    Dim fso As Scripting.FileSystemObject
    Dim myTxt As Scripting.TextStream
    Dim myfile As String
    myfile = ThisWorkbook.Path & "\FSOTest.txt"     '指定文件名
    Set fso = New Scripting.FileSystemObject
    Set myTxt = fso.CreateTextFile(Filename:=myfile, OverWrite:=True)
    With myTxt
        .Write "FSO文本文件试验"
        .Close
    End With
    Set myTxt = Nothing
    Set fso = Nothing

提示：用户定义类型未定义。
        哪里有，TXT文件，从创建，到循环写入的标准代码。

changhong8

Sub test()
fn = "c:\test.txt"
n = FreeFile
Open fn For Output As #n
    Print #n, "写入测试字符串！"
Close #n
Shell "explorer.exe " & fn
MsgBox "写入完成！"
Kill fn
End Sub