大神求助实现点击按钮自动导出当前工作表，并以名称加年月日的形式自动命名

Mapleaf12138

yuangsun 发表于 2018-10-11 14:34
哥们能给我详细点的代码吗？这样我还是不是很懂啊VBA零基础

1. Private Sub CommandButton2_Click()
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     n = TextBox1.Value
   
5.     d = Format(Date, "yyyy年m月d日")
   
6.     Set ws1 = Sheets("使用单位周检计划")
   
7.     Set wb = Workbooks.Add
   
8.     Set ws2 = wb.Sheets(1)
   
9.     ws1.Copy ws2
   
10.     For Each s In wb.Sheets("使用单位周检计划").Shapes
    
11.         s.Delete
    
12.     Next
    
13.     ws2.SaveAs ThisWorkbook.Path & "" & n & "_" & d
    
14.     wb.Close False
    
15. End Sub

复制代码

Mapleaf12138

ws2.SaveAs ThisWorkbook.Path & "\" & n & "_" & d

这句少了个斜杠，不知道为什么没复制了，自己加上即可

yuangsun

Mapleaf12138 发表于 2018-10-11 15:29
ws2.SaveAs ThisWorkbook.Path & "\" & n & "_" & d

这句少了个斜杠，不知道为什么没复制了，自己加上即 ...

OK 非常完美   非常感谢！