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

提问于 2024-04-28T00:13:21+08:00

浏览次

1

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

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

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

2 回答

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 ，如果 Headers 是预期的：

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

最后写一些检查以确保它跳过一些可能的错误 .
回复于 2024-04-28T00:13:21+08:00
0
我使用以下动词命令通过Excel打开嵌入的WORD文档 .
```
Set o = .OLEObjects("Object 1")
  o.Verb xlVerbOpen
```
“对象1”是嵌入对象的默认名称，因此可以根据需要进行更改 .
回复于 2024-04-28T00:13:21+08:00

相关问题