[分享]多个工作薄数据汇总到一个工作表中！

wb0000 · 发表于 2006-8-6 10:42

谢谢，踏破铁鞋无觅初得来全不费功夫！

呵呵，正在找这个，谢谢你Long_III

wb0000 · 发表于 2006-8-6 10:43

请教，如何改“明细”名称为1，2，3，………………

谢谢！

billboy · 发表于 2006-9-2 08:33

谢谢！！非常需要！

完美主义者 · 发表于 2006-11-5 23:28

谢谢.学习学习再学习!如何在复制时同时把文本型数据转换成数值

jymao · 发表于 2007-1-15 08:43

可权可以

maydbl · 发表于 2007-2-14 11:41

感谢楼主！我用了“2.另外一种汇总，汇总当前目录下的所有excel表的第一个工作表的内容到一个新表中。”很好！

但如果每个工作表都有相同的表头，合并时，只需一个表头的情况该怎样解决？谢谢！（按您在50楼的办法，我打不开耶！汗！）

seajohn · 发表于 2007-2-24 17:10

abc = True
        abc = fsa.FileExists(f & "大客户台帐\" & Cj(2) & "-" & Cj(1) & ".xls")
        If abc = True Then
            fsa.Deletefile f & "大客户台帐\" & Cj(2) & "-" & Cj(1) & ".xls"
        End If

    Sheets(Array("大客户档案")).Copy
    ActiveWorkbook.SaveAs Filename:=f & "大客户台帐\" & Cj(2) & "-" & Cj(1), FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close

以上是我以前编写的其中一段，是生成文件后，如果存在，要把它先删除再重新建立，请高手解决以下问题：

当文件存在，不要删除，而是将先生成的文件与老文件内容合并，即保存在老的文件中，文件格式是一样的，只是内容不一样？

谢谢高手来指点！！！

shengshizi · 发表于 2007-2-25 23:23

我看了，学了，也用到了

谢谢龙兄的无私奉献！~

maydbl · 发表于 2007-3-22 21:38

QUOTE:

以下是引用Long_III在2005-11-3 8:38:00的发言：

sht.Range(sht.Cells(2, 1), sht.Cells(a, b)).Copy Chjs.Cells(m, 2)

这句里的2表示第二行，到a行，你的标题是3行的行，这里就改为4，最开始的m = 2，也要改为4

这里是复制标题的sht.Range(sht.Cells(1, 1), sht.Cells(1, b)).Copy Chjs.Cells(1, 2)，改为1～3行

我是菜鸟!急需使用这个程序,请教我怎样改(从那个语句插入或增加).谢谢啦!

fy518 · 发表于 2007-8-17 23:14

没太看明白！

我想要做的工作很简单只是把一个表中所有的SHEET里的内容复制到一个新表的SHEET里

（所有的SHEET格式相同）

请赐教

		自动登录	找回密码
密码			免费注册

[分享]多个工作薄数据汇总到一个工作表中！

可以!