[已解决]请教：如何将两个工作不忠的程序结合在一个中

wxqwyl08

我想用vba在一个工作簿中新建立了4个新的工作簿，分别命名为“文件1”—“文件4”，并且我还要在这4个新建立的工作簿中要分别要建立12个工作表，这12个工作表要命名为“1月”—“12月”，这样，我的这个程序应该如何来写。

因为我是初学者，希望帮忙给解决一下，谢谢。在线等候。

最佳答案

月排行榜 / 总排行榜

liuts

2012-2-14 15:00

1. Option Explicit
   
2. Sub liuts()
   
3.     Application.DisplayAlerts = False
   
4.     Application.ScreenUpdating = False
   
5.     Application.SheetsInNewWorkbook = 12
   
6.     Dim wb As Workbook, sh As Worksheet, i%, j%
   
7.     Const k = 4
   
8.     For i = 1 To k
   
9.         Set wb = Workbooks.Add()
   
10.         For j = 1 To 12
    
11.             wb.Sheets(j).Name = j & "月"
    
12.         Next j
    
13.         wb.Close True, ThisWorkbook.Path & "\文件" & i & ".xls"
    
14.     Next i
    
15.     Application.SheetsInNewWorkbook = 3
    
16.     Application.DisplayAlerts = True
    
17.     Application.ScreenUpdating = True
    
18. End Sub
    

复制代码

Book1.rar (7.45 KB, 下载次数: 7)

2012-2-14 15:00 上传

点击文件名下载附件

跳转到最佳答案楼层

liuts

1. Option Explicit
   
2. Sub liuts()
   
3.     Application.DisplayAlerts = False
   
4.     Application.ScreenUpdating = False
   
5.     Application.SheetsInNewWorkbook = 12
   
6.     Dim wb As Workbook, sh As Worksheet, i%, j%
   
7.     Const k = 4
   
8.     For i = 1 To k
   
9.         Set wb = Workbooks.Add()
   
10.         For j = 1 To 12
    
11.             wb.Sheets(j).Name = j & "月"
    
12.         Next j
    
13.         wb.Close True, ThisWorkbook.Path & "\文件" & i & ".xls"
    
14.     Next i
    
15.     Application.SheetsInNewWorkbook = 3
    
16.     Application.DisplayAlerts = True
    
17.     Application.ScreenUpdating = True
    
18. End Sub
    

复制代码

Book1.rar (7.45 KB, 下载次数: 7)

2012-2-14 15:00 上传

点击文件名下载附件

wxqwyl08

liuts 发表于 2012-2-14 15:00

谢谢，能运行出来。