用VBA把单个工作表另外为工作簿Xlsx格式

888来来来

大家好，在网上找了1段VBA代码，学会了  当前单个活动工作表另存为工作簿  路径是桌面 格式是xlsx
但是每个工作表的名称不一样，每次导出都需要修改代码

但是我的需求是，另存的工作簿名称，怎么改成原来工作表的名称
求解一下  

1，把我原来的VBA代码稍作修改一下，有哪些代码是多余的，可以删除
2.  不用我现在的代码,有更好的直接提供  满足需求即可  
还有1个问题,新的工作簿会把之前的宏执行按钮也一起导出，如何导出之后把宏按钮删除呀

1. Sub 当前活动工作表另存为工作簿()
   
2.    Dim sht As Worksheet
   
3. 
   
4.     Application.ScreenUpdating = False
   
5. 
   
6.     'Get path for desktop of user PC
   
7.     Path = Environ("USERPROFILE") & "\Desktop"
   
8.     Cells.Copy
   
9. 
   
10.     'Create new workbook and past copied data in new workbook & save to desktop
    
11.     Workbooks.Add (xlWBATWorksheet)
    
12.    
    
13.     ActiveWorkbook.ActiveSheet.Paste
    
14.     ActiveWorkbook.SaveAs Filename:=Path & "" & "整机" & Format(CStr(Now()), "yy-mm-dd") & ".xlsx"
    
15.    
    
16. 
    
17.    
    
18.     ActiveWorkbook.Close SaveChanges:=True
    
19. 
    
20.     Application.ScreenUpdating = True
    
21. 
    
22.     MsgBox "Exported to Desktop"
    
23.    
    
24. End Sub
    

复制代码

gwjkkkkk

改二句。。。
    ActiveWorkbook.SaveAs Filename:=Path & "\" & "整机" & Format(CStr(Now()), "yy-mm-dd")
    ActiveSheet.Shapes(1).Delete

gwjkkkkk

代码审核中，改二句。。。

888来来来

gwjkkkkk 发表于 2023-5-20 19:41
代码审核中，改二句。。。

感谢回复！解决了另存为，同时删除宏按钮的问题   但是我测试了  如果活动工作表有2个或者多个宏按钮   只能删除1个
还有1个问题就是，我导出的工作簿名称，不需要固定 默认是  整机
我需要修改活动工作表的工作表的名称。例如我现在导出的工作表是电源线  希望工作簿就叫电源线 ！

gwjkkkkk

你这个应该机器写的吧，重新写了一下，如果导出活动工作表，其实按钮都不需要加，根据你的当前工作表直接导出。。。。

888来来来

gwjkkkkk 发表于 2023-5-20 20:51
你这个应该机器写的吧，重新写了一下，如果导出活动工作表，其实按钮都不需要加，根据你的当前工作表直接导 ...

好的  感谢  达到了 想要的效果！
你意思直接打开宏 点击执行是吧   我试了   确实没有这个问题了
我现在也是在学习，在想以后可能有的场景需要把宏按钮放在表格上
如果在增加一个功能，在保存之前出现文件夹路径弹框（默认是桌面)
这样你可以随时修改保存的工作簿名称  另外保存成功之后，出现弹框提示 保存成功1