[已解决]导出工作表问题

yjwdjfqb

导出工作表问题

文件的名称，及保存路径，如图
导出时，以当前工作有名称为 导出文件的名称


工作表还是以这个表的名称

导出的新文件中，只保留 当前导出的工作表，删除其它的空表。

导出的路径：默认路径是当前文件路径，也可以进行选择。

如下图：假如我当前文件在 F盘的 报表，文件夹下就是这样

请大家帮帮忙，谢谢大家了！


导出工作表问题.rar (48.77 KB, 下载次数: 3)

2014-5-10 12:27 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-5-10 16:04

alt+f8执行代码或点击运行宏

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Application.ScreenUpdating = False
   
3. Application.DisplayAlerts = False
   
4. Application.SheetsInNewWorkbook = 1
   
5. zf = ActiveSheet.Name
   
6. With Workbooks.Add
   
7.     ThisWorkbook.Sheets("" & zf).Copy after:=.Sheets(1)
   
8.     .Sheets(1).Delete
   
9.     .SaveAs Filename:=ThisWorkbook.Path & "" & zf & ".xls"
   
10. End With
    
11. Workbooks(zf & ".xls").Close 0
    
12. Application.SheetsInNewWorkbook = 3
    
13. Application.DisplayAlerts = True
    
14. Application.ScreenUpdating = True
    
15. End Sub
    

复制代码

dsmch

alt+f8执行代码或点击运行宏

yjwdjfqb

dsmch 发表于 2014-5-10 16:04
alt+f8执行代码或点击运行宏

感谢老师了，没有及时回帖，对不起了哈！