In file pdf theo danh sách trong excel

Liên hệ QC
VuVanHao

VuVanHao

Thành viên thường trực
Tham gia
20/6/18
Bài viết
246
Được thích
118
Em nhờ mọi người giúp đỡ ạ
Em có 2 folder, 1 folder PKN chứa các file pdf, 1 folder còn lại có chứa file excel. Trong file exel có 2 sheet, sheet Data là danh sách mã số theo vị thuốc của em, mã số đó trùng với tên file pdf trong folder PKN. Nhiệm vụ của em là khi yêu cầu in 1 số vị thuốc trong tổng số đó.
Như ví dụ, em cần in 3 vị trong sheet HELP, em vlookup được mã số của vị đó, mã cũng là tên của file pdf ý ạ
Nhờ mọi người chỉ giúp để em in được hàng loạt theo danh sách trong sheet HELP ạ
Vì thực tế là in tầm 150 mã trên tổng số 500 mã ạ
Em cảm ơn!
 

File đính kèm

  • Help_GPE.rar
    474.5 KB · Đọc: 27
hao93tbdtn đã viết:
Em nhờ mọi người giúp đỡ ạ
Em có 2 folder, 1 folder PKN chứa các file pdf, 1 folder còn lại có chứa file excel. Trong file exel có 2 sheet, sheet Data là danh sách mã số theo vị thuốc của em, mã số đó trùng với tên file pdf trong folder PKN. Nhiệm vụ của em là khi yêu cầu in 1 số vị thuốc trong tổng số đó.
Như ví dụ, em cần in 3 vị trong sheet HELP, em vlookup được mã số của vị đó, mã cũng là tên của file pdf ý ạ
Nhờ mọi người chỉ giúp để em in được hàng loạt theo danh sách trong sheet HELP ạ
Vì thực tế là in tầm 150 mã trên tổng số 500 mã ạ
Em cảm ơn!
Nhấp chuột vào đây để mở rộng...
Bạn mô tả chi tiết hơn về vấn đề cần thực hiện, nêu ví dụ mẫu thực tế.
 
giaiphap đã viết:
Bạn mô tả chi tiết hơn về vấn đề cần thực hiện, nêu ví dụ mẫu thực tế.
Nhấp chuột vào đây để mở rộng...
Dạ,
Bước 1: Em có danh sách các vị thuốc cần in, danh sách là các vị ở sheet Help trong file Help_GPE trong folder Data.
Bước 2: Từ danh sách đó, em tìm ra mã của nó dựa vào sheet Data trong file excel đó ạ, mã của nó cũng chính là tên file pdf ở folder PKN mà em muốn in ạ
Bình thường em tìm mã xong rồi vào folder PKN in từng mã 1. Tên file pdf em đánh số để dễ tìm ạ
 
hao93tbdtn đã viết:
Dạ,
Bước 1: Em có danh sách các vị thuốc cần in, danh sách là các vị ở sheet Help trong file Help_GPE trong folder Data.
Bước 2: Từ danh sách đó, em tìm ra mã của nó dựa vào sheet Data trong file excel đó ạ, mã của nó cũng chính là tên file pdf ở folder PKN mà em muốn in ạ
Bình thường em tìm mã xong rồi vào folder PKN in từng mã 1. Tên file pdf em đánh số để dễ tìm ạ
Nhấp chuột vào đây để mở rộng...
Vậy mục đích cuối cùng của bạn là gì? muốn in tất cả các file pdf có tên trùng với các mã trong sheet HELP đúng không?
 
giaiphap đã viết:
Bạn xem thử code này đúng yêu cầu chưa, mình tham khảo tại đây.
https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/147038-print-a-pdf-file-using-vba
Nhấp chuột vào đây để mở rộng...
Em dùng win 64bit không biết có ảnh hưởng không mà nó báo chữ đỏ dòng này ạ
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
hao93tbdtn đã viết:
Em dùng win 64bit không biết có ảnh hưởng không mà nó báo chữ đỏ dòng này ạ
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Nhấp chuột vào đây để mở rộng...
Bạn thử thay dòng đó bằng đoạn code này thử xem sao.
Mã: 
#If VBA7 Then
Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String, ByVal nShowCmd As Long) As LongPtr
#Else
Public Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String, ByVal nShowCmd As Long) As Long
#End If
 
giaiphap đã viết:
Bạn thử thay dòng đó bằng đoạn code này thử xem sao.
Mã: 
#If VBA7 Then
Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String, ByVal nShowCmd As Long) As LongPtr
#Else
Public Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String, ByVal nShowCmd As Long) As Long
#End If
Nhấp chuột vào đây để mở rộng...
Nó vẫn báo lỗi anh ạ :(((
 

File đính kèm

  • 12.png
    12.png
    48.7 KB · Đọc: 27
hao93tbdtn đã viết:
Nó vẫn báo lỗi anh ạ :(((
Nhấp chuột vào đây để mở rộng...
Bạn sửa lại thế này nè.
Mã: 
#If VBA7 Then
    Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
    Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If
 
giaiphap đã viết:
Bạn sửa lại thế này nè.
Mã: 
#If VBA7 Then
    Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
    Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If
Nhấp chuột vào đây để mở rộng...
Nó lại bị lỗi thế này anh ạ :(((
 

File đính kèm

  • 13.png
    13.png
    39.3 KB · Đọc: 28
hao93tbdtn đã viết:
Nó lại bị lỗi thế này anh ạ :(((
Nhấp chuột vào đây để mở rộng...
Sửa lại lần cuối nhé.
Mã: 
Option Explicit
#If VBA7 Then
    Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
    Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If
Public Function PrintThisDoc(formname As Long, FileName As String)
On Error Resume Next
Dim X
X = ShellExecute(formname, "Print", FileName, 0&, 0&, 3)
End Function
 
Sub testPrint()
Dim printThis, Arr()
Dim strDir As String
Dim i As Integer
strDir = ThisWorkbook.Path & "\PKN\"
Arr = Sheet2.Range("C2:C" & Sheet2.Range("C65000").End(xlUp).Row).Value
For i = 1 To UBound(Arr)
    printThis = PrintThisDoc(0, strDir & Arr(i, 1) & ".PDF")
Next i
End Sub
 
giaiphap đã viết:
Sửa lại lần cuối nhé.
Mã: 
Option Explicit
#If VBA7 Then
    Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
    Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If
Public Function PrintThisDoc(formname As Long, FileName As String)
On Error Resume Next
Dim X
X = ShellExecute(formname, "Print", FileName, 0&, 0&, 3)
End Function

Sub testPrint()
Dim printThis, Arr()
Dim strDir As String
Dim i As Integer
strDir = ThisWorkbook.Path & "\PKN\"
Arr = Sheet2.Range("C2:C" & Sheet2.Range("C65000").End(xlUp).Row).Value
For i = 1 To UBound(Arr)
    printThis = PrintThisDoc(0, strDir & Arr(i, 1) & ".PDF")
Next i
End Sub
Nhấp chuột vào đây để mở rộng...
Chuẩn rồi anh ạ
Em cảm ơn ạ
Anh cho em hỏi là cái sub ý nó tìm folder PKN thế nào ạ, em sợ để chỗ khác nó không tìm thấy =))
 
hao93tbdtn đã viết:
Chuẩn rồi anh ạ
Em cảm ơn ạ
Anh cho em hỏi là cái sub ý nó tìm folder PKN thế nào ạ, em sợ để chỗ khác nó không tìm thấy =))
Nhấp chuột vào đây để mở rộng...
Sửa testPrint lại chút.
Mã: 
Sub testPrint()
Dim printThis, Arr()
Dim strDir As String
Dim i As Integer, chk As Boolean
chk = Application.FileDialog(msoFileDialogFolderPicker).Show
If Not chk Then Exit Sub
strDir = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Arr = Sheet2.Range("C2:C" & Sheet2.Range("C65000").End(xlUp).Row).Value
For i = 1 To UBound(Arr)
    printThis = PrintThisDoc(0, strDir & Arr(i, 1) & ".PDF")
Next i
End Sub
 
giaiphap đã viết:
Sửa testPrint lại chút.
Mã: 
Sub testPrint()
Dim printThis, Arr()
Dim strDir As String
Dim i As Integer, chk As Boolean
chk = Application.FileDialog(msoFileDialogFolderPicker).Show
If Not chk Then Exit Sub
strDir = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"
Arr = Sheet2.Range("C2:C" & Sheet2.Range("C65000").End(xlUp).Row).Value
For i = 1 To UBound(Arr)
    printThis = PrintThisDoc(0, strDir & Arr(i, 1) & ".PDF")
Next i
End Sub
Nhấp chuột vào đây để mở rộng...
Chuẩn chỉ rồi anh ạ
Em cảm ơn!
 
Em là đến bước này mà sao truy cập đến Foder chứa thì nó không hiện ạ 1589873543624.png
 

File đính kèm

  • 1.png
    1.png
    104.6 KB · Đọc: 21
chuongham1995 đã viết:
Mình chọn forder PKN rồi [OK], Nó vẫn ko có động tĩnh gì ông ạ, Code mình như này đúng ko ông, thấy có dòng đỏ, Mình thay theo của anh
giaiphap chỉ.
Nhấp chuột vào đây để mở rộng...
Mình đã test trên office 32 và 64 bit đều ngon cả. Cái đường dẫn đến folder bạn không nên để tiếng việt có dấu nhé
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

LuuAnh980
  • Question
Code lấy dữ liệu từ 3 file con.
2 3 4
Trả lời
64
Đọc
958
VetMini
V
S
Sao excel lại biến dữ liệu thành dữ liệu nhiều các con số?
Trả lời
11
Đọc
125
ongke0711
ongke0711
A
  • Question
cách dùng lockxls bảo vệ file
Trả lời
18
Đọc
3K
chintn
chintn
emlat3
Đặt màu xen kẽ các dòng theo ký tự
Trả lời
6
Đọc
152
emlat3
emlat3
kyo
  • Suggestion
Bài viết: SAP Scripting – Excel và SAP (P2)
    • Thích
Trả lời
12
Đọc
8K
pic vo123
P
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

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