Delphi嵌入Excel OLE对象后功能异常，如何通过代码修复？

当通过SetParent将Excel窗口嵌入Delphi窗体控件后，Excel会丢失当前工作簿的上下文关联，导致工作表切换、文件操作（保存/打印）失效，标题栏显示异常。双击单元格能触发Excel内部UI刷新恢复功能，以下是无需手动操作的代码修复方法：

修复步骤及代码示例 #

1. 强制激活工作簿与工作表 #

在设置父窗口后，直接通过OLE对象激活目标工作簿和工作表，替代Select方法：

ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Visible := False; 
workbook := ExcelApp.Workbooks.Open(FileName);

Worksheet := Workbook.WorkSheets[1];
Worksheet.Activate; // 初始激活

// 设置父窗口并显示
Windows.SetParent(fExcelHandle, Panel1.Handle);
ShowWindow(fExcelHandle, SW_SHOW);

// 嵌入后重新激活工作簿和工作表
ExcelApp.ActiveWorkbook.Activate;
Worksheet.Activate;

2. 发送Windows激活消息触发Excel内部刷新 #

通过API发送激活和焦点消息，模拟用户交互触发Excel的上下文同步：

// 需要引用Windows单元
SendMessage(fExcelHandle, WM_ACTIVATE, WA_ACTIVE, 0);
SendMessage(fExcelHandle, WM_SETFOCUS, 0, 0);

3. 强制刷新Excel界面与计算 #

调用Excel的内置刷新方法，确保UI和数据上下文同步：

ExcelApp.ScreenUpdating := True;
ExcelApp.Calculate;

完整修正代码片段 #

ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Visible := False; 
workbook := ExcelApp.Workbooks.Open(FileName);

Worksheet := Workbook.WorkSheets[1];
Worksheet.Activate;

// 获取Excel主窗口句柄（通过ExcelApp.HWND属性直接获取更可靠）
fExcelHandle := ExcelApp.HWND;

Windows.SetParent(fExcelHandle, Panel1.Handle);
ShowWindow(fExcelHandle, SW_SHOW);
// 调整Excel窗口大小适配Panel客户端区域
SetWindowPos(fExcelHandle, 0, 0, 0, Panel1.ClientWidth, Panel1.ClientHeight, SWP_NOZORDER);

// 修复上下文关联
ExcelApp.ActiveWorkbook.Activate;
Worksheet.Activate;
SendMessage(fExcelHandle, WM_ACTIVATE, WA_ACTIVE, 0);
SendMessage(fExcelHandle, WM_SETFOCUS, 0, 0);
ExcelApp.ScreenUpdating := True;
ExcelApp.Calculate;

// 此时再执行工作表操作即可正常工作
Worksheet := Workbook.WorkSheets[1];
Worksheet.Activate; // 无报错

关键说明 #

• 优先使用Activate方法切换工作表，而非Select，前者更直接关联上下文；
• SetParent后必须调整窗口大小，否则可能导致UI显示错位；
• 组合激活消息和Excel内置刷新方法，能完全替代双击单元格的手动操作，恢复所有功能。

内容的提问来源于stack exchange，提问作者Radosław Jerzak