Lưu file excel thành pdf ra desktop (5 người xem)

[alex-luu]

Em có file excel với Macro lưu file thành pdf ra Desktop như sau :

Sub Export()
ChDir "D:\Backup\G-Driver\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Backup\G-Driver\Desktop\Book1.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

End Sub

Khi chép file này qua máy khác thì Macro không hoạt động được vì sai đường dẫn. Có cách nào sửa để nó hoạt động trên nhiều máy khác nhau không, xin mọi người chỉ giúp
Em cảm ơn

 

[ndu96081631]

Em có file excel với Macro lưu file thành pdf ra Desktop như sau :

Sub Export()
ChDir "D:\Backup\G-Driver\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Backup\G-Driver\Desktop\Book1.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

End Sub

Khi chép file này qua máy khác thì Macro không hoạt động được vì sai đường dẫn. Có cách nào sửa để nó hoạt động trên nhiều máy khác nhau không, xin mọi người chỉ giúp
Em cảm ơn

Thư mục Desktop là cái này:

CreateObject("WScript.Shell").SpecialFolders("Desktop")

 

[alex-luu]

Thư mục Desktop là cái này:

CreateObject("WScript.Shell").SpecialFolders("Desktop")

Dạ, em cảm ơn thầy NDU, em làm được rồi

Sub Export()
Dim strDesktop As String
strDesktop = CreateObject("WScript.Shell").SpecialFolders("Desktop")
ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strDesktop & "\book1 .pdf"
End Sub

 

[NguyenthiH]

Vậy nếu như em chỉ nuốn xuất Sheet1 ra thành File pdf thôi thì chỉnh code làm sao hả Thầy ndu???

 

[thoai]

Dạ, em cảm ơn thầy NDU, em làm được rồi

Sub Export()
Dim strDesktop As String
strDesktop = CreateObject("WScript.Shell").SpecialFolders("Desktop")
ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strDesktop & "\book1 .pdf"
End Sub

em chỉ muối xuất theo từng sheet thì code chỉnh sao Thầy Du ơi

 

[lehuong1409]

Vậy nếu như em chỉ nuốn xuất Sheet1 ra thành File pdf thôi thì chỉnh code làm sao hả Thầy ndu???

bạn sửa ThisWorkbook.ExportAsFixedFormat Type thành activesheet.ExportAsFixedFormat Type hoặc sheet1.ExportAsFixedFormat Type xem sao

 

[thoai]

bạn sửa ThisWorkbook.ExportAsFixedFormat Type thành activesheet.ExportAsFixedFormat Type hoặc sheet1.ExportAsFixedFormat Type xem sao

muốn lấy tên của sheet luôn có dc k!

 

[lehuong1409]

muốn lấy tên của sheet luôn có dc k!

chỗ \book1 .pdf bạn sửa thành "\"&activesheet.name&".pdf"

 

[thoai]

chỗ \book1 .pdf bạn sửa thành "\"&activesheet.name&".pdf"

k dc bạn

Sub Export()
Dim strDesktop As String
strDesktop = CreateObject("WScript.Shell").SpecialFolders("Desktop")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:=strDesktop & "\"&activesheet.name&".pdf"

End Sub

 

[lehuong1409]

k dc bạn

Sub Export()
Dim strDesktop As String
strDesktop = CreateObject("WScript.Shell").SpecialFolders("Desktop")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strDesktop & "\" & ActiveSheet.Name & " .pdf"
End Sub

 

[thoai]

cảm ơn bạn!

 

[NguyenthiH]

Nếu em chỉ chọn một vùng nào đó để lưu thành file pdf (như A:H50 của sheet1) thì chỉnh code sao ah????

 

[ndu96081631]

Nếu em chỉ chọn một vùng nào đó để lưu thành file pdf (như A:H50 của sheet1) thì chỉnh code sao ah????

Một cách cực đơn giản: Ẩn hết các vùng không cần thiết, chỉ chừa lại vùng cần in

 

[NguyenthiH]

Cám ơn mọi người. Em đã làm được.

Sub Export()
Dim strDesktop As String
strDesktop = CreateObject("WScript.Shell").SpecialFolders("Desktop")
ActiveSheet.Range("A1:H50").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strDesktop & "\" & ActiveSheet.Name & " .pdf"
End Sub

 

[Lê Duy Thương]

Cách này nếu ai cài office 2010 thi không cần code vẫn vèo vèo

 

[khongcan]

Nhớ là từ Office 2010 trở đi, có lệnh Published to PDF or XPS của Excel rồi, code kiếc chi cho mệt vậy!

 

[ndu96081631]

Nhớ là từ Office 2010 trở đi, có lệnh Published to PDF or XPS của Excel rồi, code kiếc chi cho mệt vậy!

Người ta hỏi là có lý do chứ bạn. Ví dụ người ta đang làm 1 dự án lớn, trong đó có công đoạn Save to PDF. Vậy viết code đến khúc này thì ngưng và mình sẽ save file bằng tay à?

 

[khongcan]

Người ta hỏi là có lý do chứ bạn. Ví dụ người ta đang làm 1 dự án lớn, trong đó có công đoạn Save to PDF. Vậy viết code đến khúc này thì ngưng và mình sẽ save file bằng tay à?

Cảm ơn thầy chỉ giáo, đúng là không nghĩ đến nguyên nhân thật