使用 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了解更多详细信息。

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

Calling existing excel file using OLE - delphi

delphi

ole