即修改Sheets("报表").Copy Before:=Workbooks("临时.xls").Sheets(1) 这句代码，或增加不复制公式、只复制格式和数值的代码。谢天谢地，谢您了！

我使用在Sheets("报表").Copy Before:=Workbooks("临时.xls").Sheets(1) 这句代码的下行增加：

Workbooks("临时.xls").Sheets(1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlAddWorkbooks("临时.xls").Sheets(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlAdd

但不起作用。