摘自Scott Craner的评论，OP回复说它奏效了:

From Scott Craner's comment, which OP replied to indicating it worked:

更改

ws.copy After:=wbTemp.Sheets(1)

收件人:

ws.copy After:=wbTemp.Sheets(wbTemp.Worksheets.Count)