recently office365 "error 1004" and "document not saved" happened frequently

Question

recently office365 "error 1004" and "document not saved" happened frequently

Gao, Qin Xian 0

User's image

these the warning box;

however the code run about 1 year not problem, but now happened frequently.

Gao, Qin Xian 0

the code:

rows_1 = 7


Do While True

    findpo = Range("A" & rows_1)
    findso = Range("C" & rows_1)
    findsol = Range("D" & rows_1)
    
    If findpo = "" Then
       Exit Do
    End If
    
    If findpo <> "" Then
    
        newfilepatha = patha & findpo & "\"
        
            If Dir(newfilepatha, vbDirectory) = "" Then
            MkDir (newfilepatha)
            Else
            End If
            currentworkbookname = ThisWorkbook.Name
            filename_z = "v20220926-" & findpo & "-" & findso & "-" & findsol & ".xlsm"
            
            Dim wb3 As Workbook
            Set wb3 = Workbooks.Open(Worksheets("setting").Range("C17"))
            
            Workbooks(currentworkbookname).Sheets("list").Range("A5:J5").Copy wb3.Worksheets("FB0911").Range("N1")
            
            
            
            Workbooks(currentworkbookname).Sheets("list").Range(Cells(rows_1, 1), Cells(rows_1, 10)).Copy
            wb3.Worksheets("FB0911").Range("N2").PasteSpecial Paste:=xlPasteValues
            '
            wb3.SaveAs (newfilepatha & filename_z)
            wb3.Close
            Set wb3 = Nothing