VBA xuất tệp .txt từ tệp ết-cel
- Thread starter bin.vcsc
- Ngày gửi
giaiphap
==(^o^)==
- Tham gia
- 12/3/07
- Bài viết
- 5,802
- Được thích
- 6,349
- Donate (Momo)
- Giới tính
- Nam
Nói lại lần nửa nếu bạn không mô tả chi tiết vấn đề của mình thì tui sẽ không hổ trợ nửa. Tất cả các hàng và các cột theo thứ tự ra sao? Các cột và các hàng xuất sang txt thì nó nằm gom chung lại hết hay tách ra? Gom chung là gom theo thứ tự hàng rồi tới cột hay cột tới hàng, còn không gom thì chúng cách nhau như thế nào (khoảng trắng, tab, ->, @,...)
Upvote
0
Quang_Hải
Thành viên gạo cội
- Tham gia
- 21/2/09
- Bài viết
- 6,069
- Được thích
- 7,992
- Nghề nghiệp
- Làm đủ thứ
Mình bổ sung thêm vào code của bạn để ra kết quả thôi. Sau này viết code phải khai báo biến rõ ràng nha, và trình bày khoa học chút để nhìn cho dễ khi cần xử lý. Nhìn code bạn làm mình nhớ lại những ngày đầu ở GPE
Mã:
Sub TaoFile()
fn = ActiveWorkbook.Path & "\HAN-D02DAT-"
dmy = Now()
mmm = Month(dmy)
If Len(mmm) = 1 Then
mmm = "0" & mmm
End If
dd = Day(dmy)
If Len(dd) = 1 Then
dd = "0" & dd
End If
hh = Hour(dmy)
If Len(hh) = 1 Then
hh = "0" & hh
End If
mm = Minute(dmy)
If Len(mm) = 1 Then
mm = "0" & mm
End If
fn = fn & mmm & dd & hh & mm & "00.txt"
FName = HAN & "DO2DAT" & mmm & dd & hh & mm & "00.txt"
Open fn For Output As #1
With Sheets("Data")
sArr = .Range("A2", .[A65536].End(3)).Resize(, 44).Value
End With
For i = 1 To UBound(sArr)
For j = 1 To UBound(sArr, 2)
tmp = tmp & vbTab & sArr(i, j)
Next
Print #1, tmp
tmp = Empty
Next i
Close #1
End Sub
Upvote
0
Bin đã chạy ra kết quả. Tuy nhiên do Bin đưa thông tin thiếu, và cũng như bác @giaiphap có nhắc Bin bổ sung ở trên về việc phân tách các cột trong tệp kết quả.
Nên nếu bây giờ mình muốn thêm dấu ; (dấu chấm phẩy giữa các cột) trong file xuất ra thì như thế nào.
Cám ơn bác @Quang_Hải rất nhiều.
Upvote
0
Cám ơn bác @Quang_Hải đã tận tình hỗ trợ.
Nội dung xuất ra đã ổn rồi. Tuy nhiên Bin hỏi thêm là dấu ";" đầu tiên này bỏ đi và ";" chỉ bắt đầu từ sau dãy số 99999999999 được không?
Upvote
0
Bin đã xuất được tệp như ý muốn. Cám ơn bác @Quang_Hải rất nhiều.
Upvote
0
Gửi bác @Quang_Hải.
Em vận dụng VBA vào tệp của công ty tuy nhiên khi xuất tệp ra thì có báo lỗi như sau. Mong bác xem và hướng dẫn giúp ah.
Em vận dụng VBA vào tệp của công ty tuy nhiên khi xuất tệp ra thì có báo lỗi như sau. Mong bác xem và hướng dẫn giúp ah.
Upvote
0
Gửi bác @Quang_Hải , em kiểm tra thì đúng là có lỗi. Nguyên nhân là do có "-" ở phía trước trong dữ liệu nguồn.
Mình có cách nào khắc phục không bác?
Bài đã được tự động gộp:
Gửi bác @befaint , sửa xong báo lỗi này:
Upvote
0
Cám ơn bác @Quang_Hải , em chỉnh lại .Formula nhưng các cột ngày tháng năm lại bị ảnh hưởng chuyển thành định dạng số (03/09/2021 -> 44248).
Mình có cách nào khắc phục lỗi này không bác?
Upvote
0
Bài viết mới nhất
- Question
- Question
- Question
