[已解决]VBA中返回对象的父对象

可爱的小胖猪

大家帮我看看

Sub 工作表工作簿()
MsgBox Workbooks("工作表工作簿的VBA示例").Parent
End Sub

运行的时候为什么报错，

最佳答案

月排行榜 / 总排行榜

爱疯

2014-3-31 10:32

Sub 工作表工作簿()
    Dim wk As Workbooks
   
    '返回一个工作簿对象
    Set wk = ActiveWorkbook.Parent
   
    '返回父对象的描述：WPS V6 API Object
    Debug.Print wk.Description
End Sub

我觉得如果简写成1楼那样，wps就认为没指定正确的属性。
试了excel2010，1楼是可以的。
两者确实有别

跳转到最佳答案楼层

冠军欧洲2010

Sub 工作表工作簿()
MsgBox Workbooks("工作表工作簿的VBA示例.xlsm").Parent
End Sub

可爱的小胖猪

还是报错

显示

运行时错误 ‘438’
对象不支持该属性或方法

冠军欧洲2010

Sub 工作表工作簿()
MsgBox Workbooks("工作表工作簿的VBA示例.xls").Parent
End Sub
呵呵，以为你用的零七呢。

可爱的小胖猪

没有用，我试过，而且我文件保存的格式就是xlsm
我用的是WPS

爱疯

Sub 工作表工作簿()
    Dim wk As Workbooks
   
    '返回一个工作簿对象
    Set wk = ActiveWorkbook.Parent
   
    '返回父对象的描述：WPS V6 API Object
    Debug.Print wk.Description
End Sub

我觉得如果简写成1楼那样，wps就认为没指定正确的属性。
试了excel2010，1楼是可以的。
两者确实有别