使用 VBA 获取打开的工作簿的名称和路径

Question

我只是想问一下我如何获得使用 VBA 实际打开的 Workbook 的 name 和 path？

我在下面的 sn-p 中尝试过，但一直收到编译器错误。

我的文档类型是.docm。

我做错了什么？

我的代码sn-p：

Sub TestFileOpened()
Dim strPath As String, strPathAndName As String

    strPath = Application.ThisWorkbook.Path
    strPathAndName = strPath & Application.ThisWorkbook.Name
    MsgBox strPathAndName 

    ' Test to see if the file is open.
    If IsFileOpen(strPathAndName) Then ....

Answer 1

显然，您正在尝试使用 Word 中的一些 Excel 代码，所以首先您需要使用 Excel 应用程序：

Dim oExcel as Excel.Application
Dim wB as Excel.WorkBook
Dim strPath As String
Dim strPathAndName As String


On Error Resume Next
Set oExcel = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
    Set oExcel = CreateObject("Excel.Application")
End If
On Error GoTo 0


Set wB = oExcel.Workbooks(1)
strPath = wB.Path
strPathAndName = strPath & "\" & wB.Name
MsgBox strPathAndName 

' Test to see if the file is open.
If IsFileOpen(strPathAndName) Then ....

Answer 2

假设您想要打开的 word 文档的位置，请尝试以下操作：

Sub TestFileOpened()
Dim strPath As String, strPathAndName As String

    strPath = ThisDocument.Path
    strPathAndName = strPath & "\" & ThisDocument.Name
    MsgBox strPathAndName 

    ' Test to see if the file is open.
    If IsFileOpen(strPathAndName) Then ....

（注意不要忘记在文件路径和名称之间添加反斜杠）