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

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

Excel: сохраняет "ненужные" копии файлов [D7, XP]

click ©   (2007-01-14 14:31:00) 

текст процедуры:
var
e,sheet: variant;
countrec,i,a,q: integer;
rec: shortstring;
time: tsystemtime;
begin
getsystemtime(time);
if messagedlg('Экспортировать данные в файл Excel?',mtconfirmation,[mbyes,mbno],0)=mryes then
{*******////////// create excel list///////////*******}

e:=createoleobject('excel.application');
e.workbooks.open(form3.SaveDir+'\'+form3.ReportName+'\'+form3.ReportName+'.xls');
sheet:=e.sheets.item[1];
//// calculate rec count////
i:=0;
repeat
inc(i);
rec:=stringgrid1.cells[i,0];
until rec='';
countrec:=i-1;
//// load cels to excel/////
a:=-1;
repeat
inc(a);
i:=0;
q:=-1;
repeat
inc(i);
inc(q);
sheet.Cells[a+11,i]:=stringgrid1.Cells[q,a+1];
if (i=7) or (i=8) or (i=9) or (i=13) or (i=14) then begin
sheet.Cells[a+11,i]:='';
q:=q-1;
end;
until i=18;
until a=countrec;
sheet.Cells[5,1]:=inttostr(time.wDay)+' '+form1.NumberToMonth(time.wMonth)+' '+inttostr(time.wYear)+' г.';
e.save;
e.quit;
e:=unassigned;
end;

проблема:
после работы этого участка кода программа как ей и положено сохраняет данные в *.xls файл по пути указанному в этой строке:
e.workbooks.open(form3.SaveDir+'\'+form3.ReportName+'\'+form3.reportName+'.xls');
Но! кроме этого она делает копию файла в ~\Мои документы\и называет его: RESUME.xlw, а это приводит к тому что если этот код выполняется повторно пользователю каждый раз выпадает сообщение о существовании этого файла и предложение его заменить...
вобщем как-то не очень красиво...
вопрос:
как избавится от резервной копии файла?
Спасибо заранее всем попытавшимся помочь!

---

click   (2007-01-15 14:01:00) [1]

Сергей ты лучший! Пока попробовать возможности нет... Но чуствую ОНО!
Спасибо!

---

umbra   (2007-01-15 13:56:00) [2]

> А вот как очистить ее програмно


e.DefaultFilePath := '';

---

click   (2007-01-15 13:40:00) [3]

Спасибо.
Но к сожалению такой вариант тоже не подходит т.к сам файл (шаблон) сначала копируется в заданную папку затем открывается, редактируется и сохраняется. Если же использовать SaveAs то вопрос о существовании такого файла и его замене возникнет 100%.
Я даже нашел почему именно в Мои Документы он сохраняет Resume.xlw - это путь который указан в Сервис - Настройка - Общие - Рабочая директория в Excel (как-то так, наверняка не помню - на работе стоит OOffice)... Если эту строку очистить то все работает идеально! А вот как очистить ее програмно или научить свою программу не заставлять Excel делать резерв-копию не знаю....

---

Kostafey   (2007-01-14 15:27:00) [4]

Я так понял, что файл отчета создается вновь.

А что если вместо

> e.workbooks.open(form3.SaveDir+'\'+form3.ReportName+'\'+form3.ReportName+ '.xls');
...
> e.save;

использовать

e.WorkBooks.add;
...
e.ActiveWorkbook.SaveAs(form3.SaveDir+'\'+form3.ReportName+'\'+form3.ReportName+ '.xls');
e.ActiveWorkbook.close;
e.Quit;
e := UnAssigned;


---

Наверх