Xuất dữ liệu vào file text

[Feeling_nothing]

Các bạn cho mình hỏi với. Mình code xuất dữ liệu từ file excel( vd từ cột A1:B10) ra file excel tên output.txt. Nhưng có cách nào khi mình thay đổi dữ liệu và chạy một lần nữa thì dữ liệu sẽ được thêm vào dòng tiếp theo trong file text thay vì replace ko ạ!

 

[snow25]

Các bạn cho mình hỏi với. Mình code xuất dữ liệu từ file excel( vd từ cột A1:B10) ra file excel tên output.txt. Nhưng có cách nào khi mình thay đổi dữ liệu và chạy một lần nữa thì dữ liệu sẽ được thêm vào dòng tiếp theo trong file text thay vì replace ko ạ!

Có nhiều cách những không biết bạn dùng cách nào.Ít nhất bạn cũng phải cho cái file và code lên đây chứ.Mà muốn nghiên cứu thì tìm trên này nhiều mà.

 

[Feeling_nothing]

Có nhiều cách những không biết bạn dùng cách nào.Ít nhất bạn cũng phải cho cái file và code lên đây chứ.Mà muốn nghiên cứu thì tìm trên này nhiều mà.

Mình tìm trên mạng được đoạn mã này nhưng khi chạy nó chỉ replace chứ ko paste thêm vào file txt được bạn ạ
Sub test6()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.CreateTextFile("D:\Sample.txt")
.WriteLine Now
.Close
End With
Set FSO = Nothing
End Sub

 

[Maika8008]

Mình tìm trên mạng được đoạn mã này nhưng khi chạy nó chỉ replace chứ ko paste thêm vào file txt được bạn ạ
Sub test6()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.CreateTextFile("D:\Sample.txt")
.WriteLine Now
.Close
End With
Set FSO = Nothing
End Sub

Bạn đưa file data + file txt lên đây thì tôi làm cho.

 

[snow25]

Mình tìm trên mạng được đoạn mã này nhưng khi chạy nó chỉ replace chứ ko paste thêm vào file txt được bạn ạ
Sub test6()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.CreateTextFile("D:\Sample.txt")
.WriteLine Now
.Close
End With
Set FSO = Nothing
End Sub

Đúng rồi còn gì bản phải mở bản cũ lên thì nó mới ghi đến dòng tiếp theo chứ.Bạn đây là tạo ra 1 file text mới rồi viết vào thì nó chẳng ra như vậy à.Nếu muốn mở thì dùng dòng lệnh này.
Set MyFile = fspenTextFile(FileName, 8,False, -1)

 

[VetMini]

Cái này làm kiểu cọ, đòi hỏi "tối ưu" này nọ mới khó chứ làm kiểu căn bản thì chỉ xuất đại ra một file tạm, dùng Shell Command nối hai files lại, xóa file tạm. Xong.

 

[Feeling_nothing]

Cảm ơn các bạn đã gợi ý, mình đã làm được rồi. Đầu tiên mình dùng createtextfile sau đó mình dùng opentextfile và viết vào là được ạ. Một lần nữa xin cảm ơn mọi ng đã giúp đỡ ạ