如何从VBA向C#发送Excel工作簿以实现WPF实时数据绑定

以下是两种实用方案，涵盖直接COM互操作和进程间通信两种思路，适配不同场景需求：

方案一：通过COM互操作直接获取Excel实例 #

这是最直接的方式，C#通过COM API获取当前活动的Excel实例，VBA只需触发C#程序启动或标记目标工作簿。

1. C# WPF端实现 #

首先在项目中添加Microsoft.Office.Interop.Excel引用（可通过NuGet安装Microsoft.Office.Interop.Excel包），然后编写代码获取Excel实例并读取数据：

using System.Runtime.InteropServices;
using Microsoft.Office.Interop.Excel;
using System.Data;
using System.Windows;

// 在WPF窗口加载时执行
private void Window_Loaded(object sender, RoutedEventArgs e)
{
    try
    {
        // 获取当前活动的Excel应用实例
        Application excelApp = (Application)Marshal.GetActiveObject("Excel.Application");
        // 获取VBA标记的目标工作簿
        Workbook targetWorkbook = null;
        foreach (Workbook wb in excelApp.Workbooks)
        {
            if (wb.CustomDocumentProperties["IsTargetWorkbook"].Value is true)
            {
                targetWorkbook = wb;
                break;
            }
        }
        if (targetWorkbook != null)
        {
            UpdateWpfDataSource(targetWorkbook);
            // 监听Excel工作表变化，实现实时更新
            excelApp.SheetChange += ExcelApp_SheetChange;
        }
    }
    catch (Exception ex)
    {
        MessageBox.Show($"获取Excel实例失败：{ex.Message}");
    }
}

// 更新WPF数据源（适配DataGrid绑定）
private void UpdateWpfDataSource(Workbook workbook)
{
    Worksheet activeSheet = workbook.ActiveSheet;
    Range usedRange = activeSheet.UsedRange;
    DataTable dataTable = new DataTable();

    // 填充表头
    for (int col = 1; col <= usedRange.Columns.Count; col++)
    {
        dataTable.Columns.Add(usedRange.Cells[1, col].Value?.ToString() ?? $"列{col}");
    }

    // 填充行数据
    for (int row = 2; row <= usedRange.Rows.Count; row++)
    {
        DataRow dataRow = dataTable.NewRow();
        for (int col = 1; col <= usedRange.Columns.Count; col++)
        {
            dataRow[col - 1] = usedRange.Cells[row, col].Value ?? DBNull.Value;
        }
        dataTable.Rows.Add(dataRow);
    }

    // 绑定到DataGrid（假设XAML中已定义名为dataGrid的控件）
    dataGrid.ItemsSource = dataTable.DefaultView;
}

// 监听Excel工作表变化事件
private void ExcelApp_SheetChange(object Sh, Range Target)
{
    Workbook workbook = ((Worksheet)Sh).Parent as Workbook;
    UpdateWpfDataSource(workbook);
}

2. VBA端实现 #

编写VBA代码启动WPF应用，并标记当前工作簿以便C#识别：

Sub SendWorkbookToCSharp()
    ' 启动WPF应用程序（替换为你的WPF程序路径）
    Shell "D:\Projects\ExcelWpfSync\bin\Release\ExcelWpfSync.exe", vbNormalFocus
    
    ' 延迟等待程序启动
    Application.Wait Now + TimeValue("00:00:02")
    
    ' 添加自定义属性标记当前工作簿
    On Error Resume Next
    ThisWorkbook.CustomDocumentProperties("IsTargetWorkbook").Delete
    On Error GoTo 0
    ThisWorkbook.CustomDocumentProperties.Add _
        Name:="IsTargetWorkbook", _
        LinkToContent:=False, _
        Type:=msoPropertyTypeBoolean, _
        Value:=True
End Sub

' 可选：工作表数据变化时自动触发同步
Private Sub Worksheet_Change(ByVal Target As Range)
    ' 避免频繁触发，可添加条件判断
    If Target.Cells.Count > 10 Then Exit Sub
    SendWorkbookToCSharp
End Sub

方案二：通过命名管道实现进程间通信（更灵活的实时同步） #

如果需要跨权限或更可靠的进程间通信，命名管道是更好的选择，适合频繁数据同步场景。

1. C# WPF端（命名管道服务器） #

using System.IO.Pipes;
using System.Runtime.InteropServices;
using Microsoft.Office.Interop.Excel;
using System.Data;
using System.Windows;
using System.Threading.Tasks;

private async void StartPipeServer()
{
    while (true)
    {
        using (NamedPipeServerStream pipeServer = new NamedPipeServerStream(
            "ExcelSyncPipe", PipeDirection.InOut, NamedPipeServerStream.MaxAllowedServerInstances))
        {
            await pipeServer.WaitForConnectionAsync();
            try
            {
                using (StreamReader reader = new StreamReader(pipeServer))
                {
                    string workbookName = reader.ReadLine();
                    Application excelApp = (Application)Marshal.GetActiveObject("Excel.Application");
                    Workbook targetWorkbook = excelApp.Workbooks[workbookName];
                    UpdateWpfDataSource(targetWorkbook);
                }
            }
            catch (Exception ex)
            {
                MessageBox.Show($"同步失败：{ex.Message}");
            }
        }
    }
}

// 窗口加载时启动管道服务器
private void Window_Loaded(object sender, RoutedEventArgs e)
{
    _ = Task.Run(StartPipeServer);
}

2. VBA端（命名管道客户端） #

Sub SyncWithWpf()
    Dim pipeClient As Object
    Dim streamWriter As Object
    
    Set pipeClient = CreateObject("System.IO.Pipes.NamedPipeClientStream")
    pipeClient.Initialize "localhost", "ExcelSyncPipe", 1, 0 ' 1=双向通信，0=默认选项
    
    On Error Resume Next
    pipeClient.Connect(5000) ' 5秒超时
    On Error GoTo 0
    
    If pipeClient.IsConnected Then
        Set streamWriter = CreateObject("System.IO.StreamWriter")
        streamWriter.Initialize pipeClient, , , 1024
        streamWriter.WriteLine ThisWorkbook.Name
        streamWriter.Flush
        
        streamWriter.Close
        pipeClient.Close
    Else
        MsgBox "无法连接到WPF应用，请确保程序已运行", vbExclamation
    End If
End Sub

' 工作表变化时自动同步
Private Sub Worksheet_Change(ByVal Target As Range)
    SyncWithWpf
End Sub

关键注意事项 #

• COM对象释放：使用完Excel对象后，务必调用Marshal.ReleaseComObject释放资源，避免内存泄漏：

  Marshal.ReleaseComObject(usedRange);
  Marshal.ReleaseComObject(activeSheet);
  Marshal.ReleaseComObject(targetWorkbook);
  Marshal.ReleaseComObject(excelApp);
  

• 版本兼容：确保Excel Interop版本与本地安装的Excel版本匹配，建议使用NuGet包而非手动引用。
• 权限一致性：如果WPF程序以管理员身份运行，Excel也需以管理员身份启动，否则无法获取实例。
• 实时绑定优化：对于大数据量，避免每次变化都全量刷新，可仅更新修改的单元格数据。

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