如何实时导出Excel中DDE写入的动态数据并保留历史记录？

一、Excel内置VBA宏实现实时留存数据 #

利用Excel的单元格变更事件，在DDE数据更新时自动将当前数据复制到历史工作表，无需保存原文件即可留存记录：

1. 打开目标Excel文件，按Alt + F11打开VBA编辑器。
2. 在左侧工程面板中双击要监控的工作表（如Sheet1），打开代码窗口。
3. 粘贴以下代码，根据你的数据范围修改MonitorRange和历史工作表的位置：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 设定需要监控的DDE数据单元格范围
    Dim MonitorRange As Range
    Set MonitorRange = Me.Range("A1:C5") ' 替换为你的实际数据区域
    
    ' 仅处理监控范围内的变更
    If Not Intersect(Target, MonitorRange) Is Nothing Then
        ' 定位历史工作表的下一行空白行
        Dim NextRow As Long
        NextRow = ThisWorkbook.Sheets("History").Cells(Rows.Count, 1).End(xlUp).Row + 1
        
        ' 复制当前数据到历史行，并追加时间戳
        ThisWorkbook.Sheets("History").Cells(NextRow, 1).Resize(1, MonitorRange.Columns.Count).Value = MonitorRange.Value
        ThisWorkbook.Sheets("History").Cells(NextRow, MonitorRange.Columns.Count + 1).Value = Now()
    End If
End Sub

4. 将文件另存为.xlsm格式（启用宏的工作簿），并在Excel中启用宏功能。

说明：DDE批量更新单元格时，该事件只会触发一次，可完整捕获当前数据状态；若需每秒强制记录（即使数据未变更），可添加Application.OnTime定时触发的宏。

二、外部脚本读取未保存的Excel数据 #

通过Windows COM对象直接访问Excel进程，绕过“未保存文件无法读取”的限制，用PowerShell实现每秒记录：

# 连接到当前运行的Excel实例
$excel = [Runtime.Interopservices.Marshal]::GetActiveObject('Excel.Application')
$workbook = $excel.ActiveWorkbook
$worksheet = $workbook.Sheets("Sheet1")

# 循环每秒读取并记录数据
while ($true) {
    $dataRange = $worksheet.Range("A1:C5").Value2
    $timestamp = Get-Date -Format "yyyy-MM-dd HH:mm:ss"
    
    # 将数据格式化为字符串并写入日志文件
    $logLine = "$timestamp | $($dataRange | ForEach-Object { $_ -join ',' })"
    $logLine | Out-File -FilePath "C:\dde_data_log.txt" -Append
    
    Start-Sleep -Seconds 1
}

注意：运行前确保Excel处于打开状态；停止脚本后需手动释放COM对象：$excel.Quit(); [Runtime.Interopservices.Marshal]::ReleaseComObject($excel)

三、直接捕获DDE数据流 #

如果第三方应用支持，可跳过Excel，直接监听DDE通信获取数据：

• 使用Windows系统自带的DDE调试工具（如ddeml.exe）捕获数据流。
• 编写简单的DDE客户端程序（用VB/C#），直接接收第三方发送的DDE数据，实时写入日志或数据库。

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