VBA如何用控件把当前页的内容自动保存到目标文件夹中?

Sub a()
Dim time
Dim wb As Workbook
Dim db As Workbook
time = Now()
time = Replace(time, ":", "")
Set db = ThisWorkbook
Set wb = Workbooks.Add

db.Activate
db.ActiveSheet.Copy before:=wb.Sheets(1)
wb.SaveAs Filename:=ThisWorkbook.Path & "\" & time & ".xls"
wb.Close
db.Activate
MsgBox "已经保存在目录下" & time & ".xls"
End Sub
路径有需要的自己改下追问

他说缺少end sub 加上也说缺少 还有路径改哪一个？

追答

wb.SaveAs Filename:=ThisWorkbook.Path & "\" & time & ".xls"
这句的=后面可以改成你需要的具体路径，我写的是按照原文件的路径+时间存成xls的
你说的 少 end sub 不可能吧，我又试过了

追问

我把Private Sub CommandButton1_Click()去掉以后 点击控件没反应 加上后就显示缺少 end sub

追答

哦 你要指定到按钮上
把以上代码黏贴到新模块内 不动原有代码
再在页面上拉一个button 再选定指定宏 若是代码没变 即选a即可

追问

运行时错误1004
应用程序定义或对象定义错误

本回答被提问者采纳