VBA 出现400错误

故障现象：VBA小程序，在运行宏后，有时可以顺利进行，有时候就“抽风“，出现400错误

解决方法：可能造成400错误有很多，但是我的解决方法却是很奇怪，只要激活操作的工作表就可以了。可能是因为使用了thisworkbook,这个对象才造成的……使用thisworkbook.sheets("Sheet1").activate，即可解决问题。

如

                Set objData = New DataObject
                sHTML = Range("E" & (i)).Value
                sHTML = Replace(sHTML, "<br />", sTEMP)
                objData.SetText sHTML
                objData.PutInClipboard
                ActiveSheet.Paste Destination:=Range("E" & (i))

只要改成

                Set objData = New DataObject

                sHTML = Range("E" & (i)).Value
                sHTML = Replace(sHTML, "<br />", sTEMP)
                objData.SetText sHTML
                objData.PutInClipboard
                ThisWorkbook.Sheets("Sheet1").Activate
                ActiveSheet.Paste Destination:=Range("E" & (i))

就会报400错误了