Runtime Error '1004' Method 'SaveAs' of object'_Workbook Failed
Posted: Tue May 02, 2023 10:04 am
ผมได้แก้ฟอร์ม Excel และแก้ไขการดึงข้อมูลจาก Cell บางส่วน คอมพิวเตอร์ผมสามารถ Save ได้ปกติ แต่ว่าคอมพิวเตอร์เพื่อนร่วมงานเมื่อใช้ไฟล์นี้แล้ว ไม่สามารถ Save ได้ครับ
ขึ้น Runtime Error '1004' Method 'SaveAs' of object'_Workbook Failed
ขอสอบถามหน่อยครับเกิดจากอะไร และต้องแก้ไขอย่างไรครับ
ขึ้น 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
ในเครื่องผมสามารถทำงานได้ปกติครับ