使用 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。