| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сохранение документа в Excel [Delphi, Windows]

Nicolas1989 ©   (2005-03-06 20:57:00) 

Добрый вечер! Пытаюсь програмно сохранить excel-евский документ, но программа всё-равно вызывает диалоговое окно сохранения. Как его обойти?

---

Lotax   (2005-10-12 07:49:00) [1]

Попробуй так:

//Подавляем вывод диагностических сообщений
XLApp.DisplayAlerts := False;
//Cохраняем документ
XLApp.Workbooks[1].SaveAs('C:\Myfuck.xls');

---

GanibalLector   (2005-03-07 02:42:00) [2]


var XLApp:Variant; i:integer;
begin
 XLApp:=CreateOleObject('Excel.Application');
 try
  XLApp.Visible:=true;
  XLApp.WorkBooks.Add;
  XLApp.WorkBooks[1].WorkSheets[1].Name:='test ;)';
  for i:=1 to 100 do
   XLApp.WorkBooks[1].Sheets[1].Cells[i,1]:=random(1000);
  XLApp.Workbooks[1].WorkSheets[1].Range['A1','A100'].Select;
  XLApp.Selection.Sort(Key1:=XLApp.Range['A1'], Order1:=1,
  Header:=0, OrderCustom:=1, MatchCase:=False, Orientation:=1{, SortMethod :=0});
  XLApp.Workbooks[1].WorkSheets[1].Range['A1'].Select; // no select
   try
     XLApp.Workbooks[1].SaveAs('C:\Myfuck.xls');
   except
     // Error
   end;
 finally
   if not VarIsEmpty(XLApp) then
   begin
      XLApp.DisplayAlerts := False;
     XLApp.Quit;
     XLAPP := Unassigned;
   end;
 end;
end;


---

Наверх