用VBA复制工作表到新工作簿中

cellolose · 发表于 2013-1-30 23:00

本帖最后由 cellolose 于 2013-1-30 23:03 编辑

下载.rar (144.17 KB, 下载次数: 130)
把工作簿《在Excel中玩转邮件合并》中的工作表《表格》，用VBA复制到新工作簿中。
要求
1只复制原工作表中的数值，不复制原工作表的公式、函数和链接。
2新工作簿的文件名为“型号”的值。并且复制的工作表重命名为“序列号”的值。
3最好能实现批量复制。

压缩包中021518R.xls为我要的结果

zengxp · 发表于 2013-1-31 14:15

看看是要这样么

cellolose · 发表于 2013-1-31 19:59

本帖最后由 cellolose 于 2013-1-31 20:05 编辑

zengxp 发表于 2013-1-31 14:15
看看是要这样么

谢谢帮助！
不过只完成了要求2。

可能是我没描述清楚

要求
1：“只复制原工作表中的数值，不复制原工作表的公式、函数和链接。”
相当于选择性复制中的只复制数值，不包括公式链接。
不然的话，新生成的工作簿中，就会包含原工作簿中的链接。

3：批量的复制
否则，只能生成一条记录的表格

另外，如果已有同名的工作簿，我希望达到的效果是复制新的工作表到同名的工作簿中，而不是替换。

那么该怎么修改代码呢？

zengxp · 发表于 2013-1-31 22:26

cellolose 发表于 2013-1-31 19:59
谢谢帮助！
不过只完成了要求2。

不明白你的意思，如果仅是选择性粘贴，图片是无法复制过去的，而且经过赋值的处理已经没有公式；
批量的复制指的又是什么呢，你要怎么批量，批量生成同样的么，还是要怎么样？

"已有同名的工作簿"--是在哪里已有呢，我不能写代码去查找你一下你电脑中所有的盘是有那个工作薄，而且已有工作薄里的内容要保留哪些，复制来的数值要粘贴到哪里呢？这些恐怕你说清楚没人能够帮得了吧

cellolose · 发表于 2013-1-31 23:00

zengxp 发表于 2013-1-31 22:26
不明白你的意思，如果仅是选择性粘贴，图片是无法复制过去的，而且经过赋值的处理已经没有公式；
批量的 ...

先说替换的问题吧
如果再次执行程序的话
第一次生成的工作簿将会被替换掉
而不是复制一个新的工作表到新生成的工作簿中

cellolose · 发表于 2013-1-31 23:03

本帖最后由 cellolose 于 2013-2-1 01:53 编辑

zengxp 发表于 2013-1-31 22:26
不明白你的意思，如果仅是选择性粘贴，图片是无法复制过去的，而且经过赋值的处理已经没有公式；
批量的 ...

[A1:G3] = [A1:G3].Value '只复制数据，不复制公式

公式的问题好像加条代码解决了

zengxp · 发表于 2013-1-31 23:27

cellolose 发表于 2013-1-31 23:03
[A1:E100] = [A1:E100].Value '只复制数据，不复制公式

a.Value = a.Value

公式变为数值的代码在这里，已经有了
      If a.HasFormula Then
         a.NumberFormatLocal = "@"
         a.Value = a.Value
      End If

zengxp · 发表于 2013-1-31 23:28

cellolose 发表于 2013-1-31 23:00
先说替换的问题吧
如果再次执行程序的话
第一次生成的工作簿将会被替换掉

所以要你说清楚，出现重名工作薄要这么处理。。。。

cellolose · 发表于 2013-1-31 23:38

zengxp 发表于 2013-1-31 23:28
所以要你说清楚，出现重名工作薄要这么处理。。。。

if出现重名工作簿的
then把新工作表复制到重名工作簿中

cellolose · 发表于 2013-2-1 02:51

谢谢zengxp一直以来的帮助。{:soso_e121:}

现在上传的这个附件实现了批量生成！

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

[求助] 用VBA复制工作表到新工作簿中

评分

浏览过的版块