คำตอบที่ได้รับเลือกจากเจ้าของกระทู้
ความคิดเห็นที่ 2
Sub Macro1()
Dim path As String
path = Application.ActiveWorkbook.FullName
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
path, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
ลองเปลี่ยนตรงนี้สังเกตุความแตกต่าง แล้วเลือกใช้ตามต้องการ
path =Application.ActiveWorkbook.path
กับ
path = Application.ActiveWorkbook.FullName
Sub Macro1()
Dim path As String
path = Application.ActiveWorkbook.FullName
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
path, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
ลองเปลี่ยนตรงนี้สังเกตุความแตกต่าง แล้วเลือกใช้ตามต้องการ
path =Application.ActiveWorkbook.path
กับ
path = Application.ActiveWorkbook.FullName
แสดงความคิดเห็น
รบกวนดู Code ให้หน่อยครับ
ปัญหาคือ ผมกำหนดให้มันไป Save ตามที่เก็บไฟล์ต้นฉบับไม่ได้ครับ
เช่น หากไฟล์นี้ อยู่ที่ ไดร์ D: เมื่อคลิกใช้ อยากให้มันอยู่ที่จุดเดียวกันหรือโฟลเดอร์เดียวกันกับต้นฉบับ
ตอนนี้ ไม่ว่าไฟล์ต้นฉบับจะย้ายไปไหนมันจะ Save ไปที่ไดร์ D: อย่างเดียวเลยครับ
ผมควรแก้ยังไงดีครับ
Sub Macro1()
ChDir "D:\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\QUOTATION", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
ปล. มือใหม่ มากครับ