VBA tạo file định dạng .txt

[bin.vcsc]

Gửi anh chị và các bạn

Mình có đứa em có bài tập về viết VBA để xuất ra txt, em nó viết và chạy ra kết quả đã đúng theo yêu cầu.
Tuy nhiên khi nộp bài thì thầy giáo nói là tốt nhưng còn rất rối và hơi rườm rà. Các anh chị xem có thể giúp em nó VBA của nó đã ổn chưa nhé.
Xin cảm ơn ah.

 

[befaint]

Mình có đứa em có bài tập

Ẻm đó và ẻm ở bài này có sinh đôi với nhau không mình?

Upload/Dowload file từ FTP bằng Excel VBA

Anh chị và các bạn mình có thể tạo được Excel VBA để upload và download thông tin từ FTP về máy hoặc upload thông tin lên FTP không ah?

www.giaiphapexcel.com

 

[bin.vcsc]

Ẻm đó và ẻm ở bài này có sinh đôi với nhau không mình?

Upload/Dowload file từ FTP bằng Excel VBA

Anh chị và các bạn mình có thể tạo được Excel VBA để upload và download thông tin từ FTP về máy hoặc upload thông tin lên FTP không ah?

www.giaiphapexcel.com

Hi @befaint không khác nhau ah.
Bác cũng đang theo dõi bài đó hả. Có gì giúp em với nhá.
Cám ơn bác nhiều.

 

[VetMini]

Em ấy là nam hay nữ?
Đã có chồng chưa được mấy con?

Ủa mà sao mình hỏi ngu vậy ta?
Nếu là nữ thì tội gì phải nhờ anh hỏi giùm. Tự đăng tên hỏi lấy giải đáp nhanh hơn nhiều.

 

[bin.vcsc]

Em ấy là nam hay nữ?
Đã có chồng chưa được mấy con?

Ủa mà sao mình hỏi ngu vậy ta?
Nếu là nữ thì tội gì phải nhờ anh hỏi giùm. Tự đăng tên hỏi lấy giải đáp nhanh hơn nhiều.

Hi Bác @VetMini em quen với phong cách của bác rồi. ^^
Mấy hôm rồi có gửi bài mà hông thấy bác, cũng thấy buồn buồn. ^^

 

[BuiQuangThuan]

Tuy nhiên khi nộp bài thì thầy giáo nói là tốt nhưng còn rất rối và hơi rườm rà

Sheets("Txt").UsedRange.ClearContents

Ban thử thay bằng đoạn này coi. Có vẻ chức năng giống nhau á

 

[truongvu317]

Dùng hàm format trong Sub TaoFile() chắc sẽ gọn hơn.

 

[VetMini]

Hi Bác @VetMini em quen với phong cách của bác rồi. ^^
Mấy hôm rồi có gửi bài mà hông thấy bác, cũng thấy buồn buồn. ^^

Biết "phong cách" thì cũng biết là "Hi" tôi sẽ được gì.

Code này "rối rắm và rườm rà" thật.
Đầu tiên hết là gần cả trăm dòng code mà không có được một lời chú thích.

Khuyến mãi đoạn code này:
For i = 1 To SL
dong = "WW"
For x = 1 To 411
dong = dong & " "
Next x
Mid(dong, 36, 3) = depot
Mid(dong, 49, 3) = depot
Mid(dong, 401, 3) = depot
Mid(dong, 409, 5) = "OCS"

Sửa lại là:
Dim dong As String * 413
LSet dong = "WW"
Mid(dong, 36, 3) = depot
Mid(dong, 49, 3) = depot
Mid(dong, 401, 3) = depot
Mid(dong, 409, 5) = "OCS"
For i = 1 To SL
...

 

[bin.vcsc]

Biết "phong cách" thì cũng biết là "Hi" tôi sẽ được gì.

Xin lỗi bác @VetMini , xin rút kinh nghiệm vụ tiếng Anh. Do được bác ghé hỗ trợ nên vui quá thôi.
Xin cho hỏi ý nghĩa bác chuyển lại như thế này?

Dim dong As String * 413
LSet dong = "WW"

Bài đã được tự động gộp: 5/11/20

Dùng hàm format trong Sub TaoFile() chắc sẽ gọn hơn.

Cám ơn bạn @truongvu317 , nếu có VBA nào khác xin cứ chia sẻ, vì sẽ có các bạn khác trong diễn đàn của mình sau này gặp tình huống tương tự sẽ có thêm tài liệu tham khảo và học hỏi.

 

[VetMini]

...Xin cho hỏi ý nghĩa bác chuyển lại như thế này?

Dim dong As String * 413
LSet dong = "WW"

String * 413 là lệnh khai báo chuỗi có độ dài nhất định (chuỗi dài 413 ký tự). Bài này dùng chuỗi độ dài nhất định là đúng rồi.
LSet là lệnh gán trị vào bên trái chuỗi. Chỗ còn lại sẽ được VBA đắp dấu cách vào cho đủ.