Delphi对Excel文件的操作（2）——读取

最新推荐文章于 2025-05-30 09:08:39 发布

原创最新推荐文章于 2025-05-30 09:08:39 发布 · 3.4k 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#Delphi #Excel

Delphi 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一个用于从Excel文件中读取数据的函数实现方法。该函数通过OLE对象操作Excel文件，能够指定读取的Sheet页并返回数据内容及行数。适用于需要批量处理Excel文件的应用场景。

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

//读取excel文件，得到数据v，行数rowcount
//path：文件所在路径
//v：文件内数据
//rowcount:文件最大行数
//sheetindex:读取的文件sheet序号
function ReadFromExcel(path:string;out v:Variant;out rowcount:Integer;sheetindex:Integer=1):Boolean;
var
MsExcel, MsExcelWorkBook, MsExcelWorkSheet: Variant;
begin
Result := true;
try
    MsExcel := CreateOleObject('Excel.Application');
    try
      MsExcelWorkBook := MsExcel.Workbooks.Open (path);    //根据路径打开文件
      try
        MsExcelWorkSheet := MsExcel.Worksheets.Item[sheetindex];    //选择表单
        rowcount := MsExcelWorkSheet.Range['A1'].CurrentRegion.rows.count;   //获取行数
        v := varArrayCreate([1, 1000, 1, 7], varVariant);             //创建一个1000行7列数组用来存储Excel数据
        v := MsExcelWorkSheet.Range['A1:G1000'].Value;      //Excel左上角到右下角的范围
      finally
        MsExcel.WorkBooks.Close;
      end;
    finally
      MsExcel.Quit;
      MsExcel := Unassigned;
    end;
except
    ShowMessage('打开文件失败');
    Result := false;
end;
end;