假设有一个表
我想写一段vba代码让他
这个表另存为
当前文档所在的目录下面
并且保存的格式为.xlsx
第1个回答 推荐于2017-09-14
Sub 宏1()
apath = Application.ActiveWorkbook.Path
aname = Application.ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:=apath & aname & ".xlsx"
End Sub追问
apath = Application.ActiveWorkbook.Path
aname = Application.ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:=apath & aname & ".xlsx"
End Sub追问
错了
我这边测试了没有问题，你能发一个你的样表上来么？
追问 等级不够 不能上传 附件 我看能不能私信给你
私信也不行你能不能说一下 你的 油箱 我发给你
Q
本回答被提问者采纳