需要设置TAdoQuery的连接串Connection，将其指向excel文件：‘Provider=Microsoft.ACE.OLEDB.12.0;Data Source=‘ + excelname + ‘;‘ +    ‘Mode=ReadWrite;Extended Properties=Excel 12.0;Persist Security Info=False‘;然后设置sql属性为：select * from [list&];   //此处的list为excel工作表的名称，后面带一个$，且只能读取单工作表，多工作表还没解决

try    with qryexcel do    begin      open;      First;      dqrow := 1;      while not Eof do      begin        if dqrow > 1 then // 从第3行开始正式内容        begin                   sqls := Format(‘ call pro_addOneStudent (‘ +            ‘‘‘%s‘‘,‘‘%s‘‘,‘‘%s‘‘,‘‘%s‘‘ )‘,            [FieldByName(‘StuName‘).AsString, FieldByName(‘Sex‘).AsString,            FieldByName(‘School‘).AsString, FieldByName(‘Grade‘).AsString]);with qry do          begin            qry.close;            qry.SQL.Clear;            qry.SQL.Add(sqls);            log(sqls);            qry.ExecSQL;          end;        end;        dqrow := dqrow + 1;        Next;      end;    end;  except    on e: Exception do    begin      Result := e.Message;      end;  end;

下载并安装AccessDatabaseEngine.exe