vba txt读写的几种方式

四种方式写txt

1、这种写出来的是ANSI格式的txt

　　 Dim TextExportFile As String

    TextExportFile = ThisWorkbook.Path & "\lcx.txt"

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.CreateTextFile(TextExportFile, True)

    f.WriteLine "罗彩霞：lcx"
    f.Close

2、这种是Unicode格式

    Dim TextExportFile As String

    TextExportFile = ThisWorkbook.Path & "\lcx.txt"

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.CreateTextFile(TextExportFile, True, True)

    f.WriteLine "罗彩霞：lcx"
    f.Close

3、这种是UTF-8格式的

Sub WriteTxt(path_, Filename, k)

    Dim tss As String

    'Filename = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")

    Open path_ & "\" & Filename For Output As #1

    For i =  To k
        If Cells(i, ).Value <> "" Then
            tss = Cells(i, ) & vbTab & Cells(i, ) & vbTab & Cells(i, ) & vbTab & Cells(i, ) & vbTab & Cells(i, ) & vbTab & Cells(i, )
            Print #, tss
        End If
    Next

    Close #

End Sub

4、这种方式可以设置字符格式

Sub WriteUTF8()
    Dim WriteStream As Object
    Set WriteStream = CreateObject("ADODB.Stream")
    With WriteStream
        .Type =                'adTypeText
        .Charset = "UTF-8"
        .Open
        .WriteText "你好utf-8"
        .SaveToFile ThisWorkbook.path & "\1.txt",   'adSaveCreateOverWrite
        .Flush
        .Close
    End With
    Set WriteStream = Nothing
End Sub