VBA代码实现工作簿在新实例打开的有效性及验证方法咨询

当前代码的问题 #

你创建了NewExcel新Excel实例，但With NewExcel块内的操作并未关联到这个新实例：

• 调用Workbooks.Open时未指定所属实例，默认会在运行这段代码的原Excel实例中打开工作簿
• Application.WindowState指向的是原实例的窗口，而非新创建的NewExcel实例
• 路径写法错误：\\C:\是无效格式，应改为C:\
• 新创建的Excel实例默认处于隐藏状态，你可能无法直接看到它

修正后的代码 #

Sub AQUAS()
    Dim bookPath As String
    Dim bookWb As Workbook
    Dim Result As VbMsgBoxResult
    Dim NewExcel As Excel.Application ' 直接声明为Excel.Application更严谨
    
    ' 修正路径格式
    bookPath = "C:\FLUXO CAIXA HINDY - 118.xlsm"
    
    ' 检查文件是否存在
    If Dir(bookPath) = "" Then
        MsgBox "未找到指定工作簿", vbExclamation
        Exit Sub
    End If
    
    ' 创建新Excel实例并设置可见
    Set NewExcel = New Excel.Application
    NewExcel.Visible = True ' 必须设置可见，否则新实例会在后台运行
    
    ' 检查文件是否被占用
    If IsWorkBookOpen(bookPath) Then
        Result = MsgBox("文件正在使用，是否以只读模式打开？", vbYesNo + vbInformation, "提示")
        If Result = vbYes Then
            ' 明确使用新实例打开工作簿
            Set bookWb = NewExcel.Workbooks.Open(bookPath, ReadOnly:=True, IgnoreReadOnlyRecommended:=True)
            NewExcel.WindowState = xlMaximized ' 新实例窗口最大化
        Else
            NewExcel.Quit ' 用户取消时关闭空的新实例，避免内存占用
            Set NewExcel = Nothing
            Exit Sub
        End If
    Else
        ' 正常打开工作簿到新实例
        Set bookWb = NewExcel.Workbooks.Open(bookPath, ReadOnly:=True)
        NewExcel.WindowState = xlMaximized
    End If
    
    ' 释放对象，避免内存泄漏
    Set bookWb = Nothing
    Set NewExcel = Nothing
End Sub

' 补充文件占用检查函数（若你未定义该函数）
Function IsWorkBookOpen(FileName As String) As Boolean
    Dim ff As Long, ErrNo As Long
    On Error Resume Next
    ff = FreeFile()
    Open FileName For Input Lock Read As #ff
    Close ff
    ErrNo = Err
    On Error GoTo 0
    IsWorkBookOpen = (ErrNo <> 0)
End Function

验证是否在新实例中打开的方法 #

• 任务管理器查看进程：打开任务管理器→详细信息，查看EXCEL.EXE的进程数量，运行代码后新增一个进程则说明是新实例
• 窗口独立验证：右键任务栏，会看到两个独立的Excel窗口，分别对应原实例和新实例
• VBA句柄对比：在新打开的工作簿中按Alt+F11，运行以下代码，弹出的句柄和原实例的句柄不同则为独立实例：

  Sub CheckInstanceHandle()
      MsgBox "当前Excel实例句柄：" & Application.Hwnd
  End Sub
  

• 进程ID对比：在原实例和新实例中分别运行以下代码，输出的进程ID不同即为独立实例：

  Sub GetProcessID()
      MsgBox "当前Excel进程ID：" & CreateObject("WScript.Shell").Exec("tasklist /fi ""imagename eq EXCEL.EXE"" /v /fo csv").StdOut.ReadAll
  End Sub
  

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