excel 根据单元格内容触发打开内嵌的对象

发布网友发布时间：2024-10-17 03:05

共2个回答

热心网友时间：2024-10-17 05:14

=========================================================================

插入Excel对象后，文件内容就存在这个Excel中了，所以不存在路径的问题。但我们需要知道这两个表对象在Excel里面的名称是什么，可用以下代码获得：

'先添加两个button按钮。

Private Sub CommandButton1_Click()
Dim i As Integer
For Each Shape In Shapes
i = i + 1
Cells(i, 1).Value = Shape.Name
Next
End Sub

假设得出来子表1的对象名是 “Object 1”，子表2的对象名是“Object 2”，继续添加以下代码：

Private Sub CommandButton2_Click()
If Cells(1, 7).Value = "子表1" Then
ActiveSheet.Shapes("Object 1").Select
Selection.Verb Verb:=xlPrimary
ElseIf Cells(1, 7).Value = "子表2" Then
ActiveSheet.Shapes("Object 2").Select
Selection.Verb Verb:=xlPrimary
End If
End Sub

热心网友时间：2024-10-17 05:14

点住单元格，按右键—超链接—选择要使用的EXCEL文件。之后你只要点那个单元格，马上就跳到连接的那个文件了。

热心网友时间：2024-10-17 05:14

点住单元格，按右键—超链接—选择要使用的EXCEL文件。之后你只要点那个单元格，马上就跳到连接的那个文件了。