VBA实现从一个EXCEL工作簿到另一个EXCEL工作簿得复制

leiyu871015 · 发表于 2019-1-21 22:52

各位大侠，谁帮忙给写下这个代码，
我想在“控制文件.XLSM"中实现按钮，按下后，"数据提取.xls"中的A2-A30区域数据，复制到"AD.xlsx"中。（关键得是”数据提取.xls“中的数据，按钮每次点击之前是不一样得，所以，复制到AD.xlsx文件中的数据是累计的，每次点击按钮都从AD.xlsx文件中的A列非空单元格的下一行开始粘贴，依次累计下去。。。。。，粘帖后，用代码清理剪切板，关闭”数据提取.xls“文件。）

lsc900707 · 发表于 2019-1-22 08:59

“按钮每次点击之前是不一样得" 什么意思？

leiyu871015 · 发表于 2019-1-22 20:24

谢谢大虾回帖，每次点击不一样就是，因为"数据提取.xls"里面的数据是变化的，第一次点击复制可能这个表里面只有10行数据，下次可能复制这个表的数据就是20行了。

leiyu871015 · 发表于 2019-1-23 21:17

各位大侠可能问题讲述的有繁琐，
我想在“控制文件.XLSM"中创建一个按钮，，按下后，"数据提取.xls"中的A2-A30区域数据，会复制到"AD.xlsx"中。每次点击按钮，"数据提取.xls"中的A2-A30区域数据，会再次复制到”AD.XLSX“中，并且是累计到上次复制数据的下一行。依次累计下去。。。。。，粘帖后，用代码清理剪切板，关闭”数据提取.xls“文件。

mofangquan · 发表于 2019-1-23 21:33

如果到明天都没人帮你做我再动手吧，要睡觉了

leiyu871015 · 发表于 2019-1-23 22:15

Sub test()
Application.ScreenUpdating = False
Set wb = Workbooks.Open("E:\CAD\CAD-学习文件\CAD_TEST\放样点数据\数据提取.xls")
Set zb = Workbooks.Open("E:\CAD\CAD-学习文件\CAD_TEST\放样点数据\BA.xlsX")
wb.Sheets("Summary").Range("A2:C30").Copy zb.Sheets("Sheet1").Range("a" & [a65536].End(xlUp).Row + 1)

wb.Close False
Application.ScreenUpdating = True
End Sub
这个代码只能复制，不能再次点击时，在上次复制的数据的下一行继续累计复制，这个怎么修改

leiyu871015 · 发表于 2019-1-24 17:54

谢谢5楼大侠热心回帖，等你回复

leiyu871015 · 发表于 2019-1-24 17:56

mofangquan 发表于 2019-1-23 21:33
如果到明天都没人帮你做我再动手吧，要睡觉了

先谢过大侠的回帖

mofangquan · 发表于 2019-1-24 18:39

本帖最后由 mofangquan 于 2019-1-24 18:46 编辑

你上面发的代码已经差不多达到你的要求了，能写出代码的不知道为什么会犯低级错误没保存就关闭文件了当然接不上

leiyu871015 · 发表于 2019-1-24 22:07

mofangquan 发表于 2019-1-24 18:39
你上面发的代码已经差不多达到你的要求了，能写出代码的不知道为什么会犯低级错误没保存就关闭文件了当然接 ...

哈哈哈，多谢指点。这个VBA用的不精，这个顺序问题没考虑周全。再次感谢大虾。。。。问题解决。。。

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

[求助] VBA实现从一个EXCEL工作簿到另一个EXCEL工作簿得复制