Nhờ viết code xuất dữ liệu ra file .txt

Liên hệ QC
S

soap1234

Thành viên hoạt động
Tham gia
22/10/13
Bài viết
162
Được thích
6
Nhờ anh chị tạo em macro xuất dữ liệu ra file txt em với
em xin chân thành cảm ơn ạ
 

File đính kèm

  • FileSoLieu.xlsm
    10.7 KB · Đọc: 25
  • FileMau_NguyenVanA.txt
    853 bytes · Đọc: 19
Giải pháp
snow25
soap1234 đã viết:
Em xin chân thành cảm ơn anh và diễn đàn đặc biệt hai anh là Maika8008, smow25 đã guip em. em muốn nhờ các anh và diễn đàn chỉnh sửa em code để lưu được nhiều file .TXT theo họ tên

​

Nhấp chuột vào đây để mở rộng...
Thử code.
Mã: 
Sub tach()
    Dim i As Long, lr As Long, arr, fso As Object, Filename As String, MyFile As Object, j As Long
    Set fso = CreateObject("Scripting.FileSystemObject")
    With Sheets("GCNTT17")
         lr = .Range("A" & Rows.Count).End(xlUp).Row
         arr = .Range("A1:AC" & lr).Value
         For i = 2 To UBound(arr)
             Filename = ThisWorkbook.Path & "\KQ\" & arr(i, 16) & ".txt"
             Set MyFile = fso.CreateTextFile(Filename, True, True)
             For j = 1 To UBound(arr, 2)...
Sắp xếp theo thời gian sắp xếp theo bầu chọn
soap1234 đã viết:
Khi xuất ra file. TXT vẫn lỗi chữ anh à
Nhấp chuột vào đây để mở rộng...
Bạn có vẻ không muốn trả lời tôi nữa nhỉ. Tôi chỉ muốn chắc chắn là vài ngày nữa bạn sẽ không đổi ý. Còn nếu cứ muốn dữ liệu gốc là unicode thì thễ này.

Bạn có dữ liệu gốc dạng unicode. Bạn muốn trích từ đó một số dữ lệu và ghi vào tập tin trên đĩa. Mục đích là để nhập vào phần mềm. Nhưng phần mềm lại chỉ chấp nhận TCVN3, đúng không?

Bạn hãy kiểm tra 3 tập tin txt đính kèm xem có nhập được vào phần mềm không. Nếu không thì tôi dừng ở đây. Nếu phần mềm chấp nhận 3 tập tin txt thì tôi sẽ cho bạn code.
 
Lần chỉnh sửa cuối:
Upvote 0
soap1234 đã viết:
Khi xuất ra file. TXT vẫn lỗi chữ anh à
em có gán đoạn code sau

Dạ em làm theo anh vẫn lỗi Font khi xuất ra TXTanh à.

Dạ em làm theo code của anh mà vẫn lỗi Font anh à
em có code tìm trên diễn đàn mà không biết sao cứ báo lỗi anh à
nhờ anh xem giúp em với. em cảm ơn anh nhiều.
Nhấp chuột vào đây để mở rộng...
Bạn không đọc được nhưng khi up vào phần mềm nó có lỗi không.
 
Upvote 0
soap1234 đã viết:
Khi xuất ra file. TXT vẫn lỗi chữ anh à
em có gán đoạn code sau

Dạ em làm theo anh vẫn lỗi Font khi xuất ra TXTanh à.

Dạ em làm theo code của anh mà vẫn lỗi Font anh à
em có code tìm trên diễn đàn mà không biết sao cứ báo lỗi anh à
nhờ anh xem giúp em với. em cảm ơn anh nhiều.
Nhấp chuột vào đây để mở rộng...
Đây bạn xem nhé chỉnh lại 1 chút.
 

File đính kèm

  • HoSo2022.XLSM
    94.9 KB · Đọc: 10
Upvote 0
snow25 đã viết:
Đây bạn xem nhé chỉnh lại 1 chút.
Nhấp chuột vào đây để mở rộng...

snow25 đã viết:
Đây bạn xem nhé chỉnh lại 1 chút.
Nhấp chuột vào đây để mở rộng...
Thật là vi diệu anh snow25 cảm ơn anh rất rất nhiều. anh nhắn tin số điện thoại của anh để em cảm ơn anh bằng cái thẻ điện thoại không anh
Anh có thể sửa code chọn theo dòng ô như hình vẽ không anh. vì nhiều lúc muốn xuất 1 thửa bất kỳ chứ không xuất cả anh à

​

 

File đính kèm

  • theo dong.jpg
    theo dong.jpg
    16.1 KB · Đọc: 7
Upvote 0
soap1234 đã viết:
Thật là vi diệu anh snow25 cảm ơn anh rất rất nhiều. anh nhắn tin số điện thoại của anh để em cảm ơn anh bằng cái thẻ điện thoại không anh
Anh có thể sửa code chọn theo dòng ô như hình vẽ không anh. vì nhiều lúc muốn xuất 1 thửa bất kỳ chứ không xuất cả anh à

​

Nhấp chuột vào đây để mở rộng...
Bạn thử cái này nhé.Nếu bạn hỗ trợ thì có Momo mình đính kèm.
 

File đính kèm

  • HoSo2022.XLSM
    95.8 KB · Đọc: 11
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

Bebooby
Tách mã sản phẩm trong chuỗi thông tin
Trả lời
0
Đọc
1
Bebooby
Bebooby
Toanke063
  • Question
Xin hỏi code vba chuyển 1 file pdf bất kì thành ảnh
Trả lời
3
Đọc
52
befaint
befaint
T
Xin trợ giúp code về dò tìm dữ liệu
Trả lời
2
Đọc
113
THU UYEN317
T
thlpro
Truy Vấn Công thức từ Sheet này Qua Sheet Khác
Trả lời
8
Đọc
150
thlpro
thlpro
N
  • Question
VBA - copy các sheets unhide và dạng giá trị theo vùng xác định
Trả lời
3
Đọc
102
huhumalu
H
S
Lý do công thức bị mờ tại ô Function
    • Cười
Trả lời
2
Đọc
64
sakurasumo
S
GPE-Trợ Lý
Đăng ký tham dự hội thảo tại Hà Nội: Power Query - Công cụ quản lý dữ liệu
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
5
Đọc
630
GPE-Trợ Lý
GPE-Trợ Lý
N
  • Question
Làm ơn viết giùm mình macro làm tròn giá trị ạ
    • Cười
Trả lời
14
Đọc
122
ptm0412
ptm0412
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
8 9 10
Trả lời
191
Đọc
10K
ongke0711
ongke0711
CNKyNguyen
Giảm dung lượng của file excel
    • Cảm ơn
    • Cười
    • Thích
Trả lời
2
Đọc
235
CNKyNguyen
CNKyNguyen
hunganh.nguyen
Xin giúp code tách dòng tổng thành những dòng chi tiết với giá trị là 1
Trả lời
9
Đọc
407
vostro 1500
vostro 1500
P
Sự cố về hàm SUMIF
Trả lời
8
Đọc
234
yeudoi
yeudoi
OverAC
Thông báo nội dung xấu và bài viết vi phạm nội quy.
19 20 21
Trả lời
416
Đọc
41K
vanle33
vanle33
S
Chuyển định dạng thời gian từ sa/ch sang AM/PM
Trả lời
2
Đọc
74
Silklynk
S
B
Sắp xếp lịch trực
5 6 7
Trả lời
130
Đọc
86K
TTVAN28
TTVAN28
N
Giúp em hàm Aggregate không chạy được trên Google sheet ah
Trả lời
4
Đọc
143
nguyenthieny
N
hoaithanh9480
Nhờ giúp đỡ về kiểm phiếu bầu
Trả lời
4
Đọc
105
hoaithanh9480
hoaithanh9480
B
Nhờ anh/chị giúp em tìm hàm cho công thức tính lương
Trả lời
2
Đọc
138
hoangtuaotrang_hp_vn
H
SA_DQ
Phẩu thuật Nụ cười lần 3 tại Huế.
    • Thích
    • Yêu thích
Trả lời
1
Đọc
101
HUONGHCKT
H
K
  • Question
Sử dụng Power Query để xử lý nhật ký chung nhiều nợ nhiều có
    • Cười
Trả lời
14
Đọc
303
viethung78
V
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom