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

[ongke0711]

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 .
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ợ.
*** 28/10/2024: Sửa lấy hóa đơn từ máy tính tiền.
*** 07/11/2024: Sửa code trích xuất dữ liệu, thêm cột so sánh.
*** 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.
*** 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.
*** 23/02/2025: Sửa lỗi hiển thị sai <Trạng thái hóa đơn>.

 

[AnhDuy2309]

Sau khi mình test thấy có một số lỗi như sau (File V6):

1. Phần link tra cứu hóa đơn, không click hiện trang tra cứu luôn (Cái này hơi bất tiện một xíu...), một số tổ chức giải pháp nhảy lộn xộn khi tra cứu sang trang không đúng trang cung cấp (hình bên dưới) cái này @ongke0711 để ý một xíu nha. (Cái phần ô chỏ chuột đó không phải vectc mà là Viettel)
2. Khi tải tất cả tệp zip về khi đưa lên trên Excel lại bất tiện vì một lần nữa phải nhấp phải chuột từng cái để kéo thả vào thư mục, (hình dưới đây mình chỉ giải nén ra chưa tách được file xml)
3. Sau khi mình nhập từng cái thì phần bên dưới không hiện các file chứng từ xml đã nhập lên Excel như thế nào nên không biết cái nào nhập r cái nào chưa nhập (Hình bên dưới), không hiện kết quả gì hết trơn.

Mình có đề xuất thêm như sau:

1. Mong Tác giả @ongke0711 khắc phục những lỗi mình vừa nêu trên.
2. Đề xuất thêm: Nếu như tùy chọn xml/html đó mà không tích thì ở dưới các danh sách không cần hiện, nếu mà tích chọn cái đó thì phải có số lượng hóa đơn, đơn giá tổng, thành tiền tổng để có thể đối chiếu lại các hóa đơn còn sót trong kỳ.
3. Phần chọn ngày tháng có thể show lịch cụ thể chứ có thể một số năm nhuận có 29 ngày sẽ bị thiếu hóa đơn, tất cả các ngày hoặc tùy chọn thêm tháng, quý, năm cũng được.

Mong rằng tác giả @ongke0711 có thể đọc phản hồi này, mình luôn ủng hộ dự án này phát triển nhiều hơn nữa trong tương lai.

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

OPTIONS trong HTTP là lệnh gửi yêu cầu thiết đặt tùy chọn tại server trước khi gửi yêu cầu tiếp theo, để server hiểu là yêu cầu tiếp theo gửi đến các tùy chọn là khớp với OPTIONS đó để server nhận đúng yêu cầu và sẽ trả về kết quả theo OPTIONS đó.
Nếu anh viết mã HTTP đồng bộ thì quá trình gửi OPTIONS này sẽ thêm độ trễ.
Viết mã HTTP Bất đồng bộ là lập trình VBA nâng cao, để tiến đến viết mã ứng dụng chuyên nghiệp mà người học lập trình nên hướng đến. Hãy xem một ví dụ là Chrome tải hình ảnh của Intagram của một cá nhân, với hàng trăm ảnh cùng lúc. Thì không thể tải đồng bộ, nó sẽ tạo ra độ trễ lớn cho người xem.


Hãy hiểu về svg trước bạn nhé, svg nó có các ký tự định nghĩa cú pháp M L Q Z ... bạn chỉ cần xóa hết các chỉ số định vị vị trí chiều rộng cao đi. Giữ lại các ký tự cú pháp. Bây giờ việc bạn cần làm là nhấn nút tạo mới captcha để chép lại các dãy mã SVG từ 0-9 A-Z xóa như trên để sau này so sánh với SVG mới. Hãy nghĩ xem bạn sẽ thấy mỗi ký tự có chỉ số định vị vị trí theo chiều ngang, so sánh 1 trong các chỉ số này của mỗi ký tự bạn sẽ có được thứ tự vị trí 6 ký tự.
Mỗi tệp svg đều có 2 3 đường kẻ che phía trước, các định nghĩa cú pháp SVG của nó rất đơn giản, nên rất dễ phát hiện chúng để loại trừ ra.

Sử dụng biểu thức chính quy bạn sẽ làm được các điều trên.

Tôi cũng đang viết ứng dụng này, bước captcha tôi đã xử lý xong, giai đoạn tiếp theo là xử lý khối dữ liệu và tải dữ liệu. Viết ứng dụng về HDDT là không đơn giản tí nào.

Bạn có thể xem qua hình ảnh ứng dụng tôi viết. Và cũng sẽ sớm chia sẻ.

View attachment 304547

@quocphuoc88
Dữ liệu API và XML là giống hệt nhau, từ dữ liệu API viết mã tạo tệp XML, thay vì tải zip. Bạn có 10k hóa đơn, nếu bạn tải về máy tính của bạn thì chỉ tốn kém. có 2 cách để giải quyết vấn đề tải zip để tiết kiệm cho việc tải:
1. Tải zip sau khi bạn lọc danh sách ít hóa đơn.
2. Từ Dữ liệu API tạo ra xml/html.

Nếu như Bác @HeSanbi đã tạo xong r thì chia sẻ lên cộng đồng để trải nghiệm trước tính năng thế nào để còn biết sửa lỗi chứ bác dựa vào @ongke0711 thấy hơi kì (Cái này chia sẻ thật lòng luôn, không khiển trách ai với ai cả). Còn không thì 2 bác hợp tác lại chia sẻ chung 1 file, đồng tác giả luôn cũng được

 

[HeSanbi]

Tôi lập trình tự lực bạn nhé, không dựa vào bất kỳ đoạn mã nào trong ứng dụng ở đây. Và tôi không có thời gian để đọc mã của ứng dụng này.
Tôi chỉ sợ các bạn học theo tôi không kịp, chứ đừng trông tôi học từ các bạn.

Tôi đang trong quá trình viết mã để chặn đánh cắp mã nguồn.


Tôi chỉ có ảnh để chứng minh, bao gồm các Module và Class Module

 

[AnhDuy2309]

Tôi lập trình tự lực bạn nhé, không dựa vào bất kỳ đoạn mã nào trong ứng dụng ở đây. Và tôi không có thời gian để đọc mã của ứng dụng này.
Tôi chỉ sợ các bạn học theo tôi không kịp, chứ đừng trong tôi học từ các bạn.

Tôi đang trong quá trình viết mã để chặn đánh cắp mã nguồn.

Nếu như bác sợ bị đánh cắp mã thì khoá mã VBA cũng được đặt mật khẩu cho đoạn mã để bảo vệ an toàn cũng được, cái mà người ta nhận được chỉ là danh sách, như tôi làm kế toán đây ko yêu cầu xem code, chỉ xem các kết quả trả về có phù hợp hay không thôi. Mong bác đọc được phản hồi này. Cảm ơn

 

[HeSanbi]

Vấn đề là người ta lấy ứng dụng đi bán lại cho người khác, mà không cần bỏ công sức nào, tôi không sợ các bạn học lại giải thuật hay thuật toán nào trong mã.

 

[vanthuan986]

Mình nghĩ Tool Excel này đang được tác giả chia sẻ miễn phí. Nên có không vừa ý các bạn hay không phù hợp các bạn có thể bỏ qua và mua bản trả phí của các nhà cung cấp khác. Còn nếu vẫn muốn dùng và góp ý thêm thì các bạn nên nói nhờ tác giả coi vậy có hợp lý và có thời gian làm không. Chứ nhiều bạn dùng miễn phí công sức của người khác mà toàn nói kiểu mình là người thuê viết riêng ý!

 

[ongke0711]

em thấy trường trạng thái hóa đơn hoạt động có vẻ không đúng so với trang hoadondientu.gdt.gov.vn. Cụ thể ở bản V6 này lỗi như sau:
- Hóa đơn đã bị thay thế => Hóa đơn điều chỉnh
- Hóa đơn đã bị xóa bỏ/hủy bỏ => Hóa đơn đã bị điều chỉnh
- Hóa đơn thay thế => Hóa đơn mới
- Hóa đơn mới => Tất cả.

Lỗi này do tôi tham chiếu sai cái mảng <Trạng thái hóa đơn>, nên bị sai thứ tự tên được hiển thị chứ code lấy dữ liệu thì không sai.
Chỉ cần sửa đoạn này: I2 --> I3

arrTrangThai = Sheets("LinkTraCuu").Range("I3:I8").Value    'Bo dong "Tat ca"

 

[pycckuu410]

Lỗi này do tôi tham chiếu sai cái mảng <Trạng thái hóa đơn>, nên bị sai thứ tự tên được hiển thị chứ code lấy dữ liệu thì không sai.
Chỉ cần sửa đoạn này: I2 --> I3

arrTrangThai = Sheets("LinkTraCuu").Range("I3:I8").Value    'Bo dong "Tat ca"

View attachment 307220

Mình có ý kiến sau:
1. Phần diclink.item(msttcgp) viết đơn giản là tìm kiếm 2 điều kiện theo dk1 msttcgp và dk2 là mst. Để phù hợp cho mọi trường hợp nhiều tổ chức cung cấp giải pháp link tra cứu riêng cho đơn vị sử dụng hoá đơn.
2. Phần MSttcgp chưa hiện khi hoá đơn được lập từ máy tính tiền.
Bạn check lại giúp mọi người nhé.

 

[bigboy22_09]

Lỗi này do tôi tham chiếu sai cái mảng <Trạng thái hóa đơn>, nên bị sai thứ tự tên được hiển thị chứ code lấy dữ liệu thì không sai.
Chỉ cần sửa đoạn này: I2 --> I3

arrTrangThai = Sheets("LinkTraCuu").Range("I3:I8").Value    'Bo dong "Tat ca"

View attachment 307220

Cảm ơn bạn rất nhiều, dính mấy cái hóa đơn của BKAV mãi không lấy file pdf được, nhờ tool này mà lấy ngon .

 

[lekhoi1492]

Các anh các chị cho em hỏi. Ví dụ mình là bên chi hộ (tức là không phải người mua, cũng không phải người bán).
Em tạm gọi bên bán là A bên mua là B, và em là C. Bên C làm việc với A và bên A sẽ xuất hóa đơn cho C trong đó người mua sẽ là bên B.

Tức là những hóa đơn này sẽ không có trong tài khoản hoadondientu.gov của bên C. Bọn em phải tải hóa đơn về để cung cấp cho bên B thanh toán.

Em bị vướng chỗ phần captcha. Khác với captcha của hoadondientu.gov là SVG. Các trang hóa đơn như https://cangbinhduong-tt78.vnpt-invoice.com.vn/ là hình captcha ạ

Em có biết cách xài API solve captcha ạ. Em xài https://2captcha.com

Các anh chị cho em hỏi có cách nào mình vượt qua captcha như này được không ạ. Em xin phép cảm ơn ạ

 

[tt_kimbai]

Chào các Bác ạ, em thấy pm hữu ích quá muốn sử dụng mà khi tải về mở file lên bị lỗi như sau

nhấp vào ok lại lên file lỗi sau ạ

và nhấp vào tải hóa đơn chỉ hiện lên bảng này ạ

Vậy cho em xin hỏi là bị sao ạ, em muốn sử dụng thì phải làm sao được ạ, mong được các Bác hướng dẫn ạ

 

[Merry Dinh]

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 .
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ợ.
*** 28/10/2024: Sửa lấy hóa đơn từ máy tính tiền.
*** 07/11/2024: Sửa code trích xuất dữ liệu, thêm cột so sánh.
*** 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.
*** 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.
*** 23/02/2025: Sửa lỗi hiển thị sai <Trạng thái hóa đơn>.

File rất hữu ích ạ. Cảm ơn bạn rất nhiều!

 

[hamhochoi66]

Lỗi này do tôi tham chiếu sai cái mảng <Trạng thái hóa đơn>, nên bị sai thứ tự tên được hiển thị chứ code lấy dữ liệu thì không sai.
Chỉ cần sửa đoạn này: I2 --> I3

arrTrangThai = Sheets("LinkTraCuu").Range("I3:I8").Value    'Bo dong "Tat ca"

View attachment 307220

Chào anh @ongke0711,
Anh cho em hỏi:
1/ Tại sheet TongHopHD_Mua cột S và T (khung màu đỏ bị sai) lại khác với cột AP và AR (tiền chưa thuế và thuế).
2/ Cột AW Tổng tiền thanh toán bằng số khác với bằng chữ cột AX
3/ Thuế suất sheet TongHopHD_Mua và ChiTietHD_Mua khác nhau.

Số liệu ở sheet ChiTietHD_Mua là số đúng.

Em cảm ơn, mong anh phản hồi.

 

[thanchetvnt]

Lỗi này do tôi tham chiếu sai cái mảng <Trạng thái hóa đơn>, nên bị sai thứ tự tên được hiển thị chứ code lấy dữ liệu thì không sai.
Chỉ cần sửa đoạn này: I2 --> I3

arrTrangThai = Sheets("LinkTraCuu").Range("I3:I8").Value    'Bo dong "Tat ca"

View attachment 307220

Gặp lỗi này là sao bác nhỉ, em chỉ "Tải hoá đơn" thôi ạ.

 

[ongke0711]

View attachment 307532
Gặp lỗi này là sao bác nhỉ, em chỉ "Tải hoá đơn" thôi ạ.

Ứng dụng này có hạn chế là không tải cùng lúc được nhiều hoá đơn nha bạn. Cái báo lỗi trên là bị web chặn lại đó.

 

[thanchetvnt]

Ứng dụng này có hạn chế là không tải cùng lúc được nhiều hoá đơn nha bạn. Cái báo lỗi trên là bị web chặn lại đó.

Em đóng File, sau đó mở lại rồi chạy lại ok bác ạ.

 

[chstbcaolanh]

Khi nhắn vào nút Tải hóa đơn thì bị lỗi.Nhờ Ad và mọi người chỉ mình khắc phúc

 

[ongke0711]

View attachment 307600

Khi nhắn vào nút Tải hóa đơn thì bị lỗi.Nhờ Ad và mọi người chỉ mình khắc phúc

Bạn bỏ dòng code đó đi cũng được. (thêm dấu nháy đơn trước dòng code đó).