Error 400

[sakajohn]

ผมเขียน vba แล้วพอสั่ง run macro บางครั้งจะโชว์ error 400 ไม่มีตัวหนังสือบอกอะไรเลยครับ แล้วก็จะหยุดรันมาโครครับ ไม่มีฟ้องerror ที่ code ด้วยครับ จะต้องแก้อย่างไรครับ

[snasui]

อยากทราบว่ามีการซ่อนชีตไว้บ้างหรือไม่และ Code นั้นเขียนไว้อย่างไรครับ

[sakajohn]

มีซ่อนไฟล์ครับ

Code: Select all

Sub workbook_open()
MsgBox "´Ù´éÇÂÇèÒÁÕ 2 ä¿Åì§Ò¹ËÃ×Íà»ÅèÒ"
Workbooks.Open "\\Account\Data (D)\Sale\Dataapp.xlsx"
'Workbooks.Open "\\Account\Data (D)\Sale\SaleData.xlsx"
'Workbooks.Open "\\Account\Data (D)\Sale\DataBase.xlsx"
Workbooks.Open "\\Account\Data (d)\Sale\StockSaleHart.xlsx"
Workbooks.Open "\\John\f\Stockqc.xlsx"
Workbooks("StockSaleHart.xlsx").Activate
ActiveWindow.Visible = False

ThisWorkbook.Activate
End Sub

Code: Select all

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Dim sh As Worksheet
    'Sheets("sheet1").Visible = True
    'For Each sh In Worksheets
        'If sh.Name <> "Sheet1" Then
            'sh.Visible = False
        'End If
    'Next sh
    Workbooks("Dataapp.xlsx").Activate
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close
    
    Workbooks("StockSaleHart.xlsx").Activate
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close
    
    'Workbooks("DataBase.xlsx").Activate
    'ActiveWorkbook.Saved = False
    'ActiveWorkbook.Close
    
    Workbooks("StockQc.xlsx").Activate
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close
    
    'Workbooks("SaleData.xlsx").Activate
    'ActiveWorkbook.Save
    'ActiveWorkbook.Close
   
    ThisWorkbook.Save
End Sub

[snasui]

ถ้ามีการซ่อนชีตแล้วมีการ Loop ไปยังชีตที่ซ่อนอาจจะเกิด Error ขึ้นได้ แต่ตาม Code ที่โพสต์มาได้มีการ Mark เป็น Comment ไว้แล้วก็ไม่น่าจะ Error อีก หรือว่ายัง Error อยู่ครับ

[sakajohn]

มันไม่ขึ้น error ทุกครั้งครับเป็นบางครั้งครับ

[snasui]

ยากที่จะเดาครับ