Sử dụng Microsoft Scripting Runtime để thao tác với text file

[levanduyet]

Nếu có một lần nào đó các bạn phải xuất dữ liệu ra một file text, các bạn muốn "dữ liệu tiếng việt" vẫn giữ nguyên thì các bạn hãy nghỉ đến Microsoft Scripting Runtime

Chú ý : trong cửa sổ VBE bạn phải tham chiếu đến Microsoft Scripting Runtime.
*Viết dữ liệu vào file text

Sub WriteToTextFile()
Dim fs As Scripting.FileSystemObject, f As Scripting.TextStream
Dim l As Long
    Set fs = New FileSystemObject
    Set f = fs.OpenTextFile("C:\FolderName\TextFileName.txt", _
        ForWriting, True)
    With f
        For l = 1 To 100
            .WriteLine "This is line number " & l
        Next l
        .Close
    End With
    Set f = Nothing
    Set fs = Nothing
End Sub

Xuất dữ liệu vào file text nhưng giữ nguyên dữ liệu cũ

Sub AppendToTextFile()
Dim fs As Scripting.FileSystemObject, f As Scripting.TextStream
Dim l As Long
    Set fs = New FileSystemObject
    Set f = fs.OpenTextFile("C:\FolderName\TextFileName.txt", _
        ForAppending, True)
    With f
        For l = 1 To 100
            .WriteLine "Added line number " & l
        Next l
        .Close
    End With
    Set f = Nothing
    Set fs = Nothing
End Sub

*Đọc từ file text

Sub ReadFromTextFile()
Dim fs As Scripting.FileSystemObject, f As Scripting.TextStream
Dim l As Long
    Set fs = New FileSystemObject
    Set f = fs.OpenTextFile("C:\FolderName\TextFileName.txt", _
        ForReading, False)
    With f
        l = 0
        While Not .AtEndOfStream
            l = l + 1
            Cells(l, 5).Formula = .ReadLine
        Wend
        .Close
    End With
    Set f = Nothing
    Set fs = Nothing
End Sub

Thế đấy ! Thật tuyệt!

Lê Văn Duyệt