自动化错误

秋之心

在原有电脑可以运行，换台电脑后提示如此错误，请教解决办法、、、

秋之心

朱荣兴 发表于 2016-4-11 08:22
什么都没有，让热怎么帮你呢，

1. Sub 提取()
   
2. Dim WB As Workbook, T As String, ARR, LIE As Integer, HAN As Integer
   
3. T = "Y:\集团总部\营销中心\客服部\13-数据库基础源数据\产品清单.xlsx"
   
4. Set WB = VBA.GetObject(T)
   
5. HAN = WB.Sheets("产品清单").Range("A65536").End(xlUp).Row
   
6. LIE = WB.Sheets("产品清单").Range("A1").End(xlToRight).Column
   
7. WB.Activate
   
8. ARR = Sheets("产品清单").Range(Cells(1, 1), Cells(HAN, LIE))
   
9. ThisWorkbook.Sheets("产品清单").Range("A1").Resize(UBound(ARR), UBound(ARR, 2)) = ARR
   
10. WB.Close False
    
11. CommandBars("cell").Reset
    
12. Y = 1
    
13. End Sub

复制代码

说得也是，这是里面写的，在我的电脑上运行正常（2013Excel版本），在其他电脑（2007Excel）有些可以运行，有些提示自动化错误，错误提示停在 Set WB = VBA.GetObject(T)  此句代码，敬请解惑。

wj2368

秋之心 发表于 2016-4-11 10:58
说得也是，这是里面写的，在我的电脑上运行正常（2013Excel版本），在其他电脑（2007Excel）有些可以运 ...

插件没有了吧了，你在引用-工程里面看看有没有丢失

秋之心

这是我的，看了下那些不能用的电脑，他们的是12.0的，我的是15.0的，不知道是不是这个原因

秋之心

朱荣兴 发表于 2016-4-11 12:22
换一种打开方式试试看，昨天在论坛里面也遇到类似的问题，就是这样解决的，
把这句
Set WB = VBA.GetObje ...

虽然改了这句还是不行，但因为改了这句的错误提示，让我瞬间明白具体错误原因了，
公司建立了一个共享盘，在我电脑上的链接地址是 Y:\集团总部\营销中心\客服部\13-数据库基础源数据 这个，而其他电脑的盘符，有的是 Z:\集团总部\营销中心\客服部\13-数据库基础源数据 这个，
我代码中的地址是固定的，所有出错，
在这谢谢大家的帮助、、、