про excel еще раз...и еще много-много раз (шутка)

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
dva2002
Сообщения: 2
Зарегистрирован: 29 мар 2005, 17:49
Контактная информация:

про excel еще раз...и еще много-много раз (шутка)

Сообщение dva2002 »

отчет выводится в excel (xlCreateExcelWithTemplate и все такое).
сохранить результат надо с конкретным названием в определенную папку. самое простое - с помощью
сохраненного в книгу макроса.

но что делать если надо изменить название файла или путь к нему?
можно как то модифицировать эти книжные функции или как нибудь параметры туда передавать?
Deinis
Местный житель
Сообщения: 783
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва
Контактная информация:

Re: про excel еще раз...и еще много-много раз (шутка)

Сообщение Deinis »

А почему нельзя сразу создать файл в нужном месторасположении?
Значение по умолчанию:
Set Katal := ' D:\OUT\' ;
FileName := Trim(Katal)+'DZ_' + DateToStr ( BeginDate, 'DD.MM.YYYY' ) + '-' + DateToStr ( EndDate, 'DD.MM.YYYY' ) + '.xls';
iSheet := 1; // Лист №1 в файле xls
IF (CheckFile) // есть ли уже такой файл???
then IF ( xlCreateExcel( FileName, TRUE ) )
then begin
RepExcelTSoprHoz;
xlKillExcel;
end;
else Message ('Не удалось сформировать файл "'+FileName+'"');

Правда тут я не предусмотрел, заканчивается ли Katal на знак "\" или нет, но это можно предусмотреть.
Maxim
Постоянный гость
Сообщения: 96
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Пермь

Re: про excel еще раз...и еще много-много раз (шутка)

Сообщение Maxim »

Дабавь макрос типа:

Sub Mysave()
ActiveWorkbook.SaveAs Filename:="C:\ostatki\2014.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

"C:\ostatki\2014.xls" задается в момент формирования макроса.

и запусти его.

Встречный вопрос: а как закрыть файл? Т.е. сохранить и закрыть?
Ответить