ฟ้องแบบนี้แปลว่าอะไรครับ

[bkkrong]

มันฟ้องแบบนี้แปลว่าอะไรครับ
ไม่มีการ copy รูป
แต่มีการใช้function script ทำงานติดต่อกันในปุ่มเดียว และมีการcopy sheet หลาย sheetไปที่ WB ใหม่
มีคำสั่งอะไรที่ไม่ได้เขียนปิดมันหรือเปล่าครับ

Code: Select all

Sub transfer_WB()
MsgBox "ÃкºAI ¨ÐÍÍ¡àÍ¡ÊÒÃà»ç¹ªØ´·Ñé§ËÁ´ ãÊèã¹ Workbook Excel ãËÁè à¾×èÍÊдǡ㹡ÒþÔÁ¾ìàÍ¡ÊÒÃ"
Dim oApp As Object
    Dim oMail As Object
    Dim WB As Workbook
    Dim FileName As String
    Dim wSht As Worksheet
    Dim shtName As String

    Application.ScreenUpdating = False
Sheets(Array(Sheet24.Name, Sheet25.Name, Sheet26.Name, Sheet4.Name, Sheet9.Name)).Copy
    Set WB = ActiveWorkbook
    FileName = WB.Worksheets(1).Name
    On Error Resume Next
    Kill "àÍ¡ÊÒêشἹ¨Ñ´«×éͨÃÔ§"
    On Error GoTo 0
    
    WB.SaveAs FileName:="àÍ¡ÊÒêشἹ¨Ñ´«×éͨÃÔ§"
    Application.CutCopyMode = False
    Application.ScreenUpdating = True

[snasui]

ลองแก้ด้วยวิธีการ Clear Clipboard ครับ https://answers.microsoft.com/en-us/mso ... 8c04e50227