获得Excel2000/XP文档Sheet名称

最新推荐文章于 2022-08-17 18:17:07 发布

wangchinaking

最新推荐文章于 2022-08-17 18:17:07 发布

阅读量1.3k

点赞数

CC 4.0 BY-SA版权

文章标签： excel 文档 delphi string function xp

本文链接：https://blog.youkuaiyun.com/wangchinaking/article/details/1527637

本文介绍了一种通过Delphi编程获取Excel文档中Sheet页名称的方法，并提供了适用于Excel2000的示例代码。根据所使用的Excel版本，可能需要调整代码中的接口函数参数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

以下代码可获得 Excel 2000文档中Sheet页名称, 若您使用的是Excel XP, 则需对接口函数的参数数量作适当修改.

uses

Excel2000; // 若Delphi加载的是Excel 2000控件

ExcelXP; // 若Delphi加载的是ExcelXP控件

// declaration of Conponents needed as below

ExcelConn: TADOConnection;
ExcelApplication1: TExcelApplication;
ExcelWorksheet1: TExcelWorksheet;
ExcelWorkbook1: TExcelWorkbook;

function GetFirstSheetName (FileName: string): string;
begin
  ExcelConn.Close;
  try
    try
      ExcelApplication1.Connect;
      ExcelWorkbook1.ConnectTo (

// 下面接口函数的参数数量因Excel版本不同而不同

        ExcelApplication1.Workbooks.Open (FileName,
          EmptyParam, True, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0));
      ExcelWorksheet1.ConnectTo (ExcelWorkbook1.Sheets[1] as _WorkSheet);
      Result := ExcelWorksheet1.Name;
    except
    end;
  finally

    // 前面语句会打开该文档, 这里必须关闭它
    ExcelWorkbook1.Close;
    ExcelApplication1.Disconnect;
    ExcelConn.Close;
end;
end;