这个地方刚刚拷贝错了
begin
  ADOQuery1.Parameters.ParamByName('name').Value:= trim(Excelapp.WorkSheets[1].Cells[i,1].value);
  ADOQuery1.Parameters.ParamByName('idcard').Value:= trim(Excelapp.WorkSheets[1].Cells[i,2].value);
  ADOQuery1.Parameters.ParamByName('tel').Value:= trim(Excelapp.WorkSheets[1].Cells[i,3].value);
  ADOQuery1.Parameters.ParamByName('address').Value:= trim(Excelapp.WorkSheets[1].Cells[i,4].value);
  ADOQuery1.execsql;