我来帮你排查这个Excel VBA的1004错误问题，这类临时文件相关的故障大多和系统权限、临时文件夹设置或者Office配置有关，下面是几个针对性的解决方案：

• 首先定位到报错里的临时文件夹路径：C:\Users\my_username\AppData\Local\Temp
• 右键该文件夹 → 属性 → 安全选项卡，确保当前用户拥有完全控制权限（至少要有读取、写入、修改权限）
• 如果权限不足，点击「编辑」添加当前用户，勾选对应的权限后保存

有时候Office的临时文件路径可能被异常修改，你可以手动重置：

1. 打开Excel 2010，点击「文件」→「选项」→「高级」
2. 拉到「常规」区域，点击「常规」下的「文件位置」按钮
3. 在弹出的窗口中找到「临时文件」项，点击「修改」，选择C:\Users\my_username\AppData\Local\Temp作为路径，确定后重启Excel

临时文件夹里的旧文件堆积过多可能导致冲突：

• 关闭所有Office程序（包括Excel）
• 打开C:\Users\my_username\AppData\Local\Temp，删除里面所有文件（如果有提示文件正在使用，跳过即可）
• 重启电脑后再尝试运行宏

新员工的电脑可能有额外的组策略或安全软件限制了VBA访问临时文件夹：

• 联系IT部门确认是否有针对Office VBA的组策略限制，比如禁止生成临时文件
• 暂时关闭杀毒软件/防火墙，测试宏是否能正常运行（测试后记得恢复安全设置）

如果以上方法都无效，可以尝试修改宏代码，手动指定新工作簿的保存路径，绕开系统临时文件夹：

Sub CopySheetToNewWorkbook()
    Dim newWB As Workbook
    ' 手动指定新工作簿的保存路径，比如桌面
    Set newWB = Workbooks.Add
    ThisWorkbook.Worksheets("你的工作表名称").Copy Before:=newWB.Sheets(1)
    ' 直接保存到指定路径，避免临时文件问题
    newWB.SaveAs "C:\Users\my_username\Desktop\报告版.xlsx"
    newWB.Close SaveChanges:=False
End Sub

内容的提问来源于stack exchange，提问作者nothingtwisted