nguyendang95
Thành viên hoạt động



- Tham gia
- 25/5/22
- Bài viết
- 170
- Được thích
- 160
Đính kèm theo bài viết này là mã nguồn Visual C++ giúp lấy thông tin hóa đơn dạng XML từ trang web Bkav eHoaDon.
Để gọn nhẹ nhất có thể, code sử dụng thư viện "cây nhà lá vườn có sẵn của Windows", như WinHTTP API để kết nối với máy chủ, Microsoft XML, v6.0 để phân tích cú pháp XML, Microsoft HTML Object Library để đọc tập tin HTML và Microsoft VBScript Regular Expression 5.5 để trích xuất chuỗi bằng phương pháp Biểu thức Chính quy.


Sử dụng trong VBA:
Lưu ý: Cần phải cài đặt thành phần ATL Project trước khi chỉnh sửa code.
Để gọn nhẹ nhất có thể, code sử dụng thư viện "cây nhà lá vườn có sẵn của Windows", như WinHTTP API để kết nối với máy chủ, Microsoft XML, v6.0 để phân tích cú pháp XML, Microsoft HTML Object Library để đọc tập tin HTML và Microsoft VBScript Regular Expression 5.5 để trích xuất chuỗi bằng phương pháp Biểu thức Chính quy.


Sử dụng trong VBA:
Mã:
Option Explicit
Private Sub LookupInvoice()
Dim objInvoiceManager As InvoiceManagerLib.BkavEHoaDon
Dim objInvoiceInfo As InvoiceManagerLib.BkavEHoaDonInvoiceInfo
Set objInvoiceManager = New InvoiceManagerLib.BkavEHoaDon
Set objInvoiceInfo = objInvoiceManager.Lookup("Ma_hoa_don")
Debug.Print objInvoiceInfo.PBan
End Sub
Lưu ý: Cần phải cài đặt thành phần ATL Project trước khi chỉnh sửa code.
File đính kèm
Lần chỉnh sửa cuối: