导出不含VBA代码及按钮的表格

gglili

求教老师，我有一个文件想发给领导看，怎么才能导出不含VBA代码及按钮的文件，
里面有多张工作表，写什么样的代码能一键导出？

工程量报表.rar (89.99 KB, 下载次数: 8)

2024-4-11 10:41 上传

点击文件名下载附件

小花鹿

先另存为xlsx文件，再写代码把按钮删除

ykcbf1100

同目录下生成一个相同内容的xlsx文件
附件供参考。。。

ykcbf1100

代码供参考。。。

1. Sub 另存上报()  '//2024.4.11
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     p = ThisWorkbook.Path & ""
   
5.     Set wb = Workbooks.Add
   
6.     On Error Resume Next
   
7.     For Each ws In ThisWorkbook.Worksheets
   
8.         ws.Copy After:=wb.Sheets(wb.Sheets.Count)
   
9.         wb.Sheets(wb.Sheets.Count).DrawingObjects.Delete
   
10.     Next
    
11.     wb.Sheets(1).Delete
    
12.     wb.SaveAs p & "工程量报表"
    
13.     wb.Close
    
14.     Application.ScreenUpdating = True
    
15.     MsgBox "OK！"
    
16. End Sub
    

复制代码

dailj

thisworkbook.save
sheets("按钮").drawingobjects.delete
thisworkbook.savecopyas filename:="a.xlsx"
thisworkbook.close savechanges:=false

LIUZHU

需要批量删除按钮，JSA代码供参考

1. function 另存为(){
   
2.         [...Sheets].forEach(sh=>sh.DrawingObjects().Delete());
   
3.         ThisWorkbook.SaveAs(ThisWorkbook.FullName.slice(0,-1) + "x",51);
   
4. }

复制代码

LIUZHU

WPS软件测试

gglili

ykcbf1100 发表于 2024-4-11 11:10
代码供参考。。。

感谢老师的多次帮助，运行代码后，怎么只能删除前3张工作表的图形及按钮，后面的没删除，求教
如果用在别的工作簿应该修改什么？

gglili

dailj 发表于 2024-4-11 11:10
thisworkbook.save
sheets("按钮").drawingobjects.delete
thisworkbook.savecopyas filename:="a.xlsx"
...

这个怎么用？老师

ykcbf1100

gglili 发表于 2024-4-11 13:28
感谢老师的多次帮助，运行代码后，怎么只能删除前3张工作表的图形及按钮，后面的没删除，求教
如果用在 ...

应该是你的工作表被保护了吧。