[已解决]大虾们，请教一下能10个动作一键完成吗？

白云无尽9987

10 1.rar (18.33 KB, 下载次数: 12)

2015-6-4 13:26 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2015-6-4 13:33

1. Sub 新建()
   
2.     On Error Resume Next
   
3.     VBA.MkDir ("C:\Users\Administrator\Desktop/xxx")
   
4.     Application.ScreenUpdating = False
   
5.     biao = Range("b1").Value
   
6.     Set sh = ActiveSheet
   
7.     Set wb = Workbooks.Add
   
8.     Sheets("Sheet2").Select
   
9.     ActiveWindow.SelectedSheets.Delete
   
10.     Sheets("Sheet3").Select
    
11.     ActiveWindow.SelectedSheets.Delete
    
12.     Sheets("sheet1").Name = biao
    
13.     wb.Sheets(1).Range("A1:B3") = sh.Range("A2:B4").Value
    
14.     wb.Sheets(1).Range("C1:C3") = sh.Range("D2:D4").Value
    
15.     wb.Sheets(1).UsedRange.RowHeight = 25.8
    
16.     wb.SaveAs "C:\Users\Administrator\Desktop\xxx" & sh.[a1] & ".xlsX"
    
17.     wb.Close
    
18.     Application.ScreenUpdating = True
    
19. End Sub
    
20. 
    
21. Sub 动作()
    
22.     For i = 5 To 1 Step -1
    
23.         [p3] = i
    
24.         Call 新建
    
25.     Next
    
26. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

未经测试。

grf1973

1. Sub 新建()
   
2.     On Error Resume Next
   
3.     VBA.MkDir ("C:\Users\Administrator\Desktop/xxx")
   
4.     Application.ScreenUpdating = False
   
5.     biao = Range("b1").Value
   
6.     Set sh = ActiveSheet
   
7.     Set wb = Workbooks.Add
   
8.     Sheets("Sheet2").Select
   
9.     ActiveWindow.SelectedSheets.Delete
   
10.     Sheets("Sheet3").Select
    
11.     ActiveWindow.SelectedSheets.Delete
    
12.     Sheets("sheet1").Name = biao
    
13.     wb.Sheets(1).Range("A1:B3") = sh.Range("A2:B4").Value
    
14.     wb.Sheets(1).Range("C1:C3") = sh.Range("D2:D4").Value
    
15.     wb.Sheets(1).UsedRange.RowHeight = 25.8
    
16.     wb.SaveAs "C:\Users\Administrator\Desktop\xxx" & sh.[a1] & ".xlsX"
    
17.     wb.Close
    
18.     Application.ScreenUpdating = True
    
19. End Sub
    
20. 
    
21. Sub 动作()
    
22.     For i = 5 To 1 Step -1
    
23.         [p3] = i
    
24.         Call 新建
    
25.     Next
    
26. End Sub
    

复制代码

冥王

1. Sub demo()
   
2.     For i = 1 To 5
   
3.         Range("P3") = 6 - i
   
4.         Call 按钮2_Click  '点击按钮
   
5.     Next
   
6. End Sub

复制代码

白云无尽9987

grf1973 发表于 2015-6-4 13:33

谢谢！只能生成3个EXCEL文件！！

白云无尽9987

冥王 发表于 2015-6-4 13:34

谢谢！只能生成3个EXCEL文件！！