如何用VBA在Word中创建Excel工作簿（.xlsx）的可点击对象？

问题核心是AddOLEObject的FileName参数不支持通配符，必须传入具体文件路径。以下是针对你场景的解决方案：

1. 获取目标目录下的具体Excel文件名 #

利用Dir函数直接提取目录中唯一的.xlsx文件（你已确认目录仅存在一个该类型文件）：

Dim excelFileName As String
' 遍历目标目录，获取第一个（也是唯一的）xlsx文件名
excelFileName = Dir(filePath & "*.xlsx")

2. 创建可点击的Excel OLE对象 #

将获取到的具体文件名拼接成完整路径，再调用AddOLEObject生成对象：

If excelFileName <> "" Then ' 确保成功找到文件
    ActiveDocument.Tables(1).Rows(Count).Cells(3).Range.InlineShapes.AddOLEObject _
        ClassType:="Excel.Workbook", _
        FileName:=filePath & excelFileName, _
        LinkToFile:=True, _
        DisplayAsIcon:=True ' 可选：显示为Excel图标，提升用户识别度
End If

关键参数说明 #

• LinkToFile:=True：保持OLE对象与原Excel文件的链接，点击时直接打开原文件
• DisplayAsIcon:=True：将嵌入对象显示为Excel图标，替代默认的表格预览，更符合"可点击文件"的预期

内容的提问来源于stack exchange，提问作者Chad O'Donnell