readexcel.script

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

var Excel:Variant;
s:tstringlist;
str:string;
i,icount:integer;
BEGIN
      str:='E:\软件\Code\PasEdit\jk.xls';
      s:=tstringlist.create;
      Excel := CreateOleObject('Excel.Application');
      Excel.Visible := false;
      Excel.WorkBooks.Open(str);
      icount:=Excel.ActiveSheet.UsedRange.Rows.Count;
      for i:=1 to icount do                         
       begin
         s.add(vartostr(Excel.cells[i,1])
         +#9+vartostr(Excel.cells[i,2])
         +#9+vartostr(Excel.cells[i,3])
         +#9+vartostr(Excel.cells[i,4])
         +#9+vartostr(Excel.cells[i,5])
         +#9+vartostr(Excel.cells[i,6])
         +#9+vartostr(Excel.cells[i,7])
         +#9+vartostr(Excel.cells[i,8])
         +#9+vartostr(Excel.cells[i,9])
         +#9+vartostr(Excel.cells[i,10])
         +#9+vartostr(Excel.cells[i,11])
         +#9+vartostr(Excel.cells[i,12])
         +#9+vartostr(Excel.cells[i,13])
         +#9+vartostr(Excel.cells[i,14])
         +#9+vartostr(Excel.cells[i,15])
         +#9+vartostr(Excel.cells[i,16])
         +#9+vartostr(Excel.cells[i,17])
         +#9+vartostr(Excel.cells[i,18])
         +#9+vartostr(Excel.cells[i,19]));
       end;
      s.SaveToFile(ExtractFilePath(application.ExeName)+'\ls.txt');
      Excel.quit;
      str:='c:\ls.txt';
msgbox(ExtractFilePath(application.ExeName)+'导出成功!',0);      
END.