Excel Forum

Run time error 9 ครับ


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 ...

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

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


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

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

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

ขอบคุณครับ