[已解决]请老师帮助修改将工作表另存为工作薄的宏

清风明月12

请老师帮助修改将工作表另存为工作薄的宏
请哪位老师帮我改一下这个代码，我想将它改为，将选定工作表另存为工作薄，另存的路径在“E\发”下，新工作薄的名称为工作表的名称
一开始我以为下面宏的代码是将工作表存到当前工作薄的路径下，后面在使用过程中才发现，它是将工作表存到用EXCEL窗口打开的第一个不隐藏的工作薄的路径下，与它原来说明的功能是有差异的
我想这个功能是很多人想要的。
Sub 将本工作表单独另存为独立工作薄存于Excel当前默认目录由单个工作表另存而来()
ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=ActiveSheet.Name & "由单个工作表另存而来.xls"
End Sub

最佳答案

月排行榜 / 总排行榜

lisachen

2011-12-25 09:27

1. Sub 将本工作表单独另存为独立工作薄存于Excel当前默认目录由单个工作表另存而来()
   
2.     ActiveSheet.Copy
   
3.     ActiveWorkbook.SaveAs "E:\发" & ActiveSheet.Name & ".xls"
   
4. End Sub

复制代码

跳转到最佳答案楼层

lisachen

1. Sub 将本工作表单独另存为独立工作薄存于Excel当前默认目录由单个工作表另存而来()
   
2.     ActiveSheet.Copy
   
3.     ActiveWorkbook.SaveAs "E:\发" & ActiveSheet.Name & ".xls"
   
4. End Sub

复制代码

清风明月12

谢谢二楼楼主，这正是我想要我效果