สอบถามเรื่อง Code การทำปุ่ม SAVE เป็น PDF

[Chayapol.M]

สอบถามเรื่อง Code การทำปุ่ม SAVE เป็น PDF แบบคลิกทีเดียวจบ รายละเอียดดังนี้ครับ

- Save เป็น PDF จาก A1 - AE63
- Save ไว้ที่ Desktop
- ชื่อไฟล์เอาจากช่อง Z3
- หากกดซ้ำให้ Save ทับไปเลย

ขอบคุณครับ

[parakorn]

สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอครับ

[Chayapol.M]

ความจริงผมเขียนไม่เป็นน่ะครับ ไม่เคยเขียนเลย กะลังลองฝึกทำ

เห็นอันนี้ในเว็บเลยลองก๊อบเขามาแก้ใข แต่ยังติดที่ว่าชื่อไฟล์เอาจากช่อง Z3 ไม่เป็นครับ

Code: Select all

Sub SaveAsPDF()
Dim sv As String
sv = "C:\Users\thing\Desktop Test.pdf"
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AE$63"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sv
End Sub

[puriwutpokin]

ปรับตามนี้ครับ ติดตรงไหนค่อยว่ากันต่อครับ

Code: Select all

Sub SaveAsPDF()
 Dim str As String
sv = "C:\Users\User\Downloads\" 'ปรับที่อยู่ของไฟล์ที่จะSave
On Error Resume Next
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sv & Sheets("Sheet1").Range("Z3") + ".pdf"
End Sub

[Chayapol.M]

Run time error 9 ครับ

Code: Select all

Sub test()

Dim str As String
sv = "C:\Users\thing\Desktop"
pdfName = Sheets("Sheet1").Range("$Z$3") 'มันชี้ debug มาที่บรรทัดนี้ครับ ละชื่อSheet ผมก็เป็น 01,02,03 ไล่ไปเรื่อยๆน่ะครับ
On Error Resume Next
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sv & pdfName + ".pdf"
    
End Sub

[puriwutpokin]

ปรับเป็นแก้ชื่อชีทให้ตรงกันด้วยครับ

Code: Select all

Sub test()
Dim str As String
sv = "C:\Users\thing\Desktop\"
On Error Resume Next
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sv & Sheets("01").Range("Z3") + ".pdf"
End Sub