在 Word VBA 中获取打开的 Excel 工作簿的文件名答案

【问题标题】：Get the filename of open Excel workbook in Word VBA在 Word VBA 中获取打开的 Excel 工作簿的文件名
【发布时间】：2015-02-25 08:43:06
【问题描述】：

有谁知道如何使用 Word VBA 获取打开的 Excel 单词本的文件名，以便我可以将一些信息复制到我的 Word 文档中？

【问题讨论】：

标签： vba ms-word

【解决方案1】：

这可能会变得更加复杂，具体取决于您需要的确定程度，以及是供个人使用还是公共使用：

Set objWithName = GetObject("C:\docs\testx.xls") 
Set objClassOnly = GetObject("", "Excel.Application")

Debug.Print objWithName.Name 
Debug.Print objClassOnly.Name

可以运行多个 Excel 实例，每个实例可能打开多个工作簿，但获取对象只会返回一个实例。如果你知道你想要的文件名，那就容易多了，因为你可以使用上面的第一个版本。

【讨论】：

【解决方案2】：

如果您知道应用程序将打开并且它将是第一个（如果仅）打开的实例，请使用以下代码。在 Word 中，您需要添加 Excel 12 参考（工具|参考、Microsoft Excel 12.0 对象库）。

Sub test()
    Dim objClassOnly As Excel.Application
    Set objClassOnly = GetObject(, "Excel.Application")
    Debug.Print objClassOnly.Name
    Debug.Print objClassOnly.ActiveWorkbook.Name
End Sub

【讨论】：