[已解决]批量建立工作表

fmt

各位大家好！附件里的工作薄需要批建工作表，比如9月有30天就需建30个工作表。每张工作表的名称日期和表里的日期一致，其余内容30张工作表都相同。希望用VBA批量生产，请各位指教!谢谢！

最佳答案

月排行榜 / 总排行榜

爱疯

2011-9-18 13:03

附件4.rar (10.55 KB, 下载次数: 208)

2011-9-18 13:02 上传

点击文件名下载附件
改过来了。

跳转到最佳答案楼层

爱疯

1. 
   
2. Sub 批建工作表()
   
3.     Dim date1, date2
   
4.     Dim s, y, m, d, i, j
   
5.     '求复制份数，也就是下月天数(d)
   
6.     s = Mid(Sheets(1).Range("a1"), 11, 10)
   
7.     date1 = CDate(s)
   
8.     If Month(date1) = 12 Then
   
9.         y = Year(date1) + 1
   
10.         m = 1
    
11.     Else
    
12.         y = Year(date1)
    
13.         m = Month(date1) + 1
    
14.     End If
    
15.     date2 = DateSerial(y, m, Day(date1))
    
16.     d = DateDiff("d", date1, date2)
    
17.     '建表
    
18.     Application.ScreenUpdating = False
    
19.     For i = 1 To d
    
20.         Sheets.Add after:=Sheets(Sheets.Count)
    
21.         Sheets("模板").Cells.CurrentRegion.Copy Destination:=ActiveSheet.Range("A1")
    
22.         s = "喵喵啤酒完成量统计（" & y & "/" & m & "/" & i & "）(张三)"
    
23.         ActiveSheet.Range("A1") = s
    
24.         For j = 1 To 5
    
25.             ActiveSheet.Columns(j).ColumnWidth = Sheets("模板").Columns(j).ColumnWidth
    
26.         Next j
    
27. '        ActiveSheet.Name = "完成量统计" & y & "." & m & "." & i
    
28.         ActiveSheet.Name = i
    
29.     Next i
    
30. End Sub

复制代码

附件3.rar (10.16 KB, 下载次数: 72)

2011-9-18 12:19 上传

点击文件名下载附件

改动1：把原表作为模板。
改动2：新建的表名为日期的天数。

{:041:}

fmt

回复 爱疯 的帖子

爱疯 版主你好，非常感谢你的回复。新建的工作表名能生产为形如：“完成量统计2011.10.25”这样的格式吗？

爱疯

附件4.rar (10.55 KB, 下载次数: 208)

2011-9-18 13:02 上传

点击文件名下载附件
改过来了。

fmt

回复 爱疯 的帖子

谢谢爱疯版主，就是这个效果。相当厉害啊！要好好想你学习！{:361:}

fmt

回复 爱疯 的帖子
还想追问爱疯版主一个问题，如果新建的工作表需要9月的，需要怎么改动呢？谢谢！

爱疯

附件7.rar (10.91 KB, 下载次数: 73)

2011-9-18 18:42 上传

点击文件名下载附件
不好意思，是我的问题，修改之前的错误了。

fmt

非常感谢爱疯版主，非常的完美！呵呵！

jiangjane627

我也拉来学习一下

huangcaiguang

模板批量按月份建表！