ทำแล้วใน level 1 ขึ้นว่า The Source currently evaluates to an error. ค่ะ พยายามแก้ไขหลายครั้งแล้ว แต่ไม่สำเร็จ ไม่ทราบว่ามีอะไรที่เป็นโอกาสที่ทำผิดพลาดในการตั้งชื่อไหมคะ (มีข้อจำกัดใดไหมคะ) ขอบคุณค่ะ
📌แบบ Export พร้อมกันหลายๆชีท Sub SaveAllAsPDF() Dim filename As String Dim ws As Worksheet, a As Range For Each ws In ActiveWorkbook.Worksheets On Error Resume Next filename = "C:\Users\paopanga\OneDrive\Desktop\Quotation pdf\" & ws.Range("I3").Value ws.ExportAsFixedFormat Type:=xlTypePDF, filename:=filename, Quality:=xlQualityStandard, IncludeDocProperties _ :=True, IgnorePrintAreas:=True, OpenAfterPublish:=True Next End Sub
@PlearningExcel10 күн бұрын
📌แบบตามคลิป Sub SaveAsPDF() Dim filename As String filename = "C:\Users\paopanga\OneDrive\Desktop\Quotation pdf\" & Range("I3").Value ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=filename, Quality:=xlQualityStandard, IncludeDocProperties _ :=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub