学习批量新建工作簿的问题

iaskmore

1. Sub ShtAdd()
   
2.     MsgBox "下面将根据C列的班级名新建不同的工作表。"
   
3.     Dim i As Integer, sht As Worksheet
   
4.     i = 2                                  '第一条记录的行号为2
   
5.     Set sht = Worksheets("成绩表")
   
6.     Do While sht.Cells(i, "C") <> ""       '定义循环条件
   
7.         Worksheets.Add after:=Worksheets(Worksheets.Count)      '在所有工作表后插入新工作表
   
8.         ActiveSheet.Name = sht.Cells(i, "C").Value             '更改工作表的标签名称
   
9.         i = i + 1                         '行号增加1
   
10.     Loop
    
11. End Sub

复制代码

上面的代码是书上关于如何批量新建带制定名称工作簿的代码。
如何将《成绩表》中的A1:G1的标题栏 复制到每个批量产生的工作簿去呢？
琢磨了半天也没想出个好办法。请大家帮忙看看？
呵呵

iaskmore

sample.rar (35.21 KB, 下载次数: 15)

2013-2-20 15:07 上传

点击文件名下载附件

大家帮忙给看看。
呵呵谢谢了

iaskmore

谁能给解答一下啊？
盼高手给予帮助

hehex

iaskmore 发表于 2013-2-21 17:32
谁能给解答一下啊？
盼高手给予帮助

看了半天不知道你想问啥，是俺语文太差了？
第一个貌似是分割出工作薄之后，如何复制表头，可是二楼的示例文件里一大堆过程中已经包括了复制表头但没复制内容的程序？
是俺的智商太低还是你的表达能力让人捉急?

iaskmore

非常抱歉，可能我表述的不是很清楚。
上面的代码仅仅能实现按照C列名称批量新建表，新建表以C列里的班级名称命名。
但是，如何把原表格《成绩单》中的表头（A1：G1）也复制给每一个新建的表呢？
附件里给的是想要的效果。
希望能有人帮到我。
多谢

hehex

iaskmore 发表于 2013-2-22 19:38
非常抱歉，可能我表述的不是很清楚。
上面的代码仅仅能实现按照C列名称批量新建表，新建表以C列里的班级名 ...

完全在你的原有程序上做了修改。顺应书上原例子的思路没有进行任何优化。
现在点击成绩单中的名称分类按钮会逐项判断是否存在该班的成绩表，如果已经存在就跳过开始复制数据，如果不存在就生成该表，在生成的同时将表头复制过去。
还有你原来的分类程序是错的，把你原有的程序你自己执行一遍，看看分班表上结果是怎么样的？对应的结果全是错的，给你做了彻底修正。

具体参考附件吧

iaskmore

sht.Cells(j, "c").Offset(, -2).Resize(1, 7).Copy rng 这句话能不能给解释一下？
多谢了

hehex

iaskmore 发表于 2013-2-23 21:42
sht.Cells(j, "c").Offset(, -2).Resize(1, 7).Copy rng 这句话能不能给解释一下？
多谢了

sht.Cells(j, "c").Resize(1, 7).Copy rng  这个是你原来程序的语句，造成了新表格对位的错误。
首先Resize 这个方法是指把Cells(j,"c") 这个单元格，就是j 行c 列的单元格（地址C J) 按一行，7列扩展的对象引用，等于是从c 列开始向右引用7列。这明显错位了，应该从A 列开始。
其实简单的改的话就是 sht.Cells(j, "a").Resize(1, 7).Copy rng ，我顺手用的offset 方法就是当前行C 列的单元格左移两列的单元格，就是A 列的。

你再多看看书吧，resize, offset 这些单元格引用的方法是必须掌握的基础方法。

iaskmore

hehex 发表于 2013-2-24 00:59
sht.Cells(j, "c").Resize(1, 7).Copy rng  这个是你原来程序的语句，造成了新表格对位的错误。
首先Res ...

thanks a lot.