Nhờ giúp đỡ: Xuất mỗi ô excel thành 1 file text riêng biệt

[lehungpharmacist]

Em muốn xuất tất cả các ô chứa text của cột B, Mỗi ô xuất thành 1 file .txt

Lấy tên file là text của cột A cùng hàng

VÍ dụ Lấy [nội dung ô B1] lưu thành file với tên là : [nội dung của ô A1]

Em xin chân thành cảm ơnnnnnnn

///
Nếu không thể đặt tên theo ý mình thì đặt tên theo stt cũng đc ạ.

 

[Maika8008]

Em muốn xuất tất cả các ô chứa text của cột B, Mỗi ô xuất thành 1 file .txt

Lấy tên file là text của cột A cùng hàng

VÍ dụ Lấy [nội dung ô B1] lưu thành file với tên là : [nội dung của ô A1]

Em xin chân thành cảm ơnnnnnnn

///
Nếu không thể đặt tên theo ý mình thì đặt tên theo stt cũng đc ạ.

Chạy Sub sau:

Sub ExportTextFile()
Dim fso As Object, File As Object
Dim FPath As String, Rw As Long

FPath = ThisWorkbook.Path & "\"

Set fso = CreateObject("Scripting.FileSystemObject")

With Sheet1

    For Rw = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
        Set File = fso.CreateTextFile(FPath & .Range("A" & Rw) & ".txt", True, True)  '.CreateTextFile(Tên file, [Ghi đè = True], [Dùng unicode = True])
        File.WriteLine .Range("B" & Rw)
        File.Close
    Next
   
End With

Set fso = Nothing

End Sub

 

[lehungpharmacist]

Chạy Sub sau:

Sub ExportTextFile()
Dim fso As Object, File As Object
Dim FPath As String, Rw As Long

FPath = ThisWorkbook.Path & "\"

Set fso = CreateObject("Scripting.FileSystemObject")

With Sheet1

    For Rw = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
        Set File = fso.CreateTextFile(FPath & .Range("A" & Rw) & ".txt", True, True)  '.CreateTextFile(Tên file, [Ghi đè = True], [Dùng unicode = True])
        File.WriteLine .Range("B" & Rw)
        File.Close
    Next
  
End With

Set fso = Nothing

End Sub

Cảm ơn bác nhiều nhé. Em test thấy ok rồi <3