VBA代码无法调用子过程，提示xlApp未定义的问题求助

问题根源 #

1. 变量作用域错误：xlApp和wb是Main过程的局部变量，WhichOne过程无法直接访问，导致"xlApp未定义"报错。
2. xlApp未初始化：Main中仅将xlApp设为Nothing，未创建新的Excel应用实例就调用WhichOne，后续调用xlApp.Workbooks.Open必然失败。
3. 文件路径错误：xFile = Dir(xStrPath)仅提取文件名，用该值调用Open会在当前工作目录查找文件，而非用户选择的文件路径。
4. SendKeys目标窗口未指定：拆分Sub后，SendKeys默认发送到当前激活窗口，可能无法作用于目标工作簿的VBE环境。

修复后的代码 #

Option Explicit
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Const slp As Long = 1000 ' 将Variant改为Long，匹配Sleep参数类型

' 声明模块级变量，让所有Sub可访问
Dim xlApp As Application
Dim wb As Workbook

Sub Main()
    Dim mywb As Workbook: Set mywb = ThisWorkbook
    
    ' 初始化新的Excel应用实例
    Set xlApp = New Application
    Set wb = Nothing
    
    Call WhichOne
    Call Unprotect
End Sub

Sub WhichOne()
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    
    Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Choisir un fichier"
    
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    
    If xStrPath = "" Then Exit Sub
    
    ' 使用完整路径打开工作簿，避免路径错误
    Set wb = xlApp.Workbooks.Open(xStrPath)
    xlApp.Visible = True
    ' 激活目标工作簿，确保后续操作指向正确窗口
    wb.Activate
End Sub

Sub Unprotect()
    ' 切换到目标应用的VBE窗口，确保SendKeys作用对象正确
    xlApp.VBE.MainWindow.SetFocus
    
    With xlApp ' 针对目标Excel应用发送按键，而非当前默认应用
        .SendKeys "%{F11}", True
        Sleep slp
        .SendKeys "^r", True
        Sleep slp
        .SendKeys "~", True
        Sleep slp
        .SendKeys "792432700", True
        Sleep slp
        .SendKeys "~", True
        Sleep slp
    End With
End Sub

关键修改说明 #

• 将xlApp和wb改为模块级变量，解决跨过程访问的问题。
• 在Main中初始化xlApp = New Application，创建独立的Excel应用实例。
• 打开工作簿时使用完整路径xStrPath，避免因路径缺失导致的文件找不到问题。
• 在Unprotect中先激活目标应用的VBE窗口，并指定按键发送目标为xlApp，确保SendKeys作用于正确的操作环境。

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