如何在Vba中使用标题打开Excel中的嵌入对象？

Question

尝试在带有标题的excel文件中打开嵌入对象，能够打开带有名称的文件：任何人都可以帮助如何使用标题或动态打开

Worksheets(SheetName).Activate
Set o = Worksheets(SheetName).OLEObjects("object 3")
o.Verb xlVerbOpen
MsgBox "Attachmene open"

注意：对象会在excel文件中连续添加，如何动态查找对象以打开标题？

Answer 1

Excel中的嵌入对象是Shape。在ActiveSheet中添加两个嵌入式工作簿并尝试以下代码：

Public Sub TestMe()

    Dim obj As Object

    For Each obj In ActiveSheet.Shapes
        Debug.Print obj.Application.Caption
    Next obj

End Sub

然后尝试更改代码，只需一个简单的条件，打开obj，如果标题是预期的：

If obj.Application.Caption = "someCaption" Then OpenTheWorkbook(obj)

最后写一些检查以确保它跳过一些可能的错误。

Answer 2

我使用以下动词命令通过Excel打开嵌入的WORD文档。

Set o = .OLEObjects("Object 1")
  o.Verb xlVerbOpen

“对象1”是嵌入对象的默认名称，因此可以根据需要进行更改。