convert excel to pdf gán vào menu chuột phải

[tuyetroi_ht91]

các pro có ai biết cách convert excel to pdf bằng foxit reader và gán nó vào menu chuột phải không ạ, khi cần chuyển file excel bất kỳ sang pdf ko cần mở file mà chỉ cần chuột pải vào file đó là có thể chuyển được ấy ạ.
Ngoài ra nếu dùng VBA để chuyển thì làm sao để file excel nằm ở đâu thì chuyển sang pdf nó vẫn nằm trong forder đó ạ
câu lệnh của em bên dưới sai ở đâu mà e chuyển nó không nằm trong đúng ổ của file excel ạ

Sub WbtoPDF()

Dim Wb As Workbook

Dim sh As Worksheet

Dim i As Integer

typefile = ThisWorkbook.Path & "\" & Wb.Name

Application.ScreenUpdating = False 'Tat update man hinh

Set Wb = ActiveWorkbook

For i = 1 To Wb.Sheets.Count

Set sh = Wb.Sheets(i)

Wb.ExportAsFixedFormat xlTypePDF, typefile

Next

Application.ScreenUpdating = True 'Bat update man hinh

MsgBox "Finish!"

End Sub

 

[Maika8008]

các pro có ai biết cách convert excel to pdf bằng foxit reader và gán nó vào menu chuột phải không ạ, khi cần chuyển file excel bất kỳ sang pdf ko cần mở file mà chỉ cần chuột pải vào file đó là có thể chuyển được ấy ạ.
Ngoài ra nếu dùng VBA để chuyển thì làm sao để file excel nằm ở đâu thì chuyển sang pdf nó vẫn nằm trong forder đó ạ
câu lệnh của em bên dưới sai ở đâu mà e chuyển nó không nằm trong đúng ổ của file excel ạ

Sub WbtoPDF()

Dim Wb As Workbook

Dim sh As Worksheet

Dim i As Integer

typefile = ThisWorkbook.Path & "\" & Wb.Name

Application.ScreenUpdating = False 'Tat update man hinh

Set Wb = ActiveWorkbook

For i = 1 To Wb.Sheets.Count

Set sh = Wb.Sheets(i)

Wb.ExportAsFixedFormat xlTypePDF, typefile

Next

Application.ScreenUpdating = True 'Bat update man hinh

MsgBox "Finish!"

End Sub

Không biết chỗ màu đỏ đó làm sao nó chạy được? Chưa biết Wb là gì thì làm sao lấy Name?

 

[tuyetroi_ht91]

Dạ, e cảm ơn a
E có Set Wb = ActiveWorkbook, nhưng ở đoạn dưới, nếu e đẩy nó lên trên wb.name thì có ổn ko a nhỉ, để lát con ngủ e sẽ thử ạ