2

我正在使用带有 Excel 的 OleAutomation := CreateOleObject('Excel.Application'); 使用Excel.Replace和Excel.SaveAs功能。这些功能在我的问题中是必不可少的，我不能忽略它们。另一方面，我必须使用没有 OnCloseEvent的OleVariant类型。现在我的问题开始了：

首先是一个小概述：

**procedure OpenExcel begins**

Excel := CreateOleObject('Excel.Application'); 
//Excel opens a template and replaces placeholders 

**procedure OpenExcel end**;

现在 Excel 已打开，所有占位符都已替换。在此程序之后，客户可以更改他的表格，纠正错误，...... 他想要关闭 Excel 或保存工作簿。

我的问题从这里开始：我想抓住客户关闭 Excel的那一刻。如果他的文档被保存，在 OleObject 被销毁之前，所有数据（路径或颜色之类的字符串和对象中的 id 之类的整数）都将提交给另一个名为 ELO（文档存档）的程序。但是 OleObjects 无法识别关闭或其他任何东西。

有解决此问题的解决方法吗？也许将对象链接到 OleObject 或进程本身以确定客户端何时关闭 Excel？

我查找了 \Ocx\Servers\excel200.pas 是否提供了一种方法，但我没有找到任何东西。我的同事建议我查看 office 文件夹并搜索 excel .tlb 文件，但它不存在。

如果上述问题无法解决

如果这不可能，有谁知道我如何将Excel.Replace和Excel.SaveAs与具有 OnClose 事件的对象一起使用？

我当前的替换代码如下：

//for all sheets in the workbook
for iSheet := 1 to Excel.Worksheets.Count do
begin

  //activate the sheet
  Excel.Worksheets[iSheet].Activate;

  // this will be..
  sWhat := %First String%;  
  //..replaced by..
  sReplacement := %Second String%;

  // warnings off (override message or if excel didn't find a sWhat)
  Excel.Application.DisplayAlerts := False;

  Excel.Cells.Replace(
    What          := sWhat,
    Replacement   := sReplacement,
    LookAt        := xlWhole,
    SearchOrder   := xlByRows,
    MatchCase     := False,
    SearchFormat  := False,
    ReplaceFormat := False
  );

  //warnings on
  Excel.Application.DisplayAlerts := True;
end;

SaveAs 方法类似。它只是发送一个命令，excel 本身可以像Excel.Cells.Replace一样处理。

我希望对我的问题的描述足够清楚，我的英语没有我想要的那么好..

提前致谢！

4

1 回答 1

0

我只是想告诉你，我没有用后期绑定解决这个问题，而是用早期绑定解决了这个问题。

对于遇到相同问题的每个人，这里有一个可能的解决方案：

uses excel97, excel2000 //order is important
..
var
  ExcelApp : TExcelApplication;
  ExcelWb: _WorkBook;
  ExcelSt: _WorkSheet;
  iLCID: Integer;

打开 Excel，加载文件，激活工作表并连接到 OnWorkbookBeforeClose 方法

  // open excel
  iLCID := GetUserDefaultLCID;

  // create and connect excelapplication
  ExcelApp := TExcelApplication.Create(self);
  ExcelApp.Connect;

  // load file
  ExcelWb := ExcelApp.Workbooks.Open(
    ExtractFilePath(ParamStr(0))+'test.xlsx',
    emptyParam, emptyParam, emptyParam, emptyParam,
    emptyParam, emptyParam, emptyParam, emptyParam,
    emptyParam, emptyParam, emptyParam, emptyParam,
    iLCID
  );

  // Visible - off
  ExcelApp.Application.Visible[0] := false;

  // Starts excel on the first sheet
  ExcelSt := ExcelWb.Sheets[1] as _WorkSheet;
  ExcelSt.Activate(iLCID);

  // Visible - on
  ExcelApp.Application.Visible[0] := true;

  // Connect to the closemethod
  ExcelApp.OnWorkbookBeforeClose := WorkbookBeforeClose;

替换一些东西

var
  sWhat, sReplacement : String;
  iSheets : Integer;
begin

  // basic data
  sWhat := **STRING 1**;
  sReplacement := **STRING 2**;

  // Warnings off (Overridewarning)
  ExcelApp.Application.DisplayAlerts[iLCID] := False;

  // Replace for all sheets in a workbook
  for iSheets := 1 to ExcelApp.Application.Sheets.Get_Count do
  begin
    ExcelSt := ExcelWb.Sheets[iSheets] as _WorkSheet;
    ExcelSt.Activate(iLCID);

    ExcelApp.Application.ActiveWorkbook.Application.Cells.Replace(
      {What} sWhat,
      {Replacement} sReplacement,
      {LookAt} xlWhole,
      {SearchOrder} xlByRows,
      {MatchCase} False,
      {MatchByte} False
      );

   end;

  // warnings on
  ExcelApp.Application.DisplayAlerts[iLCID] := True;

保存您的工作

var
  oFileName, oFileFormat : OleVariant;
begin

  {
  Value = Constant in excel (Description)
  ------------------------------------------------------------------------------
  50   = xlExcel12 (Excel Binary Workbook 2007+ with or without macros, xlsb)
  51   = xlOpenXMLWorkbook (without macros Excel 2007+, xlsx)
  52   = xlOpenXMLWorkbookMacroEnabled (with or without macros Excel 2007+, xlsm)
  56   = xlExcel8 (97-2003 Format in Excel 2007-2010, xls)
         !!! in 2003 = xlNormal !!! 
  ------------------------------------------------------------------------------
  }

  oFileName   := 'Filename';
  oFileFormat := 50;
  iLCID       := GetUserDefaultLCID;

  ExcelApp.Application.ActiveWorkbook.SaveAs(
    {Filename} oFileName,
    {FileFormat} oFileFormat,
    {Password} emptyParam,
    {WriteResPassword} emptyParam,
    {ReadOnlyRecommended} false,
    {CreateBackup} false,
    {AccessMode} 0,
    {ConflictResolution} false,
    {AddToMru} false,
    {TextCodepage} false,
    {TextVisualLayout} false,
    {LCID} iLCID
    );

之前关闭方法

 procedure WorkbookBeforeClose(Sender: TObject;
   var Wb, Cancel: OleVariant);
 var
   oTrue :OleVariant;
 begin

   ExcelApp.Application.Visible[0] := false;

   //Here comes your stuff when the user wants to quit excel

   oTrue := true;
   Cancel := oTrue;

   ExcelApp.Quit;
 end;

我希望这会帮助一些遇到类似问题的人:)

于 2012-11-13T13:00:13.590 回答