Workbook.Name属性无法返回SQL生成的.xltm模板导出Excel文件名问题

核心原因 #

这个问题既不是.xltm模板本身，也不是域用户账户直接导致的，主要由以下场景引发：

• SQL生成的文件可能在独立的Excel实例中打开，而你的代码仅遍历当前VBA所在Excel实例的Application.Workbooks集合；
• 文件可能处于加载未完成状态，代码执行时还未被加入Workbooks集合；
• 生成的文件可能处于受保护视图/沙箱环境，当前Excel实例无法访问该工作簿对象。

解决方法 #

1. 遍历系统中所有Excel实例

通过GetObject枚举所有运行的Excel进程，覆盖跨实例的工作簿：

Dim xlApp As Object
Dim wb As Object
Dim WB_Array() As String
Dim i As Integer

i = 0
On Error Resume Next
' 获取第一个Excel实例
Set xlApp = GetObject(, "Excel.Application")
Do While Err.Number = 0
    ' 遍历当前实例的所有工作簿
    For Each wb In xlApp.Workbooks
        If wb.Name <> ThisWorkbook.Name Then
            ReDim Preserve WB_Array(i)
            WB_Array(i) = wb.Name
            i = i + 1
        End If
    Next wb
    ' 获取下一个Excel实例
    Set xlApp = GetObject(, "Excel.Application")
Loop
On Error GoTo 0

2. 等待工作簿加载完成

如果是代码执行过早导致未捕获，添加等待逻辑确保文件加载完毕：

Dim targetName As String
targetName = "GeneratedFile" ' 替换为生成文件的名称前缀或全名
' 循环等待工作簿打开
Do While Not IsWorkbookOpen(targetName)
    DoEvents ' 释放CPU资源，避免死循环
Loop

' 辅助函数：检查指定名称的工作簿是否已打开
Function IsWorkbookOpen(wbName As String) As Boolean
    Dim wb As Workbook
    On Error Resume Next
    Set wb = Application.Workbooks(wbName)
    IsWorkbookOpen = Not wb Is Nothing
    On Error GoTo 0
End Function

3. 处理受保护视图限制

如果文件处于受保护视图，临时调整自动化安全设置（注意：此操作有安全风险，使用后建议恢复默认）：

' 临时降低自动化安全级别
Application.AutomationSecurity = msoAutomationSecurityLow
' 执行遍历逻辑
For Each AWB In Application.Workbooks
    If AWB.Name <> ThisWorkbook.Name Then
        ReDim Preserve WB_Array(i)
        WB_Array(i) = AWB.Name
        i = i + 1
    End If
Next AWB
' 恢复默认安全设置
Application.AutomationSecurity = msoAutomationSecurityByUI

4. 直接通过文件路径定位

如果SQL生成文件时能获取到具体路径，直接通过路径获取工作簿对象：

Dim wb As Workbook
Dim targetPath As String
targetPath = "C:\SQL_Output\Generated_File.xltm" ' 替换为实际文件路径

On Error Resume Next
Set wb = GetObject(targetPath)
On Error GoTo 0

If Not wb Is Nothing Then
    ReDim Preserve WB_Array(i)
    WB_Array(i) = wb.Name
    i = i + 1
End If

内容的提问来源于stack exchange，提问作者Sami