VBA当前宏工作簿另存不带宏的文件

rkrkrk123

如何能把一个打开的带宏的文件，另存为一个不带宏的不同Excel文件，另存的文件自动保存关闭？并删除按钮。





这是我的代码，有问题：

Sub lingcun()
Dim path As String, k As String

path = "C:\Users\****\Desktop\test"

k = ThisWorkbook.Name

ActiveWorkbook.SaveAs Filename:= _
      path & k & ".xlsx", FileFormat:= _
     xlOpenXMLWorkbook, CreateBackup:=False


End Sub

3190496160

path = "C:\Users\****\Desktop\test"
是你真实的文件夹路径？？？
****是一个文件夹名称？？

rkrkrk123

3190496160 发表于 2021-6-17 12:00
path = "C:%users\****\Desktop\test"
是你真实的文件夹路径？？？
****是一个文件夹名称？？

"C:\Users\****\Desktop\test"，是路径，****不是真实名字，我只是用*替换了实际用户名

3190496160

rkrkrk123 发表于 2021-6-17 12:23
"C:%users\****\Desktop\test"，是路径，****不是真实名字，我只是用*替换了实际用户名

文件路径中是不能使用模糊路径的，必须是确定的完整路径，；另外，这句
path = "C:\Users\****\Desktop\test"
修改为
path = "C:\Users\****\Desktop\test\"

rkrkrk123

3190496160 发表于 2021-6-17 12:36
文件路径中是不能使用模糊路径的，必须是确定的完整路径，；另外，这句
path = "C:%users\****\Desktop\ ...

这样能存在过去，但是生成的文件时.xlsm.xlsx  , 格式不对，而且里面还包含宏；
应该是后面的语句哪里不对；

3190496160

老兄，没有附件，没有人愿意一直陪你玩儿的，

rkrkrk123

3190496160 发表于 2021-6-17 15:59
老兄，没有附件，没有人愿意一直陪你玩儿的，

我已经弄好了，谢谢你一直的回复。
谢谢。