In hóa đơn tự động

[brachiosaurus]

Chào các bác. Em có file excel bao gồm đường link hóa đơn điện tử cần in. . Hiện tại thao tác thủ công của e như sau:
- Copy đường link, paste vào chrome
- In từ chrome
Số lượng hóa đơn e cần in khoảng 500 cái, ngồi in từng tờ thì lâu và tốn công quá nên e tìm hiểu để in tự động.
Nhưng do trình độ quá kém nên chỉ có thể mở 1 đường link nếu paste trực tiếp vào vba, để đường dẫn đến ô cũng ko mở đc.
Các bác trợ giúp e với.

Đoạn e lượm nhặt và chỉnh sửa trên mạng như sau:
Sub Open_Chrome()
Dim Dir As String
Dim fileName As String
Dir = "C:\Program Files\Google\Chrome\Application"
fileName = "chrome.exe"
Shell Dir & "\" & fileName & " https://tracuuhoadon.fpt.com.vn/?mst=0101376672&sec=gxnl392v25"
End Sub

Và đây là ảnh chụp 1 số đường dẫn hóa đơn điện tử


Em cảm ơn rất nhiều

 

[BuiQuangThuan]

Em cảm ơn rất nhiều

Bác muốn in là in trực tiếp file pdf đó ra từ web ấy hả

 

[hoangtuan.net]

Chào các bác. Em có file excel bao gồm đường link hóa đơn điện tử cần in. . Hiện tại thao tác thủ công của e như sau:
- Copy đường link, paste vào chrome
- In từ chrome
Số lượng hóa đơn e cần in khoảng 500 cái, ngồi in từng tờ thì lâu và tốn công quá nên e tìm hiểu để in tự động.
Nhưng do trình độ quá kém nên chỉ có thể mở 1 đường link nếu paste trực tiếp vào vba, để đường dẫn đến ô cũng ko mở đc.
Các bác trợ giúp e với.

Đoạn e lượm nhặt và chỉnh sửa trên mạng như sau:
Sub Open_Chrome()
Dim Dir As String
Dim fileName As String
Dir = "C:\Program Files\Google\Chrome\Application"
fileName = "chrome.exe"
Shell Dir & "\" & fileName & " https://tracuuhoadon.fpt.com.vn/?mst=0101376672&sec=gxnl392v25"
End Sub

Và đây là ảnh chụp 1 số đường dẫn hóa đơn điện tử
View attachment 306546

Em cảm ơn rất nhiều

có khi bác tải hết file pdf về rồi in hàng loạt sau, vừa lưu trữ được nữa!

 

[brachiosaurus]

Bác muốn in là in trực tiếp file pdf đó ra từ web ấy hả

đúng rồi ạ. nhưng ngoài cách mở từ đường link ra thì e ko có cách nào mở đc. nên vẫn phải paste đường link vào chrome để mở

Bài đã được tự động gộp: Thứ năm lúc 15:30

có khi bác tải hết file pdf về rồi in hàng loạt sau, vừa lưu trữ được nữa!

muốn tải hết về thì cũng phải vào từng đường link, ấn vào download. e muốn làm cách nào cho nó tự động luôn ý. chứ copy qua lại mệt quá

 

[hoangtuan.net]

Chào các bác. Em có file excel bao gồm đường link hóa đơn điện tử cần in. . Hiện tại thao tác thủ công của e như sau:
- Copy đường link, paste vào chrome
- In từ chrome
Số lượng hóa đơn e cần in khoảng 500 cái, ngồi in từng tờ thì lâu và tốn công quá nên e tìm hiểu để in tự động.
Nhưng do trình độ quá kém nên chỉ có thể mở 1 đường link nếu paste trực tiếp vào vba, để đường dẫn đến ô cũng ko mở đc.
Các bác trợ giúp e với.

Đoạn e lượm nhặt và chỉnh sửa trên mạng như sau:
Sub Open_Chrome()
Dim Dir As String
Dim fileName As String
Dir = "C:\Program Files\Google\Chrome\Application"
fileName = "chrome.exe"
Shell Dir & "\" & fileName & " https://tracuuhoadon.fpt.com.vn/?mst=0101376672&sec=gxnl392v25"
End Sub

Và đây là ảnh chụp 1 số đường dẫn hóa đơn điện tử
View attachment 306546

Em cảm ơn rất nhiều

em có giải pháp nó hơi thủ công xíu, bác dùng autohotkey, sau đó mở chrome ấn vào nút tải về sau đó lưu file. Sau đó bác treo máy đi chơi cho nó tự click tải về thôi, kiểu như này ạ!

đoạn mã akh tham khảo:

#Persistent
SetTitleMatchMode, 2  ; Cho phép tìm cửa sổ bằng tiêu đề chứa chuỗi

; Danh sách các URL
urls := "
(
https://tracuuhoadon.fpt.com.vn?mst=0101376672&sec=gxnl392v25
https://tracuuhoadon.fpt.com.vn?mst=0101376672&sec=gm2dq9ze7r
https://tracuuhoadon.fpt.com.vn?mst=0101376672&sec=rl78ydqej5
https://tracuuhoadon.fpt.com.vn?mst=0101376672&sec=gm2dq90e3г
)"

; Duyệt qua từng URL trong danh sách
Loop, Parse, urls, `n, `r
{
    ; Mở URL trong tab hiện tại
    Run, chrome.exe "%A_LoopField%"
    Sleep, 10000  ; Đợi 10 giây để trang tải xong

    ; Nhấp vào tọa độ cụ thể
    Click, 770, 260  ; Thay đổi tọa độ dựa trên vị trí iframe
    Sleep, 2000  ; Đợi 2 giây để hiển thị hộp thoại lưu file

    ; Nhấn Enter để lưu file
    Send, {Enter}
    Sleep, 5000  ; Đợi 5 giây để đảm bảo file được lưu xong
}

; Hiển thị thông báo hoàn thành
MsgBox, Tất cả các URL đã được xử lý!
ExitApp

 

[brachiosaurus]

em có giải pháp nó hơi thủ công xíu, bác dùng autohotkey, sau đó mở chrome ấn vào nút tải về sau đó lưu file. Sau đó bác treo máy đi chơi cho nó tự click tải về thôi, kiểu như này ạ!

đoạn mã akh tham khảo:

#Persistent
SetTitleMatchMode, 2  ; Cho phép tìm cửa sổ bằng tiêu đề chứa chuỗi

; Danh sách các URL
urls := "
(
https://tracuuhoadon.fpt.com.vn?mst=0101376672&sec=gxnl392v25
https://tracuuhoadon.fpt.com.vn?mst=0101376672&sec=gm2dq9ze7r
https://tracuuhoadon.fpt.com.vn?mst=0101376672&sec=rl78ydqej5
https://tracuuhoadon.fpt.com.vn?mst=0101376672&sec=gm2dq90e3г
)"

; Duyệt qua từng URL trong danh sách
Loop, Parse, urls, `n, `r
{
    ; Mở URL trong tab hiện tại
    Run, chrome.exe "%A_LoopField%"
    Sleep, 10000  ; Đợi 10 giây để trang tải xong

    ; Nhấp vào tọa độ cụ thể
    Click, 770, 260  ; Thay đổi tọa độ dựa trên vị trí iframe
    Sleep, 2000  ; Đợi 2 giây để hiển thị hộp thoại lưu file

    ; Nhấn Enter để lưu file
    Send, {Enter}
    Sleep, 5000  ; Đợi 5 giây để đảm bảo file được lưu xong
}

; Hiển thị thông báo hoàn thành
MsgBox, Tất cả các URL đã được xử lý!
ExitApp

quá đc luôn ạ. nhưng cái này hình như ko phải code vba đúng ko bác?

 

[BuiQuangThuan]

quá đc luôn ạ. nhưng cái này hình như ko phải code vba đúng ko bác?

Bác cài cái autohotkey vào. xong set vị trí trên ggchorm rồi chạy đoạn AHK đó là được.
Chỉnh sửa thêm 1 chút Link được lấy từ file text

Run, chrome.exe --new-window, , , ChromePID
Sleep, 3000
Loop, Read, D:\link.txt
{
    Run, chrome.exe --remote-debugging-port=9222 "%A_LoopReadLine%"
    Sleep, 10000
    Click, 1080, 236
    Sleep, 1000 
    Send, D:\Invoice_%A_Index%.pdf
    Send, {Enter}
    Sleep, 1000 
    Send, ^w
    Sleep, 1000
}
MsgBox, Tất cả các URL đã được xử lý và tải PDF thành công!
ExitApp

 

[HeSanbi]

@brachiosaurus Mã ở trên đơn giản chỉ là mở url với Chrome.
In ấn hay tải về pdf thì bạn cần biết về WebView2 hoặc Chrome Protocol DevTools và các lệnh API để tự động nhấn in.
Không có lệnh nào để tự động nhấn in trên Trình duyệt, chính vì vậy cần đến API win32 để thực hiện.

Hoặc bạn phải biết về lập trình gửi yêu cầu đến API của Web nguồn để tải PDF về sau đó in bằng dòng lệnh bởi một trình đọc PDF.

Trình tải và in ấn này tôi cũng đang áp dụng vào ứng dụng hóa đơn điện tử mà tôi đang phát triển.

Tôi đang viết một trình tự động hóa có khả năng duyệt qua hầu hết các nguồn từ các Nhà cung cấp giải pháp HDDT để tải về PDF
Để giúp giảm đi nhiều công việc, tiết kiệm thời gian hơn khi làm việc với HDDT.

Autohot Key chỉ là giải pháp tạm thời, không hiệu quả. 100% là AutoHotKey không thể biết được khi nào tệp PDF đã load xong. Vì vậy bạn phải đặt thời gian dừng.

(Ứng dụng tôi chỉ viết được 1/2 quảng đường)

 

[HeSanbi]

@brachiosaurus
Ứng dụng dưới đây sử dụng WebView2 và API, với 2 chức năng tải PDF (dưới nền) và in PDF.
Bạn có thể xem hướng dẫn trong ứng dụng để thực hiện.

Ứng dụng này hoạt động mà không làm ảnh hưởng đến công việc khác trên máy tính của bạn.
(Các bạn tải về thì nên đặt dừng mỗi lượt vài giây để tiết kiệm chi phí cho server, thường thì tính ích kỉ, vội vàng, sự khiêm tốn sẽ quyết định số giây đó, thường thì 1 vài server họ cũng 'ích kỉ, chi li' về băng thông, nên số giây sẽ quyết định 'sức sống' của server đó)