testexceltotxt.script

来自「pas脚本编译,编译写好的脚本,运用了fastscript控件」· SCRIPT 代码 · 共 24 行

var
    Excel:Variant;
    f,t:tstringlist;
    s,str:string;
    icount,i,j:integer;
Begin
      str:='E:\软件\Code\PasEdit\jk.xls';
      Excel := CreateOleObject('Excel.Application');
      Excel.Visible := false;
      Excel.WorkBooks.Open(str);
      icount:=Excel.ActiveSheet.UsedRange.Rows.Count;
 f:=tstringlist.create;
 for i:=0 to icount-1 do
 begin
 s:=inttostr(j)+#9+vartostr(Excel.cells[i+1,1])+#9+vartostr(Excel.cells[i+1,2])+#9+vartostr(Excel.cells[i+1,3])+#9+vartostr(Excel.cells[i+1,4])
        +#9+vartostr(Excel.cells[i+1,5])+#9+vartostr(Excel.cells[i+1,6])+#9+vartostr(Excel.cells[i+1,7])+#9+vartostr(Excel.cells[i+1,8])
        +#9+vartostr(Excel.cells[i+1,9])+#9+vartostr(Excel.cells[i+1,10]);
     f.add(s);
     inc(j);
 end;
  f.SaveToFile('c:\temp\tastcop2y.txt');
  showmessage('success!');
End.