excel vb代码编写

在EXCEL中录制一个宏，并指定快捷键（例如Ctrl+g），修改该宏的VBA模块代码如下：

1、声明段：

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
Const SW_SHOWNORMAL = 1

2、代码段（宏名不需要更改，只需要粘贴过程内的代码）

Sub Macro1()
'
' Macro1 Macro
'
' 快捷键: Ctrl+g
'
    Const FILE_PATH = "D:\001-1\"
    Const FILE_EXT = ".jpg"
    
    Dim page As String
    Dim filename As String
    Dim Ret As Long
    
    page = Trim(InputBox("请输入图片编码：", "输入", 1))
    If Len(page) > 0 Then
       filename = FILE_PATH & page & FILE_EXT
       If Dir(filename) = "" Then
          MsgBox "指定的文件" & filename & "不存在！"
       Else
          Ret = ShellExecute(0, "open", filename, vbNullString, Environ("windir"), SW_SHOWNORMAL)
       End If
    End If
    
End Sub