VB6中引用不同用户进程下的ExcelApp对象问题

Windows的用户会话隔离机制会让不同用户启动的进程相互隔离，当前用户的VBA程序无法直接访问其他用户会话中的COM对象（比如Excel.Application）。GetObject和枚举Excel实例的代码仅在当前用户会话内查找，自然找不到特殊用户启动的Excel进程。

方案1：让VBA与目标Excel同属一个用户会话 #

不要单独用特殊用户启动目标Excel，而是用RunAsUser直接启动包含你的VBA代码的宿主程序（比如Excel），这样整个VBA运行环境和目标工作簿都在特殊用户会话内，就能正常操作工作簿：

Sub RunAsUser_Main()
    ' 改为启动包含当前VBA的Excel文件，而非单独的目标工作簿
    Dim ExeCommand As String
    ExeCommand = "C:\Program Files\Microsoft Office\Office16\EXCEL.EXE " & ThisWorkbook.FullName
    RunAsUser "username", "password", "domain", ExeCommand, "C:\Windows"
    
    ' 此时在该会话内的VBA可以直接打开目标工作簿
    Dim MyWorkbook As Workbook
    Set MyWorkbook = Workbooks.Open("\\192.168.88.3\share\public\Workbook.xlsm")
    ' 后续处理逻辑...
End Sub

方案2：不启动Excel进程，直接用数据驱动访问文件 #

通过ADO/OLE DB直接读取或写入目标Excel文件，无需启动Excel进程，绕开会话隔离问题。示例代码：

Sub AccessExcelViaADO()
    Dim conn As Object
    Dim rs As Object
    Dim strConn As String
    
    Set conn = CreateObject("ADODB.Connection")
    ' Excel 2007+ 连接字符串
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
              "Data Source=\\192.168.88.3\share\public\Workbook.xlsm;" & _
              "Extended Properties=""Excel 12.0 Macro;HDR=YES"";"
              
    ' 若需特殊用户身份验证，可在连接字符串中添加（部分场景支持）
    ' strConn = strConn & "User ID=domain\username;Password=password;"
    
    conn.Open strConn
    
    ' 读取数据示例
    Set rs = conn.Execute("SELECT * FROM [Sheet1$]")
    Do While Not rs.EOF
        Debug.Print rs.Fields(0).Value
        rs.MoveNext
    Loop
    
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

注：如果OLE DB驱动需要特殊用户权限，可能需要调用Windows API在当前进程中模拟该用户身份。

方案3：跨会话进程间通信（复杂场景备选） #

如果必须保持跨用户会话的架构，可通过命名管道、共享内存或日志文件实现两个会话间的数据传递：

• 在特殊用户启动的Excel中编写VBA，监听命名管道或定期读取指定文件，接收当前用户进程发送的输入数据并归档。
• 当前用户的VBA程序负责将输入数据写入管道或文件，触发归档操作。
  这种方法实现复杂，仅推荐在方案1和方案2不可行时使用。

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