如何使用Excel VBA实现编辑.bat/.vbs文件的功能

方案1：调用系统原生「编辑」动作（完全匹配右键编辑效果，推荐） #

这个方案通过调用Windows Shell的edit动作实现，和用户手动右键点击文件选择「编辑」的行为完全一致，会自动调用系统关联的脚本编辑程序（记事本/Notepad++等都支持），不需要硬编码编辑器路径。

步骤1：声明API #

将以下代码放在VBA模块的顶部：

#If VBA7 Then
    ' 适配64位Office
    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
    ' 适配32位Office
    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：调用编辑方法 #

在用户选中文件后的逻辑中调用以下方法即可：

Sub OpenScriptForEdit(ByVal filePath As String)
    Const SW_SHOWNORMAL As Long = 1
    #If VBA7 Then
        Dim result As LongPtr
    #Else
        Dim result As Long
    #End If
    
    ' 传入edit动作，对应右键编辑选项
    result = ShellExecute(0, "edit", filePath, vbNullString, vbNullString, SW_SHOWNORMAL)
    
    ' 异常处理：返回值小于等于32代表调用失败
    If result <= 32 Then
        MsgBox "文件打开失败，请检查文件路径是否有效。", vbExclamation
    End If
End Sub

方案2：强制用记事本打开（简单快捷） #

如果你不需要适配用户自定义的编辑器，只想固定用记事本打开，可以直接调用Shell方法，不需要声明API：

Sub OpenWithNotepad(ByVal filePath As String)
    ' 路径用双引号包裹，兼容带空格的路径
    Shell "notepad.exe """ & filePath & """", vbNormalFocus
End Sub

注意事项 #

• 传入的文件路径需要是绝对路径，避免相对路径找不到文件的问题
• 如果是批量打开多个文件，循环调用上述方法即可

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