[已解决]工作簿命名

要用就学

将A工作簿第5个到最后一个工作表复制到新建工作簿中，新建的工作簿名称用工作簿最后一个工作表名称，代码怎么写，谢谢！

最佳答案

月排行榜 / 总排行榜

爱疯

2013-7-27 19:10

1. Sub test()
   
2.     Dim n%, i%, j%, arr(), p$, f$
   
3. 
   
4.     n = Sheets.Count
   
5.     If n > 4 Then
   
6.         p = ThisWorkbook.Path & ""
   
7.         f = Sheets(n).Name
   
8.         
   
9.         ReDim arr(1 To n - 4)
   
10.         For i = 5 To n
    
11.             j = j + 1
    
12.             arr(j) = Sheets(i).Name
    
13.         Next i
    
14. 
    
15.         Sheets(arr).Copy
    
16.         Application.DisplayAlerts = False
    
17.         ActiveWorkbook.SaveAs p & f
    
18.         ActiveWorkbook.Close
    
19.     End If
    
20. End Sub

复制代码

A.rar (8.28 KB, 下载次数: 3)

2013-7-27 19:10 上传

点击文件名下载附件

跳转到最佳答案楼层

w2001pf

发个附件看看吧？

爱疯

1. Sub test()
   
2.     Dim n%, i%, j%, arr(), p$, f$
   
3. 
   
4.     n = Sheets.Count
   
5.     If n > 4 Then
   
6.         p = ThisWorkbook.Path & ""
   
7.         f = Sheets(n).Name
   
8.         
   
9.         ReDim arr(1 To n - 4)
   
10.         For i = 5 To n
    
11.             j = j + 1
    
12.             arr(j) = Sheets(i).Name
    
13.         Next i
    
14. 
    
15.         Sheets(arr).Copy
    
16.         Application.DisplayAlerts = False
    
17.         ActiveWorkbook.SaveAs p & f
    
18.         ActiveWorkbook.Close
    
19.     End If
    
20. End Sub

复制代码

A.rar (8.28 KB, 下载次数: 3)

2013-7-27 19:10 上传

点击文件名下载附件

要用就学

爱疯 发表于 2013-7-27 19:10

好长一段时间在反复学，反复低写代码，反复地验证，次次是而非。今天您帮我解决了，非常实用，特别的好，尽管有一些代码不理解，您给我点亮一盏灯，指引了学习的方向，不久在大家帮助下，一定会弄懂地，谢谢了！

爱疯

要用就学 发表于 2013-7-27 20:05
好长一段时间在反复学，反复低写代码，反复地验证，次次是而非。今天您帮我解决了，非常实用，特别的好， ...

我也是从论坛里高手们的指导中学习来的，也还有很多地方不清楚，咱们大家共同学习!