各位大神 求助不知道哪里错误显示

ME.李

   各位大神好，下面表格里网友帮我写了一个代码。但是现在显示下标越界，烦请各位大神帮忙处理！想实现的功能是 每天点击一次保存 就自动以昨日的日期在当前工作簿内新建一个SHEET 保存 ，不想每个表都有保存按钮  小弟不胜感激

kuangben8

1. Sub 保存()
   
2.     Dim sht As Worksheet
   
3.     On Error Resume Next
   
4.     Set sht = Worksheets(Format(Date - 1, "yyyymmdd"))
   
5.     If sht Is Nothing Then
   
6.         On Error GoTo 0
   
7.         Err.Clear
   
8.         Sheets("生产车间计划完成情况").Copy After:=Sheets(1)
   
9.         Sheets("生产车间计划完成情况 (2)").Name = Format(Date - 1, "yyyymmdd")
   
10.         ActiveSheet.Shapes.Range(Array("Button 23")).Delete
    
11.     Else
    
12.         MsgBox "您已经保存过该工作表了，请不要重复保存！", vbOKOnly + vbInformation, "友情提示："
    
13.     End If
    
14. End Sub

复制代码

这样 吗？ 完成指标.zip (21.99 KB, 下载次数: 1)

2020-1-9 16:15 上传

点击文件名下载附件

kuhuhu

Private Sub CommandButton1_Click()
ThisWorkbook.SaveAs "C:\OA_Backup.xlsm"
ThisWorkbook.SaveAs "\OA.xlsm"
'ThisWorkbook.SaveAs "C:\OA_Backup_" & (Sheet1.Cells(2, 13)) & ".xlms"
Application.Quit
End Sub

ME.李

kuangben8 发表于 2020-1-9 16:15
这样 吗？

谢谢 就这样的