excel文件上传

看你的标题以为你要上传整个Excel文件
但看你的内容应该是要读取Excel中的内容到Delphi中

uses ComObj;
var Excel : variant;
i, j: Integer;
str_temp :string;
begin
.......
.......
Try
Excel := CreateOLEObject('Excel.Application');
Except
Application.MessageBox('没有发现Excel!', pchar(Application.Title), MB_OK + mb_ICONERROR);
exit;
End;
Excel.WorkBooks.open(你要读取的Excel文件);
....
....
str_temp:= Excel.Cells[i,j].Value;
.......
.......
end;