Страница 1 из 1

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

Добавлено: 15 июл 2004, 15:09
dva2002
отчет выводится в excel (xlCreateExcelWithTemplate и все такое).
сохранить результат надо с конкретным названием в определенную папку. самое простое - с помощью
сохраненного в книгу макроса.

но что делать если надо изменить название файла или путь к нему?
можно как то модифицировать эти книжные функции или как нибудь параметры туда передавать?

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

Добавлено: 15 июл 2004, 16:15
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 на знак "\" или нет, но это можно предусмотреть.

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

Добавлено: 16 июл 2004, 08:57
Maxim
Дабавь макрос типа:

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

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

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

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