delphi 读取excel

Delphi可以使用comobj单元来读取Excel文件。以下是一个简单的示例代码可以实现这个功能：

uses comobj;

procedure TForm1.btnsendClick(Sender: TObject);
var
list: TStringList;
i, rowcount, colcount, icol, irow: Integer;
ExcelRead: OleVariant;
atime, ablock, achip, apower, aVoltage, aCurrent, aCapacity: string;
begin
ExcelRead := CreateOleObject('Excel.Application');
ExcelRead.WorkBooks.Open('C:\1.xlsx');
ExcelRead.worksheets.Activate;
rowcount := ExcelRead.worksheets.UsedRange.Rows.Count; //获取表格行
colcount := ExcelRead.worksheets.UsedRange.Columns.Count; //获取表格列
try
for irow := 2 to rowcount do
begin
icol := 1;
atime := ExcelRead.Cells[irow, icol].value;
ablock := ExcelRead.Cells[irow, icol+1].value;
achip := ExcelRead.Cells[irow, icol+2].value;
apower := ExcelRead.Cells[irow, icol+3].value;
aVoltage := ExcelRead.Cells[irow, icol+4].value;
aCurrent := ExcelRead.Cells[irow, icol+5].value;
aCapacity := ExcelRead.Cells[irow, icol+6].value;
end;
finally
ExcelRead.WorkBooks.Close;
ExcelRead.quit;
end;
end;

这段代码可以打开指定路径下的Excel文件，并读取第一个工作表中的数据。具体读取的数据包括时间、块、芯片、功率、电压、电流和容量等信息。注意，在使用完Excel对象后，需要关闭和退出Excel程序。如果没有及时关闭Excel，会导致Excel进程还在电脑中运行，这是需要注意的问题。