从工作簿1写入数据到工作簿2后，工作簿2被自动隐藏了，请大神改下代码

tudarong

新建文件夹.rar (22.13 KB, 下载次数: 5)

2018-6-25 23:23 上传

点击文件名下载附件

从工作簿1写入数据到工作簿2后，工作簿2被自动隐藏了，请大神改下代码，谢谢！

1. Sub test()
   
2. 
   
3. Dim wb As Object
   
4. Dim m, n As Integer
   
5. 
   
6. Set wb = GetObject(ThisWorkbook.Path & "\工作簿2.xlsx")
   
7. 
   
8. m = wb.Worksheets("sheet1").Range("A65536").End(xlUp).Row
   
9. n = Worksheets("数据").Range("a65536").End(xlUp).Row
   
10. 
    
11. 
    
12. Worksheets("数据").Range("a2:g" & n).Copy
    
13. wb.Worksheets("sheet1").Range("A" & m).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=False
    
14. 
    
15. Application.CutCopyMode = False
    
16. 
    
17. 
    
18. wb.Save
    
19. wb.Close
    
20. 
    
21. End Sub

复制代码

08yj2001

wb.close，被你自己关闭了。没有提需求怎么改

tudarong

08yj2001 发表于 2018-6-26 08:20
wb.close，被你自己关闭了。没有提需求怎么改

追加了这句代码就可以了
跟wb.close 没有关系。

1. Windows("工作簿2.xlsx").Visible = True

复制代码

tudarong

C:\Users\Administrator\Desktop\无标题.png

jiminyanyan

tudarong 发表于 2018-6-26 21:33
追加了这句代码就可以了
跟wb.close 没有关系。

GetObject能不用则不用，隐藏是它的副作用

tudarong

jiminyanyan 发表于 2018-6-26 21:44
GetObject能不用则不用，隐藏是它的副作用

如果不用GetObject函数，有什么其他方法可以实现同样的功能呢？
请指导一下，谢谢！

jiminyanyan

tudarong 发表于 2018-6-26 21:48
如果不用GetObject函数，有什么其他方法可以实现同样的功能呢？
请指导一下，谢谢！

Workbooks.Open
－－－－－－－－－－－－－－－－－－－－－－－－－－
set wb= Workbooks.Open ("D:\信息\员工资料.xls")
wb.sheets(1).cells(1,1)=1
wb.save
wb.close

tudarong

jiminyanyan 发表于 2018-6-26 21:52
Workbooks.Open
－－－－－－－－－－－－－－－－－－－－－－－－－－
set wb= Workbooks.Open ("D:\ ...

刚用Workbooks.Open试验了下，确实也是可行的。
但工作簿2被打开了，并变成了当前活动工作簿，
Set wb = Workbooks.Open(ThisWorkbook.Path & "\工作簿2.xlsx")
位置摆放不合适的时候，就会出现调试错误。

如果工作簿2的数据很大，感觉直接打开会比后台打开还要卡。
个人觉得还是GetObject函数好用些。

1. Sub test2()
   
2. Dim wb As Object
   
3. Dim m, n As Integer
   
4. 
   
5. n = Worksheets("数据").Range("a65536").End(xlUp).Row
   
6. Worksheets("数据").Range("a2:g" & n).Copy
   
7. 
   
8. Set wb = Workbooks.Open(ThisWorkbook.Path & "\工作簿2.xlsx")
   
9. m = wb.Worksheets("sheet1").Range("A65536").End(xlUp).Row
   
10. wb.Worksheets("sheet1").Range("A" & m).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=False
    
11. Application.CutCopyMode = False
    
12. 
    
13. wb.Save
    
14. wb.Close
    
15. 
    
16. End Sub

复制代码

tudarong

GetObject和Workbooks.Open区别.rar (24.1 KB, 下载次数: 4)

2018-6-26 22:33 上传

点击文件名下载附件

追加附件，供参考。
不足之处，请各位前辈指导。