Форум программистов [Powered by Invision Power Board]

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleServer, ExcelXP, Excel97, Excel2000, StdCtrls, ComCtrls, ComObj,
  Registry,   CheckLst, ExtCtrls, Mask, Buttons, Grids, Calendar, Menus,
  WordXP, Printers, WinSpool, ActiveX, ShlObj;

type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Path: string;
  HomePath, HomeDrive: string;
implementation
  uses VBIDE97, Math, DateUtils, StrUtils, Types;

var
  XL1: variant;
  SR: TSearchRec;
  FileName, FileName1: string;
  Sheet, Sheet2, Workbook, Workbook2: variant;
  Ole: olevariant;
  i: integer;

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
x, y: integer;
Cell, Value, tmp: string;
Stroke, s1, s2, s3: string;
fname: string;
Reg: TRegistry;
F: TextFile;
begin
Reg:= TRegistry.Create;
Reg.RootKey:= HKEY_CURRENT_USER;
Reg.OpenKeyReadOnly('Volatile Environment');
HomeDrive:= reg.ReadString('HOMEDRIVE');
HomePath:= reg.ReadString('HOMEPATH');
Reg.CloseKey;
Path:= HomeDrive + HomePath + '\Ìîè äîêóìåíòû\';
if (not DirectoryExists(Path)) then
begin
  Path:= HomeDrive + HomePath + '\My Documents\';
  if (Not DirectoryExists(Path)) then
    Path:= HomeDrive + HomePath;
end;
i:= 1;
XL1:= CreateOleObject('Excel.Application');
XL1.Visible:= false;

XL1.DisplayAlerts:= false;
XL1.UseSystemSeparators:= true;
XL1.Workbooks.Open('Z:\home\sitrans.ru\www\forms\Tomilino.xls', False, False, EmptyParam, False,
                False, True, EmptyParam, False, EmptyParam, EmptyParam,
                                               EmptyParam, EmptyParam);
Sheet:= XL1.Workbooks[1].Worksheets[i];


AssignFile (F, 'Z:\home\sitrans.ru\www\forms\Tomilino.txt');
Reset(F);
Readln(F, Stroke);
fname:= 'Îò÷åò_Òîìèëèíî_' + Stroke;

while not Eof(F) do
begin
  Readln(F, Stroke);
  if (Pos('NewSheetInTomilino', Stroke) = 1) then
  begin
    i:= i + 1;
    Sheet:= XL1.Workbooks[1].Worksheets[i];
    continue;
  end;
  s1:= Copy (Stroke, 1, Pos (';', Stroke) - 1);
  s2:= Copy (Stroke, Pos (';', Stroke) + 1, Length (Stroke) -
                                          Pos (';', Stroke));
  s3:= Stroke;
  s2:= Copy (s2, 1, Pos (';', s2) - 1);
  s3:= Copy (s3, Pos (';', s3) + 1, Length (s3) - Pos (';', s3));
  s3:= Copy (s3, Pos (';', s3) + 1, Length (s3) - Pos (';', s3));
  s3:= StringReplace(s3, '#10', #10, [rfReplaceAll]);
  if s2 = 'merge' then
  begin
    Sheet.Range[s1, EmptyParam].Merge;
  end;
  if s2 = 'autofit' then
  begin
    Sheet.Range[s1, EmptyParam].EntireColumn.AutoFit;
  end;
  if s2 = 'value2' then
  begin
    Sheet.Range[s1, EmptyParam].value2:= s3;
  end;
  if s2 = 'borders' then
  begin
    Sheet.Range[s1, EmptyParam].Borders.LineStyle:= xlContinuous;
    Sheet.Range[s1, EmptyParam].Borders.Weight:= xlMedium;
  end;
  if s2 = 'value' then
  begin
    Sheet.Range[s1, EmptyParam].value:= s3;
  end;
  if s2 = 'formulaR1C1' then
  begin
    Sheet.Range[s1, EmptyParam].formulaR1C1:= s3;
  end;
  if s2 = 'formulaLocal' then
  begin
    Sheet.Range[s1, EmptyParam].formulaLocal:= s3;
  end;
  if s2 = 'numberFormat' then
  begin
    Sheet.Range[s1, EmptyParam].numberFormat:= s3;
  end;
  if s2 = 'HorizontalAlignment' then
  begin
    Sheet.Range[s1, EmptyParam].HorizontalAlignment:= xlCenter;
  end;
  if s2 = 'VerticalAlignment' then
  begin
    Sheet.Range[s1, EmptyParam].VerticalAlignment:= xlCenter;
  end;
  if s2 = 'WrapText' then
  begin
    Sheet.Range[s1, EmptyParam].WrapText:= true;
  end;
end;

if FileExists(Path + fname) then
begin
  try
    DeleteFile(Path + fname);
    XL1.Workbooks[1].Close(True, Path + fname, EmptyParam);
  except
    fname:= StringReplace(DateTimeToStr(Now), ':', '.', [rfreplaceall]) + '__' + fname;
    try
      XL1.Workbooks[1].Close(True, Path + fname, EmptyParam);
    except

    end;
  end;
end
else
  XL1.Workbooks[1].Close(True, Path + fname, EmptyParam);
XL1.quit;
end;

end.