在线求助老师，现有代码中另存为xls文件后删除宏和窗体，求指点

莫劝人善

下面宏怎么使另存后的xls文件删除 宏 和 窗体，求老师指点



Sub 另存()
Dim i
For i = 1 To Range("L1")
Application.ScreenUpdating = False
ThisWorkbook.SaveCopyAs Filename:="E:\" & Range("J3").Text & ".xls"
Application.ScreenUpdating = True
With Range("I1")
.Value = Left(.Value, 0) & Format(Right(.Value, 3) + 1, "0")
End With
Application.Wait Now + TimeValue("0:00:02")
Next i
End Sub

wengjl

换一下思路：
新建一个E表，将现有E表内容复制进去后，将新建的E表保存，等于是实现了另存，且无VBA宏码

yuyubiao

假设你的窗体的名称是窗体1，
ActiveSheet.Shapes.Range(Array("窗体1")).Select     
Selection.Delete
你可以用录制宏手动删除一遍然后把代码复制进去

莫劝人善

wengjl 发表于 2023-5-5 14:48
换一下思路：
新建一个E表，将现有E表内容复制进去后，将新建的E表保存，等于是实现了另存，且无VBA宏码

一次上百张表，工作量有些大

ftgli

莫劝人善 发表于 2023-5-5 15:52
一次上百张表，工作量有些大

Sub saveAsXlsx()
Dim myPath As String
myPath = Application.ActiveWorkbook.Path
Worksheets(Array(Sheet1.Name, Sheet2.Name, Sheet3.Name)).Copy
ActiveWorkbook.SaveAs Filename:=myPath & "\Myfile.xlsx"
ActiveWorkbook.Close
End Sub

tanglf188

改下扩展名就没有了
ThisWorkbook.SaveCopyAs Filename:="E:\" & Range("J3").Text & ".xlsx"

yuyubiao

莫劝人善 发表于 2023-5-5 15:52
一次上百张表，工作量有些大

先知道一个怎么删，然后用循环啊，肯定不是手动一个个删

wengjl

tanglf188 发表于 2023-5-5 16:37
改下扩展名就没有了
ThisWorkbook.SaveCopyAs Filename:="E:\" & Range("J3").Text & ".xlsx"

楼主说的是低版本的，即 .xls 的那一类，宏是会跟着走的。高版本的 .xlsm  变成 .xlsx 宏自动清除了

wengjl

莫劝人善 发表于 2023-5-5 15:52
一次上百张表，工作量有些大

工作量是让VBA完成的，只是你在电脑稍多等几秒的时间而已