Tạo tệp.txt bằng các dữ liệu trong trong tệp .xlsx (3 người xem)

[titanic1012]

Hi cả nhà, em muốn tự động tạo ra file .txt bằng các dữ liệu đã có trong excel. nhờ các sư phụ chỉ giúp (File đính kèm)
em muốn nó tự động tạo ra file .txt chứ ko phải tạo bằng tay rồi open tệp .txt và ghi vào.
Rất mong các bác giúp e sớm ah!

 

[giaiphap]

Hi cả nhà, em muốn auto tạo ra file .txt bằng lấy dữ liệu trong excel. nhờ các sư phụ chỉ giúp (File đính kèm)
em muốn nó tự động tạo ra file txt chứ ko phải tạo bằng tay rồi open file .txt và write.
Rất mong các bác support e ah!

Bạn sử dụng thử code này xem thế nào?

Sub ExportText()
Dim arr(), i As Integer, PathFolder As String
PathFolder = ThisWorkbook.Path
If Right(PathFolder, 1) <> "\" Then PathFolder = PathFolder & "\"
With Sheet1
    arr = .Range("A2", .Range("C1000").End(xlUp)).Value
    For i = LBound(arr, 1) To UBound(arr, 1)
        Open PathFolder & arr(i, 2) & "-" & arr(i, 3) & ".txt" For Output As #1
            Print #1, "Ngay " & arr(i, 2) & " " & " chung ta " & arr(i, 3)
        Close #1
    Next i
End With
MsgBox "Da xuat xong"
End Sub

 

[Gió Đông]

Support=?

 

[VetMini]

Support=?

Sụp pót thì không phải mang ơn nhiều như Hép.

 

[titanic1012]

Bạn sử dụng thử code này xem thế nào?

Sub ExportText()
Dim arr(), i As Integer, PathFolder As String
PathFolder = ThisWorkbook.Path
If Right(PathFolder, 1) <> "\" Then PathFolder = PathFolder & "\"
With Sheet1
    arr = .Range("A2", .Range("C1000").End(xlUp)).Value
    For i = LBound(arr, 1) To UBound(arr, 1)
        Open PathFolder & arr(i, 2) & "-" & arr(i, 3) & ".txt" For Output As #1
            Print #1, "Ngay " & arr(i, 2) & " " & " chung ta " & arr(i, 3)
        Close #1
    Next i
End With
MsgBox "Da xuat xong"
End Sub

Thanks bác nhé! Để e thử

 

[titanic1012]

Sụp pót thì không phải mang ơn nhiều như Hép.

em mới vọc VBA, có gì mong các bác chém nhẹ tay.

 

[VetMini]

em mới vọc VBA, có gì mong các bác chém nhẹ tay.

Vọc VBA thì tốt. Nhưng vọc tiếng ngoại là điều tôi kiêng kỵ.

 

[titanic1012]

Vọc VBA thì tốt. Nhưng vọc tiếng ngoại là điều tôi kiêng kỵ.

em chẳng hiểu ý bác là thế nào. Mà thôi cũng ko muốn hiểu ah. Sau có gì bác cứ nói thẳng, e ko quen nói úp mở

 

[VetMini]

em chẳng hiểu ý bác là thế nào. Mà thôi cũng ko muốn hiểu ah. Sau có gì bác cứ nói thẳng, e ko quen nói úp mở

Theo bạn thì từ "support" có nghĩa là gì?
ĐSối với dân vọc tiếng ngoại thì từ "ko" đáng lẽ phải đọc là "Knocked out"

 

[titanic1012]

Theo bạn thì từ "support" có nghĩa là gì?
ĐSối với dân vọc tiếng ngoại thì từ "ko" đáng lẽ phải đọc là "Knocked out"

"support" là trợ giúp, mà em đang hỏi về VBA có học EN đâu mà bác giáo huấn. Có gì chỉ em cái em đang hỏi ah, bác toàn trả lời sai

 

[VetMini]

"support" là trợ giúp, mà em đang hỏi về VBA có học EN đâu mà bác giáo huấn. Có gì chỉ em cái em đang hỏi ah, bác toàn trả lời sai

Ở bài #4 tôi trả lời cho bài #3 mờ. Sai ở chỗ nào?

(Cái "EN" gì gì đó của bạn ngoài khả năng của tôi rồi, có muốn giáo huấn cũng chẳng được. Nếu hỏi VBA bằng tiếng Việt đàng hoàng thì có lẽ đã nhận được câu trả lời êm ả rồi)