如何通过Excel中的VBA代码触发SmokeTest.cfg配置文件？

你之前用Shell直接调用.cfg文件失败，核心原因是：.cfg不是可执行文件，Shell函数只能直接运行.exe、.bat这类可执行程序，无法直接启动配置文件，需要借助Windows的默认关联程序来打开它。以下是两种可行的解决方案：

方案1：使用ShellExecute API（推荐） #

这个API可以让Windows自动调用对应关联程序打开任意类型文件，兼容性更好。

步骤1：声明API #

在VBA模块的最顶部（所有代码之前）添加以下声明（兼容32位和64位Excel）：

#If VBA7 Then
    Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hwnd As LongPtr, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As LongPtr
#Else
    Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hwnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long
#End If

步骤2：调用API打开.cfg文件 #

添加执行代码，注意替换为正确的文件路径（你之前的C:\Users\Desktop路径错误，必须包含用户名，或者用环境变量动态获取）：

Sub OpenCfgFile()
    Dim cfgPath As String
    ' 用环境变量获取桌面路径，适配所有用户
    cfgPath = Environ("USERPROFILE") & "\Desktop\SmokeTest.cfg"
    
    ' 调用API打开文件，"open"表示打开操作，1表示正常显示窗口
    ShellExecute 0, "open", cfgPath, vbNullString, vbNullString, 1
End Sub

方案2：用Shell调用cmd的start命令 #

通过cmd.exe的start命令间接启动关联程序，适合快速实现：

Sub OpenCfgWithCmd()
    Dim cfgPath As String
    cfgPath = Environ("USERPROFILE") & "\Desktop\SmokeTest.cfg"
    
    ' 注意引号的处理：start后空引号是窗口标题，避免路径含空格时出错
    Shell "cmd /c start """" """ & cfgPath & """", vbHide
End Sub

关键注意点 #

• 路径修正：你之前的C:\Users\Desktop是无效路径，正确格式应为C:\Users\[你的用户名]\Desktop，用Environ("USERPROFILE")可以自动获取当前用户目录，避免手动输入用户名的麻烦。
• 关联程序确认：确保你的系统中.cfg文件已经关联了正确的应用程序（比如记事本、专用配置编辑器），否则Windows无法识别用什么程序打开它。

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