合并工作簿或工作表

yonhe · 发表于 2017-1-13 16:45

爱疯发表于 2016-12-16 16:03

学习一下!

ycmxkjd · 发表于 2017-4-15 15:43

楼主在2013上有没有调试过？？　　合并工作表正常，合并工作簿时出现如下错误
  If bol Then
            '如果工作表有数据
            If .Cells(UserForm1.TextBox3, 1).CurrentRegion.Count > 1 Then
                  wb2.Sheets(i).Name = .Name　出错提示　
运行时错误 ’9‘
下标越界

qilang521 · 发表于 2018-11-21 09:05

ycmxkjd 发表于 2017-4-15 15:43
楼主在2013上有没有调试过？？　　合并工作表正常，合并工作簿时出现如下错误
If bol Then
...

我的也是同样的错误

hhxq001 · 发表于 2018-12-26 21:23

我的是Excel2007，出现这个错误，怎么解决

szfxing · 发表于 2019-2-18 16:46

qilang521 发表于 2018-11-21 09:05
我的也是同样的错误

alt+F11打开vba代码，修改 '检查6：如果wb2不存在，就创建
原：If wb2 Is Nothing Then Set wb2 = Workbooks.Add: Call createWorksheet(wb1.Sheets.Count)
改：If wb2 Is Nothing Then Set wb2 = Workbooks.Add: Call createWorksheet(wb1.Sheets.Count + 1)

徐淑颖 · 发表于 2019-4-28 13:49

爱疯发表于 2016-12-16 16:03

好久没学习了，近期工作需要操作拆分和合并工作簿；临时抱佛脚了

ddbb2008 · 发表于 2019-4-29 08:45

楼主，我能不能提点建议，合并工作簿的时候，要是能保留原文件格式和文件类型就更好了，那样的话，打印范围及格式合并后都不用重新调整了，，，

pxjxdsj · 发表于 2021-9-21 20:01

学习了，感谢楼主分享，有些还需要自己实际去操作。
再一次感谢了！

hhxq001 · 发表于 2022-1-23 12:11

ycmxkjd 发表于 2017-4-15 15:43
**** 作者被禁止或删除内容自动屏蔽 ****

这个问题解决了吗？我也遇到了

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