delphi - 使用 OLE 调用现有 Excel 文件 - delphi

Question

我有一个 Excel 文件，其中包含将在其中传递的数据的格式。有人可以帮我如何打开现有的 Excel 文件吗？

var
  myExcel:variant;
begin
  myExcel:=CreateOleObject('Excel.application');
  myExcel.caption:='Summary of Check Issued';
  myExcel.visible:=false;
  myexcel.workbooks.add(1);
end

该语句将创建一个新的 Excel 文件，但我想要的是一个仅打开现有 Excel 文件的语句。

Answer 1

您要查找的确切代码行是:

WorkBook := ExcelFile.WorkBooks.Open('yourfilename.xls');

完整的代码可能如下所示:

var
   ExcelFile : Variant;
   WorkBook : Variant;
   WorkSheet : Variant;

begin

  // Open Excel OLE
  ExcelFile :=  CreateOleObject('Excel.Application');

  // Handle WoorkBook
  if not VarIsNull(ExcelFile) then begin
      WorkBook := ExcelFile.WorkBooks.Open('yourfilename.xls');

      if not VarIsNull(WorkBook) then begin
      // Handle Sheet
          WorkSheet := WorkBook.WorkSheets.Item['yourSheetName'];
      end;

  end; 

引用this article了解更多详细信息。