code xuất file pdf và mở file pdf sau khi xuất

[thoai]

Mình có file excel xuất file qua pdf. Mình muốn chỉnh code sau khi xuất thì mở file pdf này luôn mà chưa dc. Nhờ AC chỉnh dùm

 

[befaint]

Mở file:

CreateObject("Shell.Application").Open ("C:\Users\Administrator\Desktop\ten_file.pdf")

 

[thoai]

Mở file:

CreateObject("Shell.Application").Open ("C:\Users\Administrator\Desktop\ten_file.pdf")

file xuất ra ở desktop nhưng code sau khi xuất thì lại không mở file pdf lên Anh Befaint

 

[befaint]

file xuất ra ở desktop nhưng code sau khi xuất thì lại không mở file pdf lên Anh Befaint

CreateObject("Shell.Application").Open (đường_dẫn_file_pdf_cần_mở)

Desktop nào ở đây? Nhìn mẫu đó thì biết đó là đường dẫn file cần mở, xem trong code của mình cái nào trả về đường dẫn file pdf để lưu thì cho nó vào khúc trên => vậy là mở được thôi.

 

[thoai]

CreateObject("Shell.Application").Open (đường_dẫn_file_pdf_cần_mở)

Desktop nào ở đây? Nhìn mẫu đó thì biết đó là đường dẫn file cần mở, xem trong code của mình cái nào trả về đường dẫn file pdf để lưu thì cho nó vào khúc trên => vậy là mở được thôi.

tên file xuất ra là sheet name do file từng máy xuất ra sẽ khác đường dẫn nên em mới hỏi, A xem dùm e

 

[Phuocam]

Sub Export()
Dim strDesktop As String
strDesktop = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & ActiveSheet.Name & " .pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=strDesktop
     CreateObject("Shell.Application").Open (strDesktop)
   
   'Thông báo
    MsgBox "XUAT FILE _ _ _ _.PDF O DESKTOP THANH CONG!"
   
End Sub