VB 文件复制粘贴

INaga2018 · 发表于 2019-5-31 08:13

各位老师，有2个工作表：1.xls与2.xls，两个表不在同一目录下，2.xls已打开，如何不打开1.xls将sheet1的数据复制到2.xls的sheet1？

2Denny19 · 发表于 2019-5-31 09:35

用 GetObject，详细查看附件。

INaga2018 · 发表于 2019-5-31 10:35

2Denny19 发表于 2019-5-31 09:35
用 GetObject，详细查看附件。

Sub xx()
p1 = ActiveWorkbook.Path & "\A"
With GetObject(p1 & "\1.xls")
.Sheets(1).UsedRange.Copy Workbooks("2.xls").Sheets(1).Range("A1")
.Close False
End With

p2 = ActiveWorkbook.Path & "\A"
With GetObject(p2 & "\1.xls")
.Sheets(1).UsedRange.Copy Workbooks("2.xls").Sheets(2).Range("A1")
.Close False
End With

End Sub

做成重复的为什么没效果呢，第二段结果出来是空白的？

小马爱会计 · 发表于 2019-5-31 11:17

一般最好放在同一目录下，这样子代码写的简单点

INaga2018 · 发表于 2019-5-31 11:39

小马爱会计发表于 2019-5-31 11:17
一般最好放在同一目录下，这样子代码写的简单点

你看，代码是一样的，第二段代码只是更改了存放的位置，但是结果是空白，这个是什么原因，怎么修改呢

INaga2018 · 发表于 2019-5-31 11:45

INaga2018 发表于 2019-5-31 11:39
你看，代码是一样的，第二段代码只是更改了存放的位置，但是结果是空白，这个是什么原因，怎么修改呢

是不是获取的对象没有释放呢

2Denny19 · 发表于 2019-5-31 14:07

路径不对吧？你的2.xls的工作簿的路径在哪里的，我这段代码的意思是把2.xls当前目录+\A目录的1.xls文件复制到2.xls。

INaga2018 · 发表于 2019-5-31 15:33

2Denny19 发表于 2019-5-31 14:07
路径不对吧？你的2.xls的工作簿的路径在哪里的，我这段代码的意思是把2.xls当前目录+\A目录的1.xls文件复制 ...

代码做了改动，第二段代码是复制后更改了存放的表名。

同一段sub（）中允许这样的用法吗，两个相同的getobject 和with

2Denny19 · 发表于 2019-5-31 15:40

本帖最后由 2Denny19 于 2019-5-31 15:47 编辑

INaga2018 发表于 2019-5-31 15:33
代码做了改动，第二段代码是复制后更改了存放的表名。

同一段sub（）中允许这样的用法吗，两个相同的g ...

可以，只要区分路径和表名就可以了。

INaga2018 · 发表于 2019-5-31 16:35

2Denny19 发表于 2019-5-31 15:40
可以，只要区分路径和表名就可以了。

感谢你！
不知用vba实现数据透视表有示例代码吗

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

VB 文件复制粘贴

评分