工作簿之间复制数据

小维子 · 发表于 2023-2-20 23:26

把Workbook2的数据复制到Workbook1,运行后不提示错误，但也没有实现复制粘贴。还尝试过激活表后用cells().resize().copy和.paste的组合，以数组存储复制内容并复制到Workbook1等方法，要么有“运行时错误1004：应用程序定义或对象定义错误”、“运行时错误438：对象不支持该属性或方法”等提示；或者能运行，但都没有实现复制粘贴。之前试过range方法参数为常量的复制粘贴，可以实现，但参数中有变量的代码一直没写对。
请问各位高手，如何实现工作簿之间数据的复制呢？以下是调试代码，附件是调试文件，红色代码如何写才能实现复制粘贴功能呢？参数有变量的代码如何写？谢谢！

<blockquote>Sub CopySpcDataFrOthWb()

复制代码

mmwwdd · 发表于 2023-2-21 04:30

mmwwdd · 发表于 2023-2-21 04:32

没那么复杂，就是把全部数据复制过来吧

zxsea_7426 · 发表于 2023-2-21 07:28

ykcbf1100 · 发表于 2023-2-21 09:21

楼主整复杂了，其实也简单。

小维子 · 发表于 2023-2-21 09:23

mmwwdd 发表于 2023-2-21 04:30

谢谢，需要选出符合条件的数据复制粘贴

小维子 · 发表于 2023-2-21 09:24

4楼正解，谢谢

小维子 · 发表于 2023-2-21 09:29

ykcbf1100 发表于 2023-2-21 09:21
楼主整复杂了，其实也简单。

谢谢，需要筛选符合条件的数据复制粘贴

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

[求助] 工作簿之间复制数据