Question

关于excel，vba. 用vba复制某个工作表并另存为另一个文件。

我的一个excel文件，里有有一个功能就是复制把一个工作表导出成另一个excel文件，以前都能用，今天就不知道怎么用不了。代码如图，现在它会把整个文件另存为一个excel文件，而且，原先的文件也会关闭（不保存关闭）。请大神分析下什么原因，怎么解决。

Answer 1

将ActiveWorkbook.SaveAs这一句改为

   ActiveWorkbook.Close SaveChanges:=True, Filename:=mypath & myfile

Answer 2

1 .如果使用工作簿的 SaveAs 方法以 Excel 5.0/95 文件格式保存包含 Visual Basic for Applications (VBA) 项目的工作簿，则"Microsoft Excel"对话框具有的默认响应为"是"；如果将 DisplayAlerts 属性设置为 False，则 Excel 选择的响应为"取消"。
看一下你默认的储存格式是不是变了，所以会出现以前正常现在不正常的情况。
2.sheet6.copy 这一句只有拷贝却没有目标，所以这一句没有作用。
3.activeworkbook.saveas mypath & myfile, fileformat=xlexcel少了个冒号应该是
activeworkbook.saveas mypath & myfile, fileformat:=xlexcel
4.VBA.MkDir (ThisWorkbook.Path & "/4px")这里的斜杆应该是反了。应该是VBA.MkDir (ThisWorkbook.Path & "\4px")不过我发现VBA真的不严谨，正反好像没有什么影响，那就无所谓了。