解决方法:可能造成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错误了