Page 1 of 1

สอบถามการบันทึก PDF ไปยังโฟลเดอร์เดียวกับไฟล์

Posted: Tue Jan 12, 2021 8:53 am
by thanadul0816
จากไฟล์แนบ ผมได้ผลลัพธ์ตามที่ต้องการแล้วครับ
แต่จะถามว่า
1. ควรเอาสูตร ที่ 6 ข้อมารวมกัน หรือ แยก กันแบบที่ผมทำดีครับ
2. มี VBA ที่ระบุ ที่อยู่ไฟล์ได้เลยไหมครับ ผมเคยใช้

Code: Select all

ThisWorkbook.Path

Code: Select all

Sub SaveOrderAsPDF()

wsName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="ThisWorkbook.Path" & wsName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub
ผลลัพธ์ คือ ไฟล์ PDF ถูกบันทึกไว้โฟลเดอร์ก่อนหน้า เช่น
หากไฟล์นี้ อยูใน D:\โฟลเดอร์A\โฟลเดอร์B\ชื่อไฟล์.xlsm
ไฟล์ PDF จะไปบันทึกที่ โฟลเดอร์A แทนที่จะถูกบันทึกที่โฟลเดอร์B

** จุดประสงค์คือ ผมต้องการจะใช้ที่อยู่ไฟล์ในผลลัพธ์ ไปใช้เพื่อบันทึกPDF ให้อยู่ในโฟลเดอร์เดียวกันครับ

Re: สอบถามการบันทึก PDF ไปยังโฟลเดอร์เดียวกับไฟล์

Posted: Thu Jan 14, 2021 8:48 pm
by snasui
:D Statement "ThisWorkbook.Path" จะต้องไม่ครอบด้วยฟันหนู่ครับ

ควรจะเป็น ...ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & wsName,...