Текущий архив: 2007.02.11;
Скачать: CL | DM;

Вниз

Сохранение документа в Excel   Найти похожие ветки 

← →
Nicolas1989 ©   (2005-03-06 20:57) [0]

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

---

← →
GanibalLector ©   (2005-03-07 02:42) [1]


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;


---

← →
Lotax   (2005-10-12 07:49) [2]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2007.02.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.049 c