导入 也可以这样,网上应该有很多例子。
var
pExcel: Variant;
///////
pExcel := CreateOleObject('Excel.Application');
pExcel.WorkBooks.open('c:\aa.xls');
pExcel.worksheets[1].activate;
RowCount := pExcel.ActiveSheet.UsedRange.Rows.count;
ColumnCount := pExcel.ActiveSheet.UsedRange.Columns.count;
for I := 1 to RowCount do
begin
for J := 1 to ColumnCount do
begin
tmpCellVal := pExcel.ActiveSheet.Cells[I,J].Text;
end
end