Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
ongke0711

ongke0711

Thành viên gắn bó
Tham gia
7/9/06
Bài viết
2,563
Được thích
3,574
Giới tính
Nam
Chào các bạn,
Tôi ngồi mò mẫm mấy ngày mới tìm được cách tải hóa đơn điện tử từ trang https://hoadondientu.gdt.gov.vn/. Cách này có thể không chuyên nghiệp nhưng cũng giải quyết được vấn đề tải hóa đơn hàng loạt từ trang trên và ghi xuống Excel theo định dạng dễ tổng hợp dữ liệu sau này.
- Tốc độ không nhanh như các ứng dụng python siêu nhanh.
- Chưa tìm được các link tải file .xml hoặc .html
- Chưa trải nghiệm qua các định dạng hóa đơn điện tử của các nhà cung cấp giải pháp khác nhau nên sẽ không đảm bảo chạy đúng 100%.
- Chưa biết cách tích hợp code vượt Captcha của (Python, C#..) vào VBA nên phải nhập Captcha thủ công.
Nói chung cái tool cũng giải quyết được việc tải hóa đơn hàng loạt :D .
Tôi sẽ upload file demo không khóa (có khóa cũng như không) sau vì code còn lộn xộn lắm. Các bạn xem qua và đóng góp cách xử lý tốt hơn, gọn hơn nhé.


*** 12/10/2024: Cập nhật sửa một đống lỗi.
*** 15/10/2024: Cập nhật sửa lỗi Null và nhập ngày tháng.
*** 16/10/2024: Thêm tính năng lưu User/Pass.
*** 20/10/2024: Sửa lỗi hiển thị ngày tháng, sửa và thêm một số code phụ trợ.
[COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)]*** 28/10/2024: Sửa lấy hóa đơn từ máy tính tiền[COLOR=rgb(184, 49, 47)].
[COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)]*** 07/11/2024: Sửa code trích xuất dữ liệu, thêm cột so sánh.
[COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)]*** 13/11/2024: Dùng code của bạn Hesanbi để tự động nhập Captcha. Thêm code lấy link tra cứu của VNPT và BKAV.
[COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)]*** 05/02/2025: Thêm code tải file Zip và trích xuất dữ liệu hóa đơn từ file XML. Sửa một số lỗi.
[COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)]*** 23/02/2025: Sửa lỗi hiển thị sai <Trạng thái hóa đơn>.
[COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)]*** 10/05/2026: Cập nhật do trang hoadondientu thay đổi thiết kế.
*** 19/05/2026: Sửa lỗi hiển thị sai trạng thái hoá đơn.[/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR]
 

File đính kèm

Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
1. Đăng nhập vào xong chọn kỳ 01/04/26 - 30/04/26, bấm tải Hdon, đợi load 1 hồi thông báo Xong, rồi hiện lên các bảng như hình 1 + 2
2. Bấm tổng hợp hdon chi tiết XML chọn đường dẫn đã lưu hiện lỗi như hình 3
 

File đính kèm

  • 1778480855718.png
    1778480855718.png
    113.4 KB · Đọc: 137
  • 1778480875940.png
    1778480875940.png
    116.4 KB · Đọc: 55
  • 1778480906758.png
    1778480906758.png
    28.4 KB · Đọc: 53
Upvote 0
Xin cảm ơn chú vì đã làm ra file này, cháu 2k3 mới ra trường rất biết ơn ạ :''"
 
Upvote 0
sanny070191 đã viết:
1. Đăng nhập vào xong chọn kỳ 01/04/26 - 30/04/26, bấm tải Hdon, đợi load 1 hồi thông báo Xong, rồi hiện lên các bảng như hình 1 + 2
2. Bấm tổng hợp hdon chi tiết XML chọn đường dẫn đã lưu hiện lỗi như hình 3
Nhấp chuột vào đây để mở rộng...
- Cái lỗi thư mục không có chứa file XML thì bạn vô File Explorer - View - Show - chọn Filename and extension nhe.
- Do tôi chưa sửa đường dẫn web (url) để tải file XML/zip nên bị lỗi tải file ở trên.


* Đã cập nhật file. Bạn vô bài #694 để tải lại nhé.
Mới test tải về 493 file .zip nhưng báo lỗi gửi nhiều yêu cầu tới máy chủ quá. Do vậy các bạn chia nhỏ ngày ra tải nhé.

Screenshot 2026-05-11 at 2.50.59 PM.png
 
Lần chỉnh sửa cuối:
Upvote 0
ongke0711 đã viết:
Cái trang vnpt bạn tra cứu hoá đơn là trang nào? Tôi thấy có mấy cái link.
Nhấp chuột vào đây để mở rộng...
À cái trang mà khách hàng sử dụng dịch vụ của Bưu chính viễn thông dạng: mst-tt78.invoice.vnpt.vn... nó ra cái mã captcha như bác gửi bên trên đó.
 
Upvote 0
Trang hóa đơn của NCC 0101162173 https://asiainvoice.vn/tra-cuu, hiện tại e thấy có 1 số bên bán phần mềm họ tra cứu được hóa đơn gốc, anh chị nào biết cách tra hóa đơn thủ công này không ạ?
 
Upvote 0
ongke0711 đã viết:
- Cái lỗi thư mục không có chứa file XML thì bạn vô File Explorer - View - Show - chọn Filename and extension nhe.
- Do tôi chưa sửa đường dẫn web (url) để tải file XML/zip nên bị lỗi tải file ở trên.


* Đã cập nhật file. Bạn vô bài #694 để tải lại nhé.
Mới test tải về 493 file .zip nhưng báo lỗi gửi nhiều yêu cầu tới máy chủ quá. Do vậy các bạn chia nhỏ ngày ra tải nhé.
Nhấp chuột vào đây để mở rộng...

ongke0711 đã viết:
Chào các bạn,
Tôi ngồi mò mẫm mấy ngày mới tìm được cách tải hóa đơn điện tử từ trang https://hoadondientu.gdt.gov.vn/. Cách này có thể không chuyên nghiệp nhưng cũng giải quyết được vấn đề tải hóa đơn hàng loạt từ trang trên và ghi xuống Excel theo định dạng dễ tổng hợp dữ liệu sau này.
- Tốc độ không nhanh như các ứng dụng python siêu nhanh.
- Chưa tìm được các link tải file .xml hoặc .html
- Chưa trải nghiệm qua các định dạng hóa đơn điện tử của các nhà cung cấp giải pháp khác nhau nên sẽ không đảm bảo chạy đúng 100%.
- Chưa biết cách tích hợp code vượt Captcha của (Python, C#..) vào VBA nên phải nhập Captcha thủ công.
Nói chung cái tool cũng giải quyết được việc tải hóa đơn hàng loạt :D .
Tôi sẽ upload file demo không khóa (có khóa cũng như không) sau vì code còn lộn xộn lắm. Các bạn xem qua và đóng góp cách xử lý tốt hơn, gọn hơn nhé.


*** 12/10/2024: Cập nhật sửa một đống lỗi.
*** 15/10/2024: Cập nhật sửa lỗi Null và nhập ngày tháng.
*** 16/10/2024: Thêm tính năng lưu User/Pass.
*** 20/10/2024: Sửa lỗi hiển thị ngày tháng, sửa và thêm một số code phụ trợ.
[COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)]*** 28/10/2024: Sửa lấy hóa đơn từ máy tính tiền[COLOR=rgb(184, 49, 47)].
[COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)]*** 07/11/2024: Sửa code trích xuất dữ liệu, thêm cột so sánh.
[COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)]*** 13/11/2024: Dùng code của bạn Hesanbi để tự động nhập Captcha. Thêm code lấy link tra cứu của VNPT và BKAV.
[COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)]*** 05/02/2025: Thêm code tải file Zip và trích xuất dữ liệu hóa đơn từ file XML. Sửa một số lỗi.
[COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)]*** 23/02/2025: Sửa lỗi hiển thị sai <Trạng thái hóa đơn>.
[COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)]*** 10/05/2026: Cập nhật do trang hoadondientu thay đổi thiết kế.[/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR]
Nhấp chuột vào đây để mở rộng...
đợt này mã tra cứu hóa đơn của misa nó không hiện ra nữa a, a khắc phục giúp em với
 
Upvote 0
Đang dùng ổn định thì một ngày đẹp trời hiện ra lỗi này. Các bác hổ trợ giúp e với ạ !?!

Loi.pngLoi 2.png
 
Upvote 0
E mới tải bản v6.2 của chủ thớt nhưng bị lỗi vầy, nhờ anh chị em hỗ trợ giúp
 

File đính kèm

  • 1778572099281.png
    1778572099281.png
    142.5 KB · Đọc: 76
Upvote 0
Nếu các bạn đang dùng file cũ thì cũng có thể tự sửa đường dẫn web (url) như sau:
- Mở màn hình để code VBE: Atl + F11
- Mở menu Edit - chọn Replace, làm như hình:

Screenshot at May 13 11-12-00 AM.png
 
Upvote 0
Upvote 0
em có tải bản v6.2 lúc mở file để đăng nhập lần đầu thì hiện thông báo như ảnh, nhờ anh chị hỗ trợ giúp em lỗi này với ạ
1778656795025.png
 
Upvote 0
bản mới này e thấy lỗi hiển thị trạng thái hóa đơn à a
 
Upvote 0

File đính kèm

  • z7822170330670_fe56f6b6243149c4ff3b680366a226b4.jpg
    z7822170330670_fe56f6b6243149c4ff3b680366a226b4.jpg
    43 KB · Đọc: 56
  • z7822171109437_dbbbafb40522e37c02d0f9a359f0e8d3.jpg
    z7822171109437_dbbbafb40522e37c02d0f9a359f0e8d3.jpg
    48.8 KB · Đọc: 56
Upvote 0
maingoctu89 đã viết:
file cũ mình đã laycapcha và cái api theo cách bạn chỉ nhưng vẫn bị báo lỗi này á.
Nhấp chuột vào đây để mở rộng...
Lỗi đó do cái hàm httpGet() thiết lập cũ sai một chút.
Bỏ hàm layTenDV(), do còn lỗi chưa lấy được.
Bạn vô màn hình code, tìm kiếm cái hàm trên rồi thay thế, bỏ một số dòng như bên dưới:

JavaScript: 
Function httpGet(ByVal url As String, bearer As String, res As String) As Boolean
    On Error GoTo EH
   
    With xmlHttp 'CreateObject("MSXML2.serverXMLHTTP.6.0")
        .Open "GET", url, False
        .setRequestHeader "User-Agent", "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_15_7) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/128.0.0.0 Safari/537.36"
        .setRequestHeader "Accept", "application/json"
        .setRequestHeader "Content-type", "application/json"
        .setRequestHeader "Authorization", "Bearer " & bearer & ""
        .send


Screenshot at May 13 9-50-16 PM.png
 
Lần chỉnh sửa cuối:
Upvote 0
ongke0711 đã viết:
Lỗi đó do cái hàm httpGet() thiết lập cũ sai một chút.
Bạn vô màn hình code, tìm kiếm cái hàm trên rồi thay thế, bỏ một số dòng như bên dưới:

JavaScript: 
Function httpGet(ByVal url As String, bearer As String, res As String) As Boolean
    On Error GoTo EH
   
    With xmlHttp 'CreateObject("MSXML2.serverXMLHTTP.6.0")
        .Open "GET", url, False
        .setRequestHeader "User-Agent", "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_15_7) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/128.0.0.0 Safari/537.36"
        .setRequestHeader "Accept", "application/json"
        .setRequestHeader "Content-type", "application/json"
        .setRequestHeader "Authorization", "Bearer " & bearer & ""
        .send


View attachment 311636
Nhấp chuột vào đây để mở rộng...
cảm ơn @ongke0711 nhé. chạy file cũ được rồi á.
Bài đã được tự động gộp:

phongktmcm đã viết:
View attachment 311637
hóa đơn mới là nó hiển thị chữ tất cả, còn hóa đơn thay thế thì nó hiển thị hóa đơn mới à ad
Nhấp chuột vào đây để mở rộng...
bạn vào cái mình gửi dưới sửa lại I2 thành I3 là được nhé. nêu siêng thì bạn coi lại các trang trước có hướng dẫn sửa các lỗi á.
 

File đính kèm

  • z7823268127366_8d6e7ffe7c097b3ff28a6d084c5f4394.jpg
    z7823268127366_8d6e7ffe7c097b3ff28a6d084c5f4394.jpg
    39.5 KB · Đọc: 48
Upvote 0
2.png
E đã khắc phục được lỗi này. Trong hàm "ApiGet", các bác chỉnh lại đoạn code sau:

Public Function ApiGet(ByVal urlPath As String) As String
Dim http As Object
Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
http.Open "GET", urlPath, False
http.setRequestHeader "Authorization", "Bearer " & getToken()
http.setRequestHeader "Accept", "application/json"
http.setRequestHeader "User-Agent", "Mozilla/5.0 ExcelVBA-HDDT"

On Error Resume Next
http.send

If err.Number <> 0 Then
err.Clear
ApiGet = ""
Exit Function
End If

If http.Status = 401 Or http.Status = 403 Then
 
Lần chỉnh sửa cuối:
Upvote 0
Upvote 0
Mọi người cho em hỏi cái file đó tải về cái link hóa đơn gốc copy dán vào không ra nhỉ, có cách nào khác không , cám ơn mọi người.
 
Upvote 0
1778733274522.png
Trang web chưa ổn hay sao á . Mình cứ bị báo lỗ này mặc dù đã khai chỉ có 10 ngày
 
Upvote 0
ôngvan3789 đã viết:
Mọi người cho em hỏi cái file đó tải về cái link hóa đơn gốc copy dán vào không ra nhỉ, có cách nào khác không , cám ơn mọi người.
Nhấp chuột vào đây để mở rộng...
Chỉ có cách tinh chỉnh link thôi. Và tùy chỉnh này chỉ tác dụng cục bộ ở phạm vi từng đơn vị.
 
Upvote 0
Không tải về được CHI TIẾT hóa đơn bán hàng (các mục hóa đơn còn lại tải về bình thường). Các bác hổ trợ giúp e với ạ !?!
 
Upvote 0
Mấy bữa nay anh em vào test chức năng nhiều quá. Trang thuế quay đơ ra không tải được gì hết.
 
Upvote 0
ongke0711 đã viết:
Bạn tải lại file đi. File này cũ rồi.
Nhấp chuột vào đây để mở rộng...
Không tải về được CHI TIẾT hóa đơn bán hàng (các mục hóa đơn còn lại tải về bình thường). Bác ongke0711 hổ trợ giúp e với ạ !?!

Sau khi chạy lấy thông tin CHI TIẾT hóa đơn bán hàng thì mình lấy được giá trị url2 :


Và khi gán giá trị vào hàm ApiGet thì bị tạo ra giá trị "res" bị "rỗng" không hợp lệ như hình đính kèm
res = ApiGet(url2)

Nhưng nếu áp dụng với hóa đơn mua hàng thì res vẫn có giá trị
 

File đính kèm

  • 2.png
    2.png
    10.7 KB · Đọc: 31
  • 1.png
    1.png
    9.8 KB · Đọc: 27
Upvote 0
Officexinh đã viết:
Không tải về được CHI TIẾT hóa đơn bán hàng (các mục hóa đơn còn lại tải về bình thường). Bác ongke0711 hổ trợ giúp e với ạ !?!

Sau khi chạy lấy thông tin CHI TIẾT hóa đơn bán hàng thì mình lấy được giá trị url2 :


Và khi gán giá trị vào hàm ApiGet thì bị tạo ra giá trị "res" bị "rỗng" không hợp lệ như hình đính kèm
res = ApiGet(url2)

Nhưng nếu áp dụng với hóa đơn mua hàng thì res vẫn có giá trị
Nhấp chuột vào đây để mở rộng...
Theo như chuỗi url bạn đưa lên thì thiếu tham số chỗ "sort=" rồi.
sort = "tdlap:desc"
 
Upvote 0
Gặp link sai so với quy luật của tổ chức cung cấp hoá đơn thì tìm cách khắc phục lấy link đúng thôi. Bạn cần thì mình hỗ trợ riêng ngoài.
 
Upvote 0
ongke0711 đã viết:
Chào các bạn,
Tôi ngồi mò mẫm mấy ngày mới tìm được cách tải hóa đơn điện tử từ trang https://hoadondientu.gdt.gov.vn/. Cách này có thể không chuyên nghiệp nhưng cũng giải quyết được vấn đề tải hóa đơn hàng loạt từ trang trên và ghi xuống Excel theo định dạng dễ tổng hợp dữ liệu sau này.
- Tốc độ không nhanh như các ứng dụng python siêu nhanh.
- Chưa tìm được các link tải file .xml hoặc .html
- Chưa trải nghiệm qua các định dạng hóa đơn điện tử của các nhà cung cấp giải pháp khác nhau nên sẽ không đảm bảo chạy đúng 100%.
- Chưa biết cách tích hợp code vượt Captcha của (Python, C#..) vào VBA nên phải nhập Captcha thủ công.
Nói chung cái tool cũng giải quyết được việc tải hóa đơn hàng loạt :D .
Tôi sẽ upload file demo không khóa (có khóa cũng như không) sau vì code còn lộn xộn lắm. Các bạn xem qua và đóng góp cách xử lý tốt hơn, gọn hơn nhé.


*** 12/10/2024: Cập nhật sửa một đống lỗi.
*** 15/10/2024: Cập nhật sửa lỗi Null và nhập ngày tháng.
*** 16/10/2024: Thêm tính năng lưu User/Pass.
*** 20/10/2024: Sửa lỗi hiển thị ngày tháng, sửa và thêm một số code phụ trợ.
[COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)]*** 28/10/2024: Sửa lấy hóa đơn từ máy tính tiền[COLOR=rgb(184, 49, 47)].
[COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)]*** 07/11/2024: Sửa code trích xuất dữ liệu, thêm cột so sánh.
[COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)]*** 13/11/2024: Dùng code của bạn Hesanbi để tự động nhập Captcha. Thêm code lấy link tra cứu của VNPT và BKAV.
[COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)]*** 05/02/2025: Thêm code tải file Zip và trích xuất dữ liệu hóa đơn từ file XML. Sửa một số lỗi.
[COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)]*** 23/02/2025: Sửa lỗi hiển thị sai <Trạng thái hóa đơn>.
[COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)][COLOR=rgb(184, 49, 47)]*** 10/05/2026: Cập nhật do trang hoadondientu thay đổi thiết kế.[/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR][/COLOR]
Nhấp chuột vào đây để mở rộng...
Bấc ơi, hiện tại sao file không connect được nữa bác nhỉ?
 
Upvote 0

chào bạn ongke0711​

Cho mình hỏi chút chỗ Token này mình đưa số seri trên token vào hay sao bạn?
Nếu chữ ký số (token) gia hạn nhiều lần thì nhập hết các seri hay như thế nào?
Cảm ơn bạn đã hỗ trợ
HOADONTU.jpg​

 
Upvote 0
hien.pv đã viết:

chào bạn ongke0711​

Cho mình hỏi chút chỗ Token này mình đưa số seri trên token vào hay sao bạn?​

Nếu chữ ký số (token) gia hạn nhiều lần thì nhập hết các seri hay như thế nào?​

Cảm ơn bạn đã hỗ trợ​

View attachment 311666​

Nhấp chuột vào đây để mở rộng...
Token này là code lấy tự động của trang web thôi, không phải nhập gì cả. Khi đăng nhập trang hddt, nó sẽ cấp cho cái mã để truy vấn dữ liệu mà không cần phải đăng nhập lại. Có thời gian hiệu lực trong 24h. Khi bạn bấm nút Tải hoá đơn, nếu có thông báo token hết hiệu lực thì bạn phải đăng nhập lại rồi tiếp tục sử dụng. Không phải token của kế toán nhé.
 
Upvote 0
Trang thuế hoạt động ổn định được mấy hôm. Chiều hôm nay thì sập luôn rồi! ;)HDDT.png
 
Upvote 0
Các bác hỗ trợ giúp em sao chỗ trạng thái hóa đơn này sao chỉ hiện thị tất cả nhỉ, hôm trước là hiện thị hóa đơn mới, thay thế và xóa bỏ mà nhỉ, mà chỗ này lại rất quan trọng nữa chứ, hỗ trợ giúp em với ạ, em cảm ơn nhiều ạ
1779177633333.png
 
Upvote 0
mobiphone có cách nào lấy được hóa đơn gốc về không mọi người ơi.
 
Upvote 0
ôngvan3789 đã viết:
mobiphone có cách nào lấy được hóa đơn gốc về không mọi người ơi.
Nhấp chuột vào đây để mở rộng...
Link tra cứu của mobifone không có mã captcha nên dễ lấy.
Nếu tích hợp code tải của mobifone không vô file trên của tôi cũng hơi khó vì danh sách hoá đơn trả về có nhiều nhà cung cấp. Nếu bạn tổng hợp ra được một danh sách các mã tra cứu của mobifone thì có thể code để nó tải theo danh sách đó.
 
Upvote 0
JERY TRAN đã viết:
Các bác hỗ trợ giúp em sao chỗ trạng thái hóa đơn này sao chỉ hiện thị tất cả nhỉ, hôm trước là hiện thị hóa đơn mới, thay thế và xóa bỏ mà nhỉ, mà chỗ này lại rất quan trọng nữa chứ, hỗ trợ giúp em với ạ, em cảm ơn nhiều ạ
Nhấp chuột vào đây để mở rộng...

Đã cập nhật lại file ở bài #1.
Do tham chiếu sai số dòng trong mảng "Trạng thái hoá đơn".
 

File đính kèm

Upvote 0
ongke0711 đã viết:
Link tra cứu của mobifone không có mã captcha nên dễ lấy.
Nếu tích hợp code tải của mobifone không vô file trên của tôi cũng hơi khó vì danh sách hoá đơn trả về có nhiều nhà cung cấp. Nếu bạn tổng hợp ra được một danh sách các mã tra cứu của mobifone thì có thể code để nó tải theo danh sách đó.
Nhấp chuột vào đây để mở rộng...
Bác thớt chắc hiểu nhầm đơn vị rồi. Mobifone thì tạm thời chưa lấy được mã tra cứu MSTTCGP: 0100686209. Ngoài ra còn của ông FPT, MSTTCGP:
0104128565.
- Trong file bác update thì đang để nhầm tên Mobifone nhưng MST của M-Invoice.
 
Upvote 0
pycckuu410 đã viết:
Bác thớt chắc hiểu nhầm đơn vị rồi. Mobifone thì tạm thời chưa lấy được mã tra cứu MSTTCGP: 0100686209. Ngoài ra còn của ông FPT, MSTTCGP:
0104128565.
- Trong file bác update thì đang để nhầm tên Mobifone nhưng MST của M-Invoice.
Nhấp chuột vào đây để mở rộng...
:) Đúng là nhầm thật. Mà cái hoá đơn của Mobifone đúng là không tìm ra được mã tra cứu (từ các file json, xml của web), chỉ có được từ file pdf hoá đơn gốc.
 
Upvote 0
pycckuu410 đã viết:
Bác thớt chắc hiểu nhầm đơn vị rồi. Mobifone thì tạm thời chưa lấy được mã tra cứu MSTTCGP: 0100686209. Ngoài ra còn của ông FPT, MSTTCGP:
0104128565.
- Trong file bác update thì đang để nhầm tên Mobifone nhưng MST của M-Invoice.
Nhấp chuột vào đây để mở rộng...
vậy là thành mobifone chỉ có nhận email với FTP cũng vậy không còn cách nào khác đúng ko anh.
 
Upvote 0
ôngvan3789 đã viết:
vậy là thành mobifone chỉ có nhận email với FTP cũng vậy không còn cách nào khác đúng ko anh.
Nhấp chuột vào đây để mở rộng...
Một số đơn vị tư nhân khác cũng không lấy được mã, nhưng rất hiếm. Code vba hiện tại đã xem được 95% số lượng hoá đơn gốc. Tùy đối tác của đơn vị mình "đa dạng" hay không. Hầu hết hoá đơn thông thường như xăng dầu, vetc, viettel, vnpt, bank (bidv, agri, vietcom)... Là xem được gốc. Còn lại thì chưa gặp nên chưa rõ.
 
Upvote 0
ongke0711 đã viết:
:) Đúng là nhầm thật. Mà cái hoá đơn của Mobifone đúng là không tìm ra được mã tra cứu (từ các file json, xml của web), chỉ có được từ file pdf hoá đơn gốc.
Nhấp chuột vào đây để mở rộng...
Với số lượng hóa đơn 1 tháng khoảng 10,000 hóa đơn, phần chi tiết khoảng 40,000 dòng thì có cách nào dùng file này vẫn tải được trong 1 lần không anh nhỉ?
 
Upvote 0
ongke0711 đã viết:
Đã cập nhật lại file ở bài #1.
Do tham chiếu sai số dòng trong mảng "Trạng thái hoá đơn".
Nhấp chuột vào đây để mở rộng...
Tôi dựa trên file của Bạn, tôi góp thêm nút lệnh lấy Phụ lục giảm thuế 8% theo mẫu Bang_Ke_01_GiamThue_GTGT_NQ142_GTGT_TT80_t04.2026
Mã: 
Option Explicit

Sub TaoPLGT()
    Const Col_ThueSuat As String = "X"
    Const Col_ThanhTien As String = "Z"
    Const Col_TenHHDV As String = "R"
    Const Col_TenNguoiBan As String = "F"
    Const Col_NgayHD As String = "C"
    Const Col_SoHD As String = "B"
    Const Col_SoHD_TongHop As String = "E"
    Const Col_KetQua_TongHop As String = "BA"
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Dim wsDest As Worksheet
    Dim arrMua As Variant, arrBan As Variant
    Dim rStart As Long, colIdx As Integer, rHeader2 As Long
    Dim sheetNameDest As String: sheetNameDest = "BK01_GT_GTGT_NQ142"
    
    arrMua = GetFilteredData("ChiTietHD_Mua", True, Col_ThueSuat, Col_ThanhTien, Col_TenHHDV, Col_TenNguoiBan, Col_NgayHD, Col_SoHD)
    arrBan = GetFilteredData("ChiTietHD_Ban", False, Col_ThueSuat, Col_ThanhTien, Col_TenHHDV, "", "", "")
    
    If Not IsArray(arrMua) And Not IsArray(arrBan) Then
        MsgBox "Không tìm th?y d? li?u thu? 8% (ho?c các giá tr? d?u b?ng 0)!", vbExclamation
        GoTo CleanUp
    End If
    
    If IsArray(arrMua) Then
        Dim wsTH As Worksheet
        Dim dictKQ As Object
        Dim lastRowTH As Long
        Dim arrSoHD_TH As Variant, arrKQ_TH As Variant
        Dim i As Long, soHD As String
        
        On Error Resume Next
        Set wsTH = ThisWorkbook.Sheets("TongHopHD_Mua")
        On Error GoTo 0
        
        If Not wsTH Is Nothing Then
            Set dictKQ = CreateObject("Scripting.Dictionary")
            dictKQ.CompareMode = 1
            lastRowTH = wsTH.Cells(wsTH.Rows.count, Col_SoHD_TongHop).End(xlUp).row
            If lastRowTH >= 2 Then
                arrSoHD_TH = wsTH.Range(Col_SoHD_TongHop & "1:" & Col_SoHD_TongHop & lastRowTH).Value
                arrKQ_TH = wsTH.Range(Col_KetQua_TongHop & "1:" & Col_KetQua_TongHop & lastRowTH).Value
                For i = 2 To lastRowTH
                    If Not IsEmpty(arrSoHD_TH(i, 1)) Then
                        dictKQ(CStr(arrSoHD_TH(i, 1))) = arrKQ_TH(i, 1)
                    End If
                Next i
                For i = 1 To UBound(arrMua, 1)
                    soHD = CStr(arrMua(i, 7))
                    If dictKQ.Exists(soHD) Then
                        arrMua(i, 8) = dictKQ(soHD)
                    End If
                Next i
            End If
        End If
    End If
    
    On Error Resume Next
    Set wsDest = ThisWorkbook.Sheets(sheetNameDest)
    On Error GoTo 0
    If wsDest Is Nothing Then
        Set wsDest = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.count))
        wsDest.name = sheetNameDest
    Else
        wsDest.Cells.Clear
    End If
    wsDest.Range("1:22").EntireRow.Hidden = True
    wsDest.Cells.Font.name = "Arial"
    wsDest.Cells.Font.size = 10
    rStart = 25
    wsDest.Cells(rStart, 2).Value = _
        "I. H" & ChrW(224) & "ng h" & ChrW(243) & "a, d" & ChrW(7883) & "ch v" & ChrW(7909) & _
        " mua v" & ChrW(224) & "o trong k" & ChrW(7923) & " " & ChrW(273) & ChrW(432) & ChrW(7907) & _
        "c " & ChrW(225) & "p d" & ChrW(7909) & "ng m" & ChrW(7913) & "c thu" & ChrW(7871) & _
        " su" & ChrW(7845) & "t thu" & ChrW(7871) & " gi" & ChrW(225) & " tr" & ChrW(7883) & _
        " gia t" & ChrW(259) & "ng 8% (" & ChrW(225) & "p d" & ChrW(7909) & "ng cho ng" & _
        ChrW(432) & ChrW(7901) & "i n" & ChrW(7897) & "p thu" & ChrW(7871) & " k" & ChrW(234) & _
        " khai theo ph" & ChrW(432) & ChrW(417) & "ng ph" & ChrW(225) & "p kh" & _
        ChrW(7845) & "u tr" & ChrW(7915) & " thu" & ChrW(7871) & ")"
    wsDest.Cells(rStart, 2).Font.Bold = True
    Dim hMua As Variant
    hMua = Array( _
        "STT", _
        "T" & ChrW(234) & "n h" & ChrW(224) & "ng h" & ChrW(243) & "a, d" & ChrW(7883) & "ch v" & ChrW(7909), _
        "Gi" & ChrW(225) & " tr" & ChrW(7883) & " h" & ChrW(224) & "ng h" & ChrW(243) & "a, d" & ChrW(7883) & "ch v" & ChrW(7909) & " mua v" & ChrW(224) & "o ch" & ChrW(432) & "a c" & ChrW(243) & " thu" & ChrW(7871) & " GTGT " & ChrW(273) & ChrW(432) & ChrW(7907) & "c kh" & ChrW(7845) & "u tr" & ChrW(7915) & " trong k" & ChrW(7923), _
        "Thu" & ChrW(7871) & " GTGT c" & ChrW(7911) & "a h" & ChrW(224) & "ng h" & ChrW(243) & "a, d" & ChrW(7883) & "ch v" & ChrW(7909) & " mua v" & ChrW(224) & "o " & ChrW(273) & ChrW(432) & ChrW(7907) & "c kh" & ChrW(7845) & "u tr" & ChrW(7915) & " trong k" & ChrW(7923), _
        "T" & ChrW(234) & "n ng" & ChrW(432) & ChrW(7901) & "i b" & ChrW(225) & "n", _
        "Ng" & ChrW(224) & "y l" & ChrW(7853) & "p h" & ChrW(243) & "a " & ChrW(273) & ChrW(417) & "n", _
        "S" & ChrW(7889) & " h" & ChrW(243) & "a " & ChrW(273) & ChrW(417) & "n", _
        "K" & ChrW(7871) & "t qu" & ChrW(7843) & " ki" & ChrW(7875) & "m tra h" & ChrW(243) & "a " & ChrW(273) & ChrW(417) & "n" _
    )
    wsDest.Range(wsDest.Cells(26, 2), wsDest.Cells(26, 9)).Value = hMua
    
    For colIdx = 2 To 9
        wsDest.Range(wsDest.Cells(26, colIdx), wsDest.Cells(28, colIdx)).Merge
    Next colIdx
    wsDest.Range(wsDest.Cells(29, 2), wsDest.Cells(29, 9)).Value = Array("'(1)", "'(2)", "'(3)", "'(4)", "A", "B", "C", "D")
    Call FormatHeaders(wsDest.Range(wsDest.Cells(26, 2), wsDest.Cells(29, 9)))
    wsDest.Range(wsDest.Cells(26, 6), wsDest.Cells(29, 9)).Interior.Color = vbYellow
    If IsArray(arrMua) Then
        rStart = 30
        wsDest.Range(wsDest.Cells(rStart, 2), wsDest.Cells(rStart + UBound(arrMua, 1) - 1, 9)).Value = arrMua
        Call FormatDataBody(wsDest.Range(wsDest.Cells(rStart, 2), wsDest.Cells(rStart + UBound(arrMua, 1) - 1, 9)), 8)
        rStart = rStart + UBound(arrMua, 1)
    Else
        rStart = 30
    End If

    rStart = rStart + 1
    wsDest.Cells(rStart, 2).Value = "II. H" & ChrW(224) & "ng h" & ChrW(243) & "a, d" & ChrW(7883) & "ch v" & ChrW(7909) & " b" & ChrW(225) & "n ra trong k" & ChrW(7923)
    wsDest.Cells(rStart, 2).Font.Bold = True
    
    rHeader2 = rStart + 1
    Dim hBan As Variant
    hBan = Array( _
        "STT", _
        "T" & ChrW(234) & "n h" & ChrW(224) & "ng h" & ChrW(243) & "a, d" & ChrW(7883) & "ch v" & ChrW(7909), _
        "Gi" & ChrW(225) & " tr" & ChrW(7883) & " h" & ChrW(224) & "ng h" & ChrW(243) & "a, d" & ChrW(7883) & "ch v" & ChrW(7909) & " ch" & ChrW(432) & "a c" & ChrW(243) & " thu" & ChrW(7871) & " GTGT", _
        "Thu" & ChrW(7871) & " su" & ChrW(7845) & "t thu" & ChrW(7871) & " GTGT theo quy " & ChrW(273) & ChrW(7883) & "nh", _
        "Thu" & ChrW(7871) & " su" & ChrW(7845) & "t thu" & ChrW(7871) & " GTGT sau gi" & ChrW(7843) & "m", _
        "Thu" & ChrW(7871) & " GTGT c" & ChrW(7911) & "a h" & ChrW(224) & "ng h" & ChrW(243) & "a, d" & ChrW(7883) & "ch v" & ChrW(7909) & " b" & ChrW(225) & "n ra " & ChrW(273) & ChrW(432) & ChrW(7907) & "c gi" & ChrW(7843) & "m" _
    )
    wsDest.Range(wsDest.Cells(rHeader2, 2), wsDest.Cells(rHeader2, 7)).Value = hBan
  
    For colIdx = 2 To 7
        wsDest.Range(wsDest.Cells(rHeader2, colIdx), wsDest.Cells(rHeader2 + 2, colIdx)).Merge
    Next colIdx
    
    wsDest.Range(wsDest.Cells(rHeader2 + 3, 2), wsDest.Cells(rHeader2 + 3, 7)).Value = Array("'(1)", "'(2)", "'(3)", "'(4)", "(5)=(4)x80%", "(6)=(3)x[(4)-(5)]")
    
    Call FormatHeaders(wsDest.Range(wsDest.Cells(rHeader2, 2), wsDest.Cells(rHeader2 + 3, 7)))
    
    rStart = rHeader2 + 4
    If IsArray(arrBan) Then
        wsDest.Range(wsDest.Cells(rStart, 2), wsDest.Cells(rStart + UBound(arrBan, 1) - 1, 7)).Value = arrBan
        Call FormatDataBody(wsDest.Range(wsDest.Cells(rStart, 2), wsDest.Cells(rStart + UBound(arrBan, 1) - 1, 7)), 6)
    End If
    
    wsDest.Columns(1).ColumnWidth = 3     ' C?t A tr?ng bên ngoài
    wsDest.Columns(2).ColumnWidth = 5     ' STT (B)
    wsDest.Columns(3).ColumnWidth = 40    ' Tên HHDV (C)
    wsDest.Columns(4).ColumnWidth = 18    ' Giá tr? (D)
    wsDest.Columns(5).ColumnWidth = 18    ' Ti?n thu? (E)
    wsDest.Columns(6).ColumnWidth = 25    ' Tên ngu?i bán (F)
    wsDest.Columns(7).ColumnWidth = 15    ' Ngày l?p (G)
    wsDest.Columns(8).ColumnWidth = 15    ' S? HÐ (H)
    wsDest.Columns(9).ColumnWidth = 20    ' KQ Ki?m tra (I)

CleanUp:
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    If IsArray(arrMua) Or IsArray(arrBan) Then
        MsgBox "Da tai xong Phu Luc thanh cong!", vbInformation, "Hoan tat"
        Sheets("BK01_GT_GTGT_NQ142").Select
        
    End If
End Sub

Private Function GetFilteredData(sheetName As String, isMua As Boolean, _
                                 cThue As String, cTien As String, cTen As String, _
                                 cNban As String, cNgay As String, cSo As String) As Variant
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long, r As Long
    Dim arrSrc As Variant, arrDest As Variant
    Dim valThue As Variant, valTien As Variant
    
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets(sheetName)
    On Error GoTo 0
    If ws Is Nothing Then Exit Function
    lastRow = ws.Cells(ws.Rows.count, cThue).End(xlUp).row
    If lastRow < 2 Then Exit Function
    arrSrc = ws.Range("A1:CZ" & lastRow).Value
    Dim iThue As Integer, iTien As Integer, iTen As Integer
    Dim iNban As Integer, iNgay As Integer, iSo As Integer
    
    iThue = ws.Range(cThue & 1).Column
    iTien = ws.Range(cTien & 1).Column
    iTen = ws.Range(cTen & 1).Column
    If isMua Then
        iNban = ws.Range(cNban & 1).Column
        iNgay = ws.Range(cNgay & 1).Column
        iSo = ws.Range(cSo & 1).Column
    End If
    Dim cols As Integer
    If isMua Then cols = 8 Else cols = 6
    ReDim arrDest(1 To lastRow, 1 To cols)
    r = 0
    For i = 2 To lastRow
        valThue = arrSrc(i, iThue)
        If Not IsError(valThue) And Not IsEmpty(valThue) Then
            If CStr(valThue) Like "*8%*" Or valThue = 8 Or valThue = 0.08 Or CStr(valThue) = "8" Then
                valTien = arrSrc(i, iTien)
                If Not IsNumeric(valTien) Or IsEmpty(valTien) Then valTien = 0
                If CDbl(valTien) <> 0 Then
                    r = r + 1
                    arrDest(r, 1) = r
                    arrDest(r, 2) = arrSrc(i, iTen)
                    arrDest(r, 3) = Round(CDbl(valTien), 0)
                    
                    If isMua Then
                        arrDest(r, 4) = Round(CDbl(valTien) * 0.08, 0)
                        arrDest(r, 5) = arrSrc(i, iNban)
                        arrDest(r, 6) = arrSrc(i, iNgay)
                        arrDest(r, 7) = arrSrc(i, iSo)
                        arrDest(r, 8) = ""
                    Else
                        arrDest(r, 4) = ""
                        arrDest(r, 5) = ""
                        arrDest(r, 6) = ""
                    End If
                End If
            End If
        End If
    Next i
    If r > 0 Then
        Dim arrFinal As Variant
        ReDim arrFinal(1 To r, 1 To cols)
        Dim rIdx As Long, cIdx As Integer
        For rIdx = 1 To r
            For cIdx = 1 To cols
                arrFinal(rIdx, cIdx) = arrDest(rIdx, cIdx)
            Next cIdx
        Next rIdx
        GetFilteredData = arrFinal
    End If
End Function

Private Sub FormatHeaders(rng As Range)
    With rng
        .Borders.LineStyle = xlContinuous
        .Borders.Weight = xlThin
        .Interior.Color = RGB(204, 255, 204)
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
    End With
End Sub

Private Sub FormatDataBody(rng As Range, cols As Integer)
    With rng
        .Borders.LineStyle = xlContinuous
        .Borders.Weight = xlThin
        .VerticalAlignment = xlCenter
    End With
    rng.Columns(1).HorizontalAlignment = xlCenter
    rng.Columns(3).NumberFormat = "#,##0"
    If cols = 8 Then
        rng.Columns(4).NumberFormat = "#,##0"
        rng.Columns(6).NumberFormat = "dd/mm/yyyy"
    End If
End Sub
 
Upvote 0
pycckuu410 đã viết:
Một số đơn vị tư nhân khác cũng không lấy được mã, nhưng rất hiếm. Code vba hiện tại đã xem được 95% số lượng hoá đơn gốc. Tùy đối tác của đơn vị mình "đa dạng" hay không. Hầu hết hoá đơn thông thường như xăng dầu, vetc, viettel, vnpt, bank (bidv, agri, vietcom)... Là xem được gốc. Còn lại thì chưa gặp nên chưa rõ.
Nhấp chuột vào đây để mở rộng...
Ngân hàng bạn lấy như nào vậy, chỉ mình với được không
 
Upvote 0
Mẫu Agri và Vietcom bác nào hôm trước chia sẻ, mình cắt gọt nội dung cần thiết rồi viết thêm code xuất file xml cho tiện. Web cho tìm kiếm bằng file xml.
BIDV thì tìm theo thông tin hóa đơn.
 

File đính kèm

Upvote 0
vuvo_nhenhang đã viết:
Với số lượng hóa đơn 1 tháng khoảng 10,000 hóa đơn, phần chi tiết khoảng 40,000 dòng thì có cách nào dùng file này vẫn tải được trong 1 lần không anh nhỉ?
Nhấp chuột vào đây để mở rộng...
Tôi dùng cái api đang công khai trên trang web chứ không phải api do TCT cung cấp cho các đơn vị chuyên nghiệp nên nó bị hạn chế số lần request trong một khoảng thời gian (rate limit). Hơn nữa đang dùng VBA chứ không phải các ngôn ngữ lập trình cao cấp khác nên không có hỗ trợ kiểu truy vấn bất đồng bộ để tăng tốc độ tải, không có độ trễ v.v... Do vậy bạn chia nhỏ ra mà tải hoặc dùng các phần mềm tải hàng loạt rất nhiều trên mạng.
 
Lần chỉnh sửa cuối:
Upvote 0
pycckuu410 đã viết:
Mẫu Agri và Vietcom bác nào hôm trước chia sẻ, mình cắt gọt nội dung cần thiết rồi viết thêm code xuất file xml cho tiện. Web cho tìm kiếm bằng file xml.
BIDV thì tìm theo thông tin hóa đơn.
Nhấp chuột vào đây để mở rộng...
Ngân hàng thường xml tool tải không về, bạn có thể cập nhật được các ngân hàng có thể lấy được không.
 
Upvote 0
ôngvan3789 đã viết:
Ngân hàng thường xml tool tải không về, bạn có thể cập nhật được các ngân hàng có thể lấy được không.
Nhấp chuột vào đây để mở rộng...
Mình lấy được BIDV (theo thông tin hóa đơn); Agribank, Vietcombank (theo XML), Không lấy được: Vietinbank, MB, ACB, các ngân hàng còn lại chưa gặp.
 
Upvote 0
Giúp mình với trong phần hóa đơn chi tiết mua vào không thấy phần phí nên tổng tiền chi tiết hàng hóa không khớp với tổng hợp
arrCol_detail = Array(15, 16, 17, 18, 19, 20, 21, 22, 23, 24, _
25, 26, 27, 28)
arrColName_detail = Array("stt", "tchat", "mhhdvu", "ten", "dvtinh", "sluong", "dgia", "tlckhau", "stckhau", "ltsuat", _
"tsuat", "thtien", "tthue", "thtcthue")
 
Upvote 0
vusidakiu đã viết:
Giúp mình với trong phần hóa đơn chi tiết mua vào không thấy phần phí nên tổng tiền chi tiết hàng hóa không khớp với tổng hợp
arrCol_detail = Array(15, 16, 17, 18, 19, 20, 21, 22, 23, 24, _
25, 26, 27, 28)
arrColName_detail = Array("stt", "tchat", "mhhdvu", "ten", "dvtinh", "sluong", "dgia", "tlckhau", "stckhau", "ltsuat", _
"tsuat", "thtien", "tthue", "thtcthue")
Nhấp chuột vào đây để mở rộng...
Khi xuất bảng kê chi tiết, nó sẽ liệt kê từng dòng mã hàng hoá bán mà các mục chi phí thì là chi phí tổng cho toàn hoá đơn chứ không thuộc dòng mã hàng hoá DV nào nên tôi không kết chuyển vô bảng kê.
 
Upvote 0
Em có câu hỏi là: Tại sao một số hóa đơn khi em tìm kiếm trên web hoadondientu thì không tìm thấy, nhưng file lại tải về được ạ?
 
Upvote 0
vuvo_nhenhang đã viết:
Em có câu hỏi là: Tại sao một số hóa đơn khi em tìm kiếm trên web hoadondientu thì không tìm thấy, nhưng file lại tải về được ạ?
Nhấp chuột vào đây để mở rộng...
Do cách bạn tìm chưa hết: Loại 1: Hoá đơn cấp mã + Hoá đơn không cấp mã (tìm 2 lần), Loại 2: Hoá đơn từ máy tính tiền: đồng thời chọn sang tab hoá đơn máy tính tiền ở phần bảng kê bên dưới thì mới tìm được.
 
Upvote 0
AD ơi, đến ngày 28/5/2026 lại bị lỗi rồi ạ. nhờ AD ra tay cứu giúp! Đa tạ AD!
 

File đính kèm

  • Lỗi 28-5-2026.png
    Lỗi 28-5-2026.png
    76.8 KB · Đọc: 42
Upvote 0
ongke0711 đã viết:
Khi xuất bảng kê chi tiết, nó sẽ liệt kê từng dòng mã hàng hoá bán mà các mục chi phí thì là chi phí tổng cho toàn hoá đơn chứ không thuộc dòng mã hàng hoá DV nào nên tôi không kết chuyển vô bảng kê.
Nhấp chuột vào đây để mở rộng...
Cám ơn bạn đã trả lời. Nhưng trong thực tế các hóa đơn liên quan đến vé máy bay, dịch vụ công có phát sinh phí khi tải về trên phần tổng hợp thì có nhưng trong chi tiết hàng hóa chưa thấy. Bạn kiểm tra lại giúp. 1780105904010.png
 
Upvote 0
nguyentantien123 đã viết:
AD ơi, đến ngày 28/5/2026 lại bị lỗi rồi ạ. nhờ AD ra tay cứu giúp! Đa tạ AD!
Nhấp chuột vào đây để mở rộng...
Trường hợp của bạn là do hết thời hạn đăng nhập hoặc do bạn chọn sai MST. File chương trình hơi mâu thuẫn 1 chút đó là đăng nhập xong phải chọn lại mã số thuế khi tra cứu hoá đơn. Bạn cần chọn lại đúng MST cần tra cứu và chắc chắn nó mới được đăng nhập không quá 24 giờ.
Phương án giải quyết cho lần sau:
1. Đặng nhập xong thì lưu MST vào Sheet.
2. Sửa code Form tải để khi khởi động load MST đăng nhập gần nhất.
vusidakiu đã viết:
Cám ơn bạn đã trả lời. Nhưng trong thực tế các hóa đơn liên quan đến vé máy bay, dịch vụ công có phát sinh phí khi tải về trên phần tổng hợp thì có nhưng trong chi tiết hàng hóa chưa thấy. Bạn kiểm tra lại giúp.
Nhấp chuột vào đây để mở rộng...
Theo tôi hiểu là phần hoá đơn có thể hiện Phí tính trên giá trị hoá đơn, nhưng nó không nằm trong mục tên hàng hoá, dịch vụ nên Bảng chi tiết hoá đơn không hiển thị bạn ạ.
 
Upvote 0
Cho em hỏi là em đăng nhập được rồi. Đến bước tải hóa đơn xong nhưng thời gian xử lý không chạy cứ 18s hoài
1780658934714.png
Sau đó em bấm tải hóa đơn lần nữa thì báo lỗi bug như hình ạ
1780658910068.png
 
Upvote 0
ongke0711 đã viết:
Khi xuất bảng kê chi tiết, nó sẽ liệt kê từng dòng mã hàng hoá bán mà các mục chi phí thì là chi phí tổng cho toàn hoá đơn chứ không thuộc dòng mã hàng hoá DV nào nên tôi không kết chuyển vô bảng kê.
Nhấp chuột vào đây để mở rộng...
a ơi e đang xài bản v6.2 nhưng file xml tải về folder giải nén trống, ko có file. Lỗi này là do gì vậy a biết ko ạ1780716215468.png
Bài đã được tự động gộp:

Diemnguyenqn đã viết:
a ơi e đang xài bản v6.2 nhưng file xml tải về folder giải nén trống, ko có file. Lỗi này là do gì vậy a biết ko ạ1780716215468.png
Nhấp chuột vào đây để mở rộng...
hoaianpham92 đã viết:
phần trạng thái hóa đơn sau khi chạy get xml sheet "ChiTietHD_Mua_XML" đang không đúng ạ,
View attachment 311779
Nhấp chuột vào đây để mở rộng...
#754 có update lại file mới rồi đó a/c
 
Upvote 0
Diemnguyenqn đã viết:
a ơi e đang xài bản v6.2 nhưng file xml tải về folder giải nén trống, ko có file. Lỗi này là do gì vậy a biết ko ạView attachment 311787
Bài đã được tự động gộp:



#754 có update lại file mới rồi đó a/c
Nhấp chuột vào đây để mở rộng...
dạ thêm phần mã tra cứu hóa đơn (mã số bí mật) file đang get data sang field "hình thức thanh toán" trong xml ạ
 
Upvote 0
hoaianpham92 đã viết:
phần trạng thái hóa đơn sau khi chạy get xml sheet "ChiTietHD_Mua_XML" đang không đúng ạ,
View attachment 311779
Nhấp chuột vào đây để mở rộng...

hoaianpham92 đã viết:
dạ thêm phần mã tra cứu hóa đơn (mã số bí mật) file đang get data sang field "hình thức thanh toán" trong xml ạ
Nhấp chuột vào đây để mở rộng...
Sao tôi thử tới lui không thấy cái lỗi như bạn đề cập nhỉ. Bạn có chỉnh sửa gì trong code trích xuất XML không?
 
Upvote 0
Mọi người cho e hỏi có cách nào tải xml/html nó khi giải nén ra nó sắp xếp theo ngày tháng không ạ.
 
Upvote 0
Dạ cái này mà làm thêm tính năng tải tờ khai thuế trên DVC thì tuyệt vời ạ
 
Upvote 0
Upvote 0
Chủ Thớt cho em hỏi, em đã tải bản V6.2 khi kết xuất dữ liệu bảng tổng hợp hóa đơn mua và và bảng chi tiết hóa đơn mua vào sao nó cứ bị ngược ngày (Ngày từ sau tới trước) chứ không xuôi ngày (Từ ngày 01 đến ngày 30) như bản V6.1 anh nhỉ. Có cách nào chỉnh được chỗ này không ạ?
 
Upvote 0
KingNguyen.Info đã viết:
Chủ Thớt cho em hỏi, em đã tải bản V6.2 khi kết xuất dữ liệu bảng tổng hợp hóa đơn mua và và bảng chi tiết hóa đơn mua vào sao nó cứ bị ngược ngày (Ngày từ sau tới trước) chứ không xuôi ngày (Từ ngày 01 đến ngày 30) như bản V6.1 anh nhỉ. Có cách nào chỉnh được chỗ này không ạ?
Nhấp chuột vào đây để mở rộng...
Bạn thêm 2 Sub này vào trong Module nào cũng được
Mã: 
Sub Sort_chitietMua()
        ' Sort lai du lieu sheet ChiTietHD_Mua
        Dim ws As Worksheet
        Dim lastRowSort As Long
        Dim rngB As Range, rngC As Range
       
        Set ws = ThisWorkbook.Worksheets("ChiTietHD_Mua")
        lastRowSort = ws.Cells(ws.Rows.count, "A").End(xlUp).row
       
        If lastRowSort >= 3 Then
            Set rngB = ws.Range("B3:B" & lastRowSort)
            Set rngC = ws.Range("C3:C" & lastRowSort)
       
            ' Dung tam cot AH, AI de tinh
            ws.Range("AH3:AH" & lastRowSort).FormulaR1C1 = "=IFERROR(TRIM(RC[-32])*1,"""")"
            ws.Range("AI3:AI" & lastRowSort).FormulaR1C1 = "=IFERROR(TRIM(RC[-32])*1,"""")"
       
            ' Cho Excel tinh xong
            ws.Calculate
       
            ' Danh value tu AH, AI ve B, C
            rngB.Value = ws.Range("AH3:AH" & lastRowSort).Value
            rngC.Value = ws.Range("AI3:AI" & lastRowSort).Value
       
            ' Xoa cot tam
            ws.Range("AH3:AI" & lastRowSort).ClearContents
       
            ' Dinh dang lai neu cot C la ngay
            'ws.Range("C3:C" & lastRowSort).NumberFormat = "dd/mm/yyyy"
       
            ' Sort theo cot C truoc, sau do cot B
            ws.Range("A3:AG" & lastRowSort).sort _
                Key1:=ws.Range("C3"), Order1:=xlAscending, _
                Key2:=ws.Range("B3"), Order2:=xlAscending, _
                Header:=xlNo
        End If
End Sub
Mã: 
Sub Sort_tonghopMua()
        ' Sort lai du lieu sheet TongHopHD_Mua
        Dim ws As Worksheet
        Dim lastRowSort As Long
        Dim rngE As Range, rngF As Range
       
        Set ws = ThisWorkbook.Worksheets("TongHopHD_Mua")
        lastRowSort = ws.Cells(ws.Rows.count, "A").End(xlUp).row
       
        If lastRowSort >= 3 Then
            Set rngE = ws.Range("E3:E" & lastRowSort)
            Set rngF = ws.Range("F3:F" & lastRowSort)
       
            ' Dung tam cot BY, BZ de tinh lai gia tri E, F
            ws.Range("BY3:BY" & lastRowSort).FormulaR1C1 = "=IFERROR(TRIM(RC[-72])*1,"""")"
            ws.Range("BZ3:BZ" & lastRowSort).FormulaR1C1 = "=IFERROR(TRIM(RC[-72])*1,"""")"
       
            ' Tinh cong thuc
            ws.Calculate
       
            ' Dan value da tinh tro lai E va F
            rngE.Value = ws.Range("BY3:BY" & lastRowSort).Value
            rngF.Value = ws.Range("BZ3:BZ" & lastRowSort).Value
       
            ' Xoa cot tam
            ws.Range("BY3:BZ" & lastRowSort).ClearContents
       
            ' Neu F la ngay thi dinh dang lai
            'ws.Range("F3:F" & lastRowSort).NumberFormat = "dd/mm/yyyy"
       
            ' Sort theo cot F truoc, sau do cot E
            ws.Range("A3:BX" & lastRowSort).sort _
                Key1:=ws.Range("F3"), Order1:=xlAscending, _
                Key2:=ws.Range("E3"), Order2:=xlAscending, _
                Header:=xlNo
        End If
End Sub
Sub Sort_chitietMua()
        ' Sort lai du lieu sheet ChiTietHD_Mua
        Dim ws As Worksheet
        Dim lastRowSort As Long
        Dim rngB As Range, rngC As Range
       
        Set ws = ThisWorkbook.Worksheets("ChiTietHD_Mua")
        lastRowSort = ws.Cells(ws.Rows.count, "A").End(xlUp).row
       
        If lastRowSort >= 3 Then
            Set rngB = ws.Range("B3:B" & lastRowSort)
            Set rngC = ws.Range("C3:C" & lastRowSort)
       
            ' Dung tam cot AH, AI de tinh
            ws.Range("AH3:AH" & lastRowSort).FormulaR1C1 = "=IFERROR(TRIM(RC[-32])*1,"""")"
            ws.Range("AI3:AI" & lastRowSort).FormulaR1C1 = "=IFERROR(TRIM(RC[-32])*1,"""")"
       
            ' Cho Excel tinh xong
            ws.Calculate
       
            ' Danh value tu AH, AI ve B, C
            rngB.Value = ws.Range("AH3:AH" & lastRowSort).Value
            rngC.Value = ws.Range("AI3:AI" & lastRowSort).Value
       
            ' Xoa cot tam
            ws.Range("AH3:AI" & lastRowSort).ClearContents
       
            ' Dinh dang lai neu cot C la ngay
            'ws.Range("C3:C" & lastRowSort).NumberFormat = "dd/mm/yyyy"
       
            ' Sort theo cot C truoc, sau do cot B
            ws.Range("A3:AG" & lastRowSort).sort _
                Key1:=ws.Range("C3"), Order1:=xlAscending, _
                Key2:=ws.Range("B3"), Order2:=xlAscending, _
                Header:=xlNo
        End If
End Sub
Xong bạn vào code taiHoaDon_Total gọi 2 hàm mình mới gửi vào thử xem hen (bỏ vào chỗ như hình kèm)
Mình không biết code, cái này nhờ AI thêm vào á
 

File đính kèm

  • 1781498644223.png
    1781498644223.png
    79.9 KB · Đọc: 35
Upvote 0
KingNguyen.Info đã viết:
Chủ Thớt cho em hỏi, em đã tải bản V6.2 khi kết xuất dữ liệu bảng tổng hợp hóa đơn mua và và bảng chi tiết hóa đơn mua vào sao nó cứ bị ngược ngày (Ngày từ sau tới trước) chứ không xuôi ngày (Từ ngày 01 đến ngày 30) như bản V6.1 anh nhỉ. Có cách nào chỉnh được chỗ này không ạ?
Nhấp chuột vào đây để mở rộng...
Không muốn thêm code thì sửa trong code gốc thế này sẽ được:
1. Sắp xếp theo ngày tăng dần
2. Thứ tự trong 1 tháng: (Hoá đơn có mã, không mã trước, rồi đến hoá đơn từ máy tính tiền)Sort.jpg
 
Upvote 0
pycckuu410 đã viết:
Không muốn thêm code thì sửa trong code gốc thế này sẽ được:
1. Sắp xếp theo ngày tăng dần
2. Thứ tự trong 1 tháng: (Hoá đơn có mã, không mã trước, rồi đến hoá đơn từ máy tính tiền)View attachment 311836
Nhấp chuột vào đây để mở rộng...
Em cảm ơn ạ, nhưng em phương án này, em không thấy hết code của 2 dòng dài nhất ạ. Add có thể cho em xin bản copy dòng code chèn thêm không ạ?
Bài đã được tự động gộp:

vohuyuy đã viết:
Bạn thêm 2 Sub này vào trong Module nào cũng được
Mã: 
Sub Sort_chitietMua()
        ' Sort lai du lieu sheet ChiTietHD_Mua
        Dim ws As Worksheet
        Dim lastRowSort As Long
        Dim rngB As Range, rngC As Range
      
        Set ws = ThisWorkbook.Worksheets("ChiTietHD_Mua")
        lastRowSort = ws.Cells(ws.Rows.count, "A").End(xlUp).row
      
        If lastRowSort >= 3 Then
            Set rngB = ws.Range("B3:B" & lastRowSort)
            Set rngC = ws.Range("C3:C" & lastRowSort)
      
            ' Dung tam cot AH, AI de tinh
            ws.Range("AH3:AH" & lastRowSort).FormulaR1C1 = "=IFERROR(TRIM(RC[-32])*1,"""")"
            ws.Range("AI3:AI" & lastRowSort).FormulaR1C1 = "=IFERROR(TRIM(RC[-32])*1,"""")"
      
            ' Cho Excel tinh xong
            ws.Calculate
      
            ' Danh value tu AH, AI ve B, C
            rngB.Value = ws.Range("AH3:AH" & lastRowSort).Value
            rngC.Value = ws.Range("AI3:AI" & lastRowSort).Value
      
            ' Xoa cot tam
            ws.Range("AH3:AI" & lastRowSort).ClearContents
      
            ' Dinh dang lai neu cot C la ngay
            'ws.Range("C3:C" & lastRowSort).NumberFormat = "dd/mm/yyyy"
      
            ' Sort theo cot C truoc, sau do cot B
            ws.Range("A3:AG" & lastRowSort).sort _
                Key1:=ws.Range("C3"), Order1:=xlAscending, _
                Key2:=ws.Range("B3"), Order2:=xlAscending, _
                Header:=xlNo
        End If
End Sub
Mã: 
Sub Sort_tonghopMua()
        ' Sort lai du lieu sheet TongHopHD_Mua
        Dim ws As Worksheet
        Dim lastRowSort As Long
        Dim rngE As Range, rngF As Range
      
        Set ws = ThisWorkbook.Worksheets("TongHopHD_Mua")
        lastRowSort = ws.Cells(ws.Rows.count, "A").End(xlUp).row
      
        If lastRowSort >= 3 Then
            Set rngE = ws.Range("E3:E" & lastRowSort)
            Set rngF = ws.Range("F3:F" & lastRowSort)
      
            ' Dung tam cot BY, BZ de tinh lai gia tri E, F
            ws.Range("BY3:BY" & lastRowSort).FormulaR1C1 = "=IFERROR(TRIM(RC[-72])*1,"""")"
            ws.Range("BZ3:BZ" & lastRowSort).FormulaR1C1 = "=IFERROR(TRIM(RC[-72])*1,"""")"
      
            ' Tinh cong thuc
            ws.Calculate
      
            ' Dan value da tinh tro lai E va F
            rngE.Value = ws.Range("BY3:BY" & lastRowSort).Value
            rngF.Value = ws.Range("BZ3:BZ" & lastRowSort).Value
      
            ' Xoa cot tam
            ws.Range("BY3:BZ" & lastRowSort).ClearContents
      
            ' Neu F la ngay thi dinh dang lai
            'ws.Range("F3:F" & lastRowSort).NumberFormat = "dd/mm/yyyy"
      
            ' Sort theo cot F truoc, sau do cot E
            ws.Range("A3:BX" & lastRowSort).sort _
                Key1:=ws.Range("F3"), Order1:=xlAscending, _
                Key2:=ws.Range("E3"), Order2:=xlAscending, _
                Header:=xlNo
        End If
End Sub
Sub Sort_chitietMua()
        ' Sort lai du lieu sheet ChiTietHD_Mua
        Dim ws As Worksheet
        Dim lastRowSort As Long
        Dim rngB As Range, rngC As Range
      
        Set ws = ThisWorkbook.Worksheets("ChiTietHD_Mua")
        lastRowSort = ws.Cells(ws.Rows.count, "A").End(xlUp).row
      
        If lastRowSort >= 3 Then
            Set rngB = ws.Range("B3:B" & lastRowSort)
            Set rngC = ws.Range("C3:C" & lastRowSort)
      
            ' Dung tam cot AH, AI de tinh
            ws.Range("AH3:AH" & lastRowSort).FormulaR1C1 = "=IFERROR(TRIM(RC[-32])*1,"""")"
            ws.Range("AI3:AI" & lastRowSort).FormulaR1C1 = "=IFERROR(TRIM(RC[-32])*1,"""")"
      
            ' Cho Excel tinh xong
            ws.Calculate
      
            ' Danh value tu AH, AI ve B, C
            rngB.Value = ws.Range("AH3:AH" & lastRowSort).Value
            rngC.Value = ws.Range("AI3:AI" & lastRowSort).Value
      
            ' Xoa cot tam
            ws.Range("AH3:AI" & lastRowSort).ClearContents
      
            ' Dinh dang lai neu cot C la ngay
            'ws.Range("C3:C" & lastRowSort).NumberFormat = "dd/mm/yyyy"
      
            ' Sort theo cot C truoc, sau do cot B
            ws.Range("A3:AG" & lastRowSort).sort _
                Key1:=ws.Range("C3"), Order1:=xlAscending, _
                Key2:=ws.Range("B3"), Order2:=xlAscending, _
                Header:=xlNo
        End If
End Sub
Xong bạn vào code taiHoaDon_Total gọi 2 hàm mình mới gửi vào thử xem hen (bỏ vào chỗ như hình kèm)
Mình không biết code, cái này nhờ AI thêm vào á
Nhấp chuột vào đây để mở rộng...
Dạ em cảm ơn ạ.
 
Upvote 0
1781662777760.png

Nay tải file đang báo lỗi chỗ này, dù đã chia nhỏ lần chỉ tải 5-10 ngày. Lỗi này khắc phục thế nào các bác nhỉ?
 
Upvote 0
Xin hỏi, khi bấm chọn tải hóa đơn, thì gặp lỗi này thì cần xử lý thế nào ? mong các bạn giúp đỡ (mình tải bản mới nhất ở trang 1 hôm 15/06/2026)

1781670402889.png

1781670447577.png
 
Upvote 0
Nhờ admin check giúp em, em mới vào đăng nhập nhưng ko thấy mã captcha tự động nhập ạ
 

File đính kèm

  • 1781750412595.png
    1781750412595.png
    77.3 KB · Đọc: 40
Upvote 0
Chào mn, nhờ mn hỗ trợ. Hôm nay mình vào tải nhưng báo lỗi như ảnh, mặc dù chia nhỏ nhưng vẫn báo lỗi
 

File đính kèm

  • 1781938804016.png
    1781938804016.png
    148 KB · Đọc: 25
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

GPE-Trợ Lý
[ĐÀ NẴNG] ĐĂNG KÝ THAM DỰ SINH NHẬT GIAIPHAPEXCEL LẦN THỨ 20 NGÀY 12/09/2026 (1 người xem)
    • Thích
    • Yêu thích
    • Chấp nhận
Trả lời
16
Đọc
1K
PhanTuHuong
PhanTuHuong
L
Tự động nhập dữ liệu từ sheet này sang sheet khác và ẩn ô giá trị "" (2 người xem)
Trả lời
0
Đọc
36
longpnt
L
hongphuong1997
Cảm ơn diễn đàn và đặc biệt bác @hieu CD (1 người xem)
    • Chấp nhận
    • Yêu thích
Trả lời
0
Đọc
40
hongphuong1997
hongphuong1997
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro (2 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
57
Đọc
26K
LKTECH
L
Kiều Mạnh
Chia sẻ: Nhận diện giọng nói tiếng Việt Offline trong Excel (VBA + DLL) - Hỗ trợ WAV, MP3, MP4, M4A (2 người xem)
    • Cảm ơn
    • Thích
Trả lời
0
Đọc
79
Kiều Mạnh
Kiều Mạnh
Nguyễn Duy Tuân
  • Dán lên cao
Phiên bản mới Add-in A-Tools AI v10 (2024)
    • Thích
2
Trả lời
114
Đọc
22K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
H
xử lý dữ liệu trùng nhau trong excel (1 người xem)
Trả lời
10
Đọc
460
ptm0412
ptm0412
GPE-Trợ Lý
[HCM] ĐĂNG KÝ THAM DỰ SINH NHẬT GIAIPHAPEXCEL LẦN THỨ 20 NGÀY 20/09/2026
    • Thích
Trả lời
3
Đọc
644
OverAC
OverAC
SA_DQ
[II] Nhờ Trí tuệ nhân tạo bàn luận về các ván cờ vua hàng ngày
    • Thích
Trả lời
26
Đọc
1K
SA_DQ
SA_DQ
huuthang_bd
Add-in Input From List - Hỗ trợ nhập liệu từ danh mục có sẵn
    • Thích
    • Yêu thích
3 4 5
Trả lời
445
Đọc
144K
phamhuubi
P
GPE-Trợ Lý
ẢNH SỰ KIỆN SINH NHẬT TẠI HN 06/09/2026
    • Thích
Trả lời
0
Đọc
93
GPE-Trợ Lý
GPE-Trợ Lý
Gà Công Nghệ
Tổng hợp từ sheet phụ sang sheet tổng (2 người xem)
Trả lời
11
Đọc
552
Gà Công Nghệ
Gà Công Nghệ
T
Excel nhớ lệnh copy cũ
Trả lời
3
Đọc
146
doanlong49
D
Maika8008
Chia sẻ - Python - Trộn dữ liệu bảng Excel sang file Word mẫu (1 người xem)
    • Thích
Trả lời
12
Đọc
575
tuan16
T
thaipv
  • Question Question
#HookLab - Tạo cửa sổ TaskPane / ActionPane bằng UserForm (1 người xem)
    • Thích
Trả lời
72
Đọc
15K
Gà Con yêu VBA
Gà Con yêu VBA
Ngày mai trời lại sáng
  • Đã giải quyết
Mừng GPE 20 tuổi – Em xin góp vui món quà “Nhập liệu thông minh cho Excel”
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
40
Đọc
3K
trum00thay
T
DMQ
Tại sao cùng FIle,cùng code VBA mà ở máy này chạy đúng,máy kia chạy sai. (1 người xem)
    • Cười
Trả lời
8
Đọc
284
ptm0412
ptm0412
Đ
  • Đã khóa
Tốc độ phản hồi quá chậm – Nếu không thay đổi, diễn đàn sẽ sớm mất hết người dùng vào tay AI
    • Thích
    • Cười
    • Buồn
Trả lời
18
Đọc
1K
sharonmartine
S
le_vis
Sinh nhật GPE tại Hà Nội
Trả lời
0
Đọc
114
le_vis
le_vis
GPE-Trợ Lý
[HÀ NỘI] ĐĂNG KÝ THAM DỰ SINH NHẬT GIAIPHAPEXCEL LẦN THỨ 20 NGÀY 06/09/2026
    • Thích
    • Yêu thích
Trả lời
21
Đọc
2K
hieuxd
hieuxd
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