WPS平台上VBA粘贴代码运行出错

公司现在从Excel切换到wps，以下的代码是去公式的VBA代码，之前在excel2016上是正常运行的，现在到了wps平台后，当第二次运行到“ .UsedRange.PasteSpecial xlValues”系统报错，报错提示为：运行时错误'-1880945651（8fe30c0d）':自动化（Automation）错误，不知道是什么原因，该如何解决。请各位老师指点赐教。

Sub arpt()

ThisWorkbook.Save

With Application

.Calculation = xlCalculationManual

.DisplayAlerts = False

End With

Dim i As Integer, v As Variant, b As Boolean, i2 As Integer, pa As Variant

Application.Calculate

pa = Range(Sheets("ds").Cells(1, 1).End(xlToRight), Sheets("ds").Cells(15, 2))

v = Split(pa(13, 1), ";")

Sheets(Split(pa(12, 1), ";")).Delete

Sheets("mail").Visible = xlSheetHidden

For i = 1 To Sheets.Count

With Sheets(i)

For i2 = 0 To UBound(v)

If .Name = v(i2) Then

b = True

Exit For

End If

Next i2

If Not b Then

.UsedRange.Copy

.UsedRange.PasteSpecial xlValues

End If

b = False

End With

Next i

Worksheets(pa(14, 1)).Select

SaveAs Path & pa(15, 1)

t = DateAdd("s", 5, Now) '延时2秒

Do Until Now > t

DoEvents

Loop

End Sub