Runtime Error '1004' Method 'SaveAs' of object'_Workbook Failed

[pangkung99]

ผมได้แก้ฟอร์ม Excel และแก้ไขการดึงข้อมูลจาก Cell บางส่วน คอมพิวเตอร์ผมสามารถ Save ได้ปกติ แต่ว่าคอมพิวเตอร์เพื่อนร่วมงานเมื่อใช้ไฟล์นี้แล้ว ไม่สามารถ Save ได้ครับ
ขึ้น Runtime Error '1004' Method 'SaveAs' of object'_Workbook Failed
ขอสอบถามหน่อยครับเกิดจากอะไร และต้องแก้ไขอย่างไรครับ

Code: Select all

Sub Graphic4_Click()
    Dim MyPath As String
    Dim MyName As String
    Dim SaveAsName As String
    

    Range("A7:R21").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="N:\U-CM\08 GPC InterPipeline and I-4 TruckLoad and Ole&Aro MatTrans\8.04 MAT (GMM)\8.10.01 Billing\Olefins\008 Truck Loading  I-4\CKB\Doc MN4,8 2022\" & "CKB " & Format(Range("J4"), "dd-mm-yyyy") & " นม1,4,8" & ".xlsx", FileFormat:=51
            
    ThisWorkbook.Sheets(Array("นม.4", "น.ม.8 ใหม่")).Select
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "N:\U-CM\08 GPC InterPipeline and I-4 TruckLoad and Ole&Aro MatTrans\8.04 MAT (GMM)\8.10.01 Billing\Olefins\008 Truck Loading  I-4\CKB\Doc MN4,8 2022\" & "CKB " & Format(Range("J4"), "dd-mm-yyyy") & " นม1,4,8", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False
    
 MsgBox "Save เที่ยว " & Sheets("นม.4").Range("N4").Value & Sheets("นม.4").Range("O4").Value & " ของวันที่ " & Format(Range("J4"), "dd-mmmm-yyyy") & " นม 1,4,8 " & "เรียบร้อยแล้วจ้า"
End Sub

[snasui]

ในเครื่องผมสามารถทำงานได้ปกติครับ

สำหรับเครื่องที่เป็นปัญหาลองใช้ SaveCopyAs แทน SaveAs ดูครับ SaveCopyAs

[pangkung99]

ขอบคุณครับ นั่งงม เจอปัญหาแล้วครับ ตกม้าตาย
Version เครื่องอื่นเป็น 2016
วิธีแก้ไขคือ ลบเว้นวรรคข้างหน้า ให้ชิดขอบ ก็ไม่ Error แล้วครับ