Excel RTD多实例场景下跨工作簿动态数据引用方案咨询

针对你用excel.exe /x启动两个独立Excel实例（Pricing和Order Placement工作簿）、无法用常规跨簿公式共享数据的问题，以下是几个可行的实现方案：

方案1：VBA + Windows API 直接跨实例访问 #

通过Windows API定位目标Excel实例，再获取其Application对象，直接读取目标单元格数据，实时性最高。

实现步骤： #

1. 在Order Placement工作簿的VBA模块中添加以下代码（需在VBA编辑器中勾选「工具」→「引用」→「Microsoft Shell Controls And Automation」）：

Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
    (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
Private Declare PtrSafe Function AccessibleObjectFromWindow Lib "oleacc" _
    (ByVal hWnd As LongPtr, ByVal dwId As Long, riid As GUID, ppvObject As Object) As Long

Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

Public Function GetRemoteExcelInstance(ByVal windowTitle As String) As Excel.Application
    Dim hWnd As LongPtr
    Dim guid As GUID
    Dim app As Object
    
    ' 定义IID_IDispatch的GUID
    With guid
        .Data1 = &H20400
        .Data2 = &H0
        .Data3 = &H0
        .Data4(0) = &HC0
        .Data4(1) = &H0
        .Data4(2) = &H0
        .Data4(3) = &H0
        .Data4(4) = &H0
        .Data4(5) = &H0
        .Data4(6) = &H0
        .Data4(7) = &H46
    End With
    
    ' 找到目标Excel窗口
    hWnd = FindWindowEx(0, 0, "XLMAIN", windowTitle)
    If hWnd = 0 Then Exit Function
    
    ' 获取Excel Application对象
    If AccessibleObjectFromWindow(hWnd, &HFFFFFFF0, guid, app) = 0 Then
        Set GetRemoteExcelInstance = app.Application
    End If
End Function

' 读取Pricing工作簿的指定单元格
Public Function GetPricingValue() As Variant
    Dim remoteApp As Excel.Application
    Dim targetWB As Workbook
    
    On Error Resume Next
    Set remoteApp = GetRemoteExcelInstance("Pricing.xlsx - Excel") ' 替换为实际窗口标题
    If remoteApp Is Nothing Then
        GetPricingValue = "实例未找到"
        Exit Function
    End If
    
    Set targetWB = remoteApp.Workbooks("Pricing.xlsx")
    If targetWB Is Nothing Then
        GetPricingValue = "工作簿未打开"
        Exit Function
    End If
    
    GetPricingValue = targetWB.Sheets("Sheet1").Range("A1").Value
    Set remoteApp = Nothing
End Function

2. 在Order Placement工作簿的单元格中输入=GetPricingValue()，即可动态获取目标值；若需要实时刷新，可添加Application.OnTime定时调用刷新逻辑。

优缺点： #

• 优点：实时性强，直接访问数据源，无延迟
• 缺点：依赖Windows API，需处理窗口标题变化、权限问题，32/64位Excel需调整API声明

方案2：临时文件作为中间层 #

通过共享临时文件（如CSV、XLSX）传递数据，实现最简单，无需复杂API。

实现步骤： #

1. 在Pricing工作簿的VBA中添加定时写入代码：

Sub WriteToTempFile()
    Dim tempPath As String
    tempPath = Environ("TEMP") & "\PricingData.csv"
    
    ' 将指定单元格数据写入CSV
    Open tempPath For Output As #1
    Print #1, ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    Close #1
    
    ' 定时重复执行（每1秒刷新一次）
    Application.OnTime Now + TimeValue("00:00:01"), "WriteToTempFile"
End Sub

2. 在Order Placement工作簿的VBA中添加定时读取代码：

Sub ReadFromTempFile()
    Dim tempPath As String
    tempPath = Environ("TEMP") & "\PricingData.csv"
    
    On Error Resume Next
    Open tempPath For Input As #1
    If Err.Number = 0 Then
        Input #1, ThisWorkbook.Sheets("Sheet1").Range("B1").Value
        Close #1
    End If
    
    ' 定时重复执行
    Application.OnTime Now + TimeValue("00:00:01"), "ReadFromTempFile"
End Sub

3. 分别在两个工作簿打开时执行对应的写入/读取子程序。

优缺点： #

• 优点：实现简单，无需依赖API，兼容性好
• 缺点：存在数据延迟，需处理文件锁问题（可改用二进制文件或增加写入重试逻辑）

方案3：内存映射文件（实时性最优） #

通过Windows API创建内存映射文件，让两个Excel实例共享同一块内存区域，适合高频实时数据场景。

实现思路： #

1. 在Pricing工作簿中创建内存映射文件，将实时数据写入内存；
2. 在Order Placement工作簿中打开同一内存映射文件，读取其中的数据；
3. 需使用CreateFileMapping、MapViewOfFile等Windows API实现内存读写。

优缺点： #

• 优点：零延迟，实时同步数据，适合高频更新的市场数据
• 缺点：实现复杂度高，需处理内存读写同步、数据格式转换问题

方案4：使用Excel的「Power Query」定时刷新 #

通过Power Query连接到Pricing工作簿的文件路径，设置定时刷新，无需编写VBA。

实现步骤： #

1. 在Order Placement工作簿中，点击「数据」→「获取数据」→「从文件」→「从Excel工作簿」；
2. 选择Pricing.xlsx文件，导入需要的单元格区域；
3. 点击「数据」→「全部刷新」→「刷新频率」，设置自动刷新间隔。

优缺点： #

• 优点：无需代码，操作简单
• 缺点：刷新间隔最小为1分钟，实时性差，仅适合非高频数据场景

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