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

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Load from Stream in OLE

Автор: NOCaut 30.9.2014, 15:23

Как загрузить xls файл с потока в ole обект?

Код

procedure TForm1.btn2Click(Sender: TObject);
Var
  Ap : Variant;
  i  : Integer;
begin
  Ap := CreateOleObject('Excel.Application');
  Ap.Workbooks.Open('D:\123__.xls');    //////////// поменять на поток
  try
    Ap.Visible := False;
    Ap.DisplayAlerts := False;

    Ap.ActiveWorkBook.SaveAs('D:\test2.xls');
  finally
    Ap.Workbooks.Close;
    Ap.Quit;
  end;
end;

Автор: NOCaut 1.10.2014, 16:15

решил http://forum.sources.ru/index.php?showtopic=395028&st=0&#entry3530772