ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
https://snasui.com/
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
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
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
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