DELPHI7导入EXCEL问题，大侠们请进来看看

Question

我现在想导入一个EXCEL表到MDB数据库的某个表，这个表和字段要动态创建，导入时，这个EXCEL文件里第一行为字段，第二行为数据，导入到表后，如果我只想要这个表里的某几列数据，我想把这几列数据再插入到另一个表，表字段由我自己创建的，如何实现呢？最好有代码，先谢过了

Answer 1

这样也样，将上图DBGRID里根据要求选出姓名，帐号，身份证号这几列数据插到另一个表，但根据用户自行选择哪几列数据再插到另一个表中

Answer 2

procedure TFormdrdf.BitBtn6Click(Sender: TObject);
var
  tfile: TextFile;
  i,i1: Integer;begin    assignfile(tfile,'d:\newdata.txt');
    rewrite(tfile);
    begin
 
    for   i:=1   to   ADOQuery1.recordcount   do
        begin
     
 writeln(tfile,ADOQuery1.fieldbyname('姓名').AsString + '          ' +  ADOQuery1.fieldbyname('帐号').AsString+ '00000000'+ StringReplace(ADOQuery1.fieldbyname('金额').AsString,'.','',[rfReplaceAll]) +  ADOQuery1.fieldbyname('身份证号').AsString);
          ADOQuery1.next;
        end; 
  end;
    closefile(tfile);
     MessageBox(GetActiveWindow(), '数据处理完毕，已保存到D盘，文件名为:newdata.txt，请点击清空按钮', '导出提醒', MB_OK +
        MB_ICONWARNING);
end;
  上面的问题我自己搞定了，我想再请教一下，在这段导出代码为TXT时，我想在每行前加一个序号，格式为00001，00002 其中00001为第一行，依次类推，我该在哪加上代码才能实现我想要的每行前加序号

Answer 3

你这不都往textfile里头writeln了么……在姓名那块前头加不就行了……