当前位置：文江博客话题详情

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

发布于 2024-10-18 12:59:11 字数 70 浏览 3 评论 0原文

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

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

我只土不豪 2024-10-25 12:59:11

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

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

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

可以运行多个 Excel 实例，并且每个实例可能打开多个工作簿，但是get对象只会返回一个实例。如果您知道所需文件的名称，那就容易多了，因为您可以使用上面的第一个版本。

This can get a lot more complicated depending on how sure you need to be, and whether it is for personal or public use:

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

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

It is possible to have more than one instance of Excel running and each instance may have more than one workbook open, but get object will only return one instance. If you know the name of the file you want, it is a lot easier, because you can use the first version above.

回复收藏 0 原文

三生殊途 2024-10-25 12:59:11

如果您知道应用程序将打开，并且它将是第一个（如果唯一）打开的实例，请使用以下代码。在 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

If you know the application will be open and it’ll be the first (if only) instance open, using the following code. In Word, you’ll need to add Excel 12 reference (Tools| References, Microsoft Excel 12.0 Object Library).

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

回复收藏 0 原文

~没有更多了~