отчет выводится в excel (xlCreateExcelWithTemplate и все такое).
сохранить результат надо с конкретным названием в определенную папку. самое простое - с помощью
сохраненного в книгу макроса.
но что делать если надо изменить название файла или путь к нему?
можно как то модифицировать эти книжные функции или как нибудь параметры туда передавать?
про excel еще раз...и еще много-много раз (шутка)
Модераторы: m0p3e, edward_K, Модераторы
-
- Местный житель
- Сообщения: 783
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Москва
- Контактная информация:
Re: про excel еще раз...и еще много-много раз (шутка)
А почему нельзя сразу создать файл в нужном месторасположении?
Значение по умолчанию:
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 на знак "\" или нет, но это можно предусмотреть.
Значение по умолчанию:
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 еще раз...и еще много-много раз (шутка)
Дабавь макрос типа:
Sub Mysave()
ActiveWorkbook.SaveAs Filename:="C:\ostatki\2014.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
"C:\ostatki\2014.xls" задается в момент формирования макроса.
и запусти его.
Встречный вопрос: а как закрыть файл? Т.е. сохранить и закрыть?
Sub Mysave()
ActiveWorkbook.SaveAs Filename:="C:\ostatki\2014.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
"C:\ostatki\2014.xls" задается в момент формирования макроса.
и запусти его.
Встречный вопрос: а как закрыть файл? Т.е. сохранить и закрыть?