Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.044 c
2-1169302054
TIF
2007-01-20 17:07
2007.02.11
Задвинуть MainMenu


15-1169415457
Kerk
2007-01-22 00:37
2007.02.11
Skype пытается отобрать домен skype.tv за $75


2-1169797581
22b
2007-01-26 10:46
2007.02.11
Работа с файловой системой


15-1169404724
redlord
2007-01-21 21:38
2007.02.11
порт и адрес ICQ сервера


1-1166546027
2expres
2006-12-19 19:33
2007.02.11
Помогите в Delphi организовать таймер на 10мс