Delphi 读取 Excel
前言
从Delphi中打开Excel表格并读取其中行列数据值,到最后在关闭Excel
注意:若没有及时关闭Excel时,会导致打开的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