如何将工作簿1中的sheet1中的数据导入到工作簿2中sheet2中？

spring789 · 发表于 2013-12-9 16:30

大牛们，问题如标题：

如何将工作簿1中的sheet1中的数据导入到工作簿2中sheet2中？

谢谢。

zangriwu · 发表于 2013-12-9 16:38

一般是CTRL+C和CTRL +V选择性粘贴搞定，或者移动复制工作表到工作簿2中。

spring789 · 发表于 2013-12-9 16:39

用VBA代码表示，谢谢

★爱德华％ · 发表于 2013-12-9 21:15

spring789 发表于 2013-12-9 16:39
用VBA代码表示，谢谢

1# sub 数据调用 ()
2# sheets("sheet1").range("a1:iz65536").copy sheets("sheet2").cells(1,1)
3# end sub

spring789 · 发表于 2013-12-10 09:03

★爱德华％发表于 2013-12-9 21:15
1# sub 数据调用 ()
2# sheets("sheet1").range("a1:iz65536").copy sheets("sheet2").cells(1,1)
3# e ...

谢谢，您这边是同一个工作簿中的不同的sheet之间的数据调用。

工作簿之间的数据调用，怎么弄？

ren1982521 · 发表于 2013-12-10 12:05

你给个列子，最好是你的实际要用的表，写上要求，好对症下药，

spring789 · 发表于 2013-12-11 08:27

本帖最后由 spring789 于 2013-12-11 08:31 编辑

ren1982521 发表于 2013-12-10 12:05
你给个列子，最好是你的实际要用的表，写上要求，好对症下药，

如何将data1中的sheet1中的数据完全复制到 data2中的sheet2中？

谢谢。

★爱德华％ · 发表于 2013-12-11 18:55

spring789 发表于 2013-12-10 09:03
谢谢，您这边是同一个工作簿中的不同的sheet之间的数据调用。

工作簿之间的数据调用，怎么弄？

Sub 数据调用()
CreateObject("C:\Documents and Settings\Administrator\桌面\A.xlsx").Sheets("sheet1").Range("a1:F100").Copy Sheets("sheet3").Cells(1, 1)

End Sub

红色部分为你要调用的另外数据表地址

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