วิธี save ข้อมูลใน Excel เป็น PDF อัตโนมัติ โดยใช้คำสั่ง Macro

[natcharrr]

สวัสดีค่ะ
ดิฉันขอรบกวนท่านผู้รู้ช่วยหน่อยนะคะ
ต้องการ save ข้อมูลที่ Set Area ไว้ ในหน้า Sheet หนึ่ง ให้เป็นไฟล์ PDF อัตโนมัติ
โดยดิฉันได้สร้างปุ่มคำสั่งไว้เพื่อให้ User กด Save
แต่ปัญหาที่ติดคือ ไฟล์ที่ save ชื่อยังซ้ำกันอยู่ค่ะ จึงต้องการเปลี่ยนชื่อไปเรื่อยๆด้วยค่ะ
เช่น Strock_checklist1 หรือเป็นชื่อ 1,2,3.. ไปเรื่อยๆก็ได้ค่ะ
จึงขอความอนุเคราะห์จากท่านผู้รู้ช่วยแก้ปัญหาหน่อยนะคะ
โดยโค้ดที่ใช้ดิฉันปัจจุบันคือ

ChDir "C:\Users\natcha.se\Desktop" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\natcha.se\Desktop\strockchecklist_1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True


ขอบพระคุณค่ะ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\natcha.se\Desktop\strockchecklist" & Format(Now, "yyyymmddhmmss") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

ในโอกาสหน้าช่วยโพสต์ Code ให้แสดงเป็น Code พร้อมทั้งแนบตัวอย่างไฟล์ประกอบด้วยจะได้สะดวกในการตอบ อ่านกฎการใช้บอร์ดข้อ 4, 5 ด้านบนประกอบครับ

[natcharrr]

ตัวอย่าง Code ครับ

Code: Select all

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\natcha.se\Desktop\strockchecklist" & Format(Now, "yyyymmddhmmss") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

ในโอกาสหน้าช่วยโพสต์ Code ให้แสดงเป็น Code พร้อมทั้งแนบตัวอย่างไฟล์ประกอบด้วยจะได้สะดวกในการตอบ อ่านกฎการใช้บอร์ดข้อ 4, 5 ด้านบนประกอบครับ

ขอบพระคุณค่ะ
ได้ตามที่ต้องการเรียบร้อยค่ะ
ต้องขอโทษด้วยนะคะที่ยังไม่เข้าใจการใช้ดีพอ โอกาสหน้าจะปรับปรุงการโพสต์ให้เหมาะสมและถูกต้องค่ะ
ขอบคุณค่ะ