求助关于工作表导出的问题

jqliuym

把原工作表导出到D盘目录下明细表文件夹里。详情请看两个附件。谢谢！



                              原工作表附件： 原工作表.zip (12.63 KB, 下载次数: 3)

2018-9-5 20:18 上传

点击文件名下载附件

                              导出后的结果： 导出后的工作表结果.zip (11.74 KB, 下载次数: 3)

2018-9-5 20:19 上传

点击文件名下载附件

liulang0808

楼主仅仅是要删除按钮跟对应的代码吗？
另存为xlsx格式，代码就没有了

抽屉123

liulang0808 发表于 2018-9-5 20:39
楼主仅仅是要删除按钮跟对应的代码吗？
另存为xlsx格式，代码就没有了

导出后新的工作表就把按钮和代码删除。原工作表的代码和按钮仍然保存，谢谢！

jqliuym

liulang0808 发表于 2018-9-5 20:39
楼主仅仅是要删除按钮跟对应的代码吗？
另存为xlsx格式，代码就没有了

老师您好！导出后新的工作表代码和按钮删除。连同楼上的学生一起谢谢了。

liulang0808

1. Sub 按钮9_Click()
   
2.     Dim arr
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     ReDim arr(1 To Sheets.Count)
   
6.     For j = 1 To Sheets.Count
   
7.         arr(j) = Sheets(j).Name
   
8.     Next
   
9.     Sheets(arr).Copy
   
10.     Set wb = ActiveWorkbook
    
11.     For Each shp In wb.Sheets(1).Shapes
    
12.         shp.Delete
    
13.     Next shp
    
14.     wb.SaveAs ThisWorkbook.Path & "\new.xls"
    
15.     wb.Close False
    
16.     Application.DisplayAlerts = True
    
17.     Application.ScreenUpdating = True
    
18. End Sub
    

复制代码

liulang0808

看看是不是这个意思吧

jqliuym

liulang0808 发表于 2018-9-5 21:45
看看是不是这个意思吧

大师出手一个顶俩。谢谢您！如果把导出的新工作表放在D:\new.xls中又该如何办呢？

liulang0808

jqliuym 发表于 2018-9-5 22:19
大师出手一个顶俩。谢谢您！如果把导出的新工作表放在D:\new.xls中又该如何办呢？

wb.SaveAs "D:\new.xls"

jqliuym

liulang0808 发表于 2018-9-6 06:54
wb.SaveAs "D:\new.xls"

大师辛苦了！感谢您的大爱无疆！点赞！！！！