双击Excel模板时如何获取原模板的实际路径？

两种可靠实现方法 #

方法1：利用Excel内置属性获取原模板路径 #

在Workbook_Open()事件中直接调用AttachedTemplate属性，就能拿到原模板的实际路径，无需依赖副本的保存状态：

Dim originalTemplatePath As String
originalTemplatePath = ThisWorkbook.AttachedTemplate.Path

• 该方法仅适用于从本地模板新建的工作簿，AttachedTemplate会直接指向原模板文件，即使副本未保存也能返回正确路径。

方法2：通过Windows API提取命令行中的模板路径 #

如果遇到AttachedTemplate失效的特殊场景（比如在线模板），可以调用Windows API读取启动参数里的模板路径：

Private Declare PtrSafe Function GetCommandLine Lib "kernel32" Alias "GetCommandLineW" () As LongPtr
Private Declare PtrSafe Function lstrlenW Lib "kernel32" (ByVal lpString As LongPtr) As Long
Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Function GetOriginalTemplatePath() As String
    Dim cmdLinePtr As LongPtr, cmdLineLen As Long
    Dim cmdLine As String, parts() As String
    Dim i As Integer
    
    cmdLinePtr = GetCommandLine()
    cmdLineLen = lstrlenW(cmdLinePtr)
    cmdLine = Space$(cmdLineLen)
    CopyMemory ByVal cmdLine, ByVal cmdLinePtr, cmdLineLen * 2
    
    parts = Split(cmdLine, """")
    For i = LBound(parts) To UBound(parts)
        If LCase(Right(parts(i), 4)) = ".xltx" Or LCase(Right(parts(i), 4)) = ".xltm" Then
            GetOriginalTemplatePath = parts(i)
            Exit Function
        End If
    Next i
End Function

• 使用时直接调用GetOriginalTemplatePath()，即可获取原模板的完整路径。

后续流程优化 #

拿到原模板路径后，按以下步骤执行即可：

1. 在Workbook_Open()事件中调用上述方法获取路径，完成命名区域提取和赛事工作簿创建。
2. 用户表单执行完毕关闭后，立即触发保存提示：

MsgBox "赛事工作簿已创建完成，请立即保存文件。", vbInformation + vbOKOnly
ThisWorkbook.SaveAs

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