Текущий архив: 2004.04.18;
Скачать: CL | DM;
Вниз
Вопрос по Excel Найти похожие ветки
← →
Фикус © (2004-03-30 12:45) [0]Сохраняю документ так:
Workbook.SaveAs(GetCurrentDir+"\report\list.xls",EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,xlExclusiv e,EmptyParam,EmptyParam,EmptyParam,EmptyParam,xlLCID);
Как перезаписать файл без запроса, если он уже существует?
← →
Goida © (2004-03-30 13:01) [1]ExcelApp.EnableEvents := FALSE;
← →
sVic (2004-03-30 13:11) [2]v:=GetCurrentDir+"\report\list.xls";
if FileExists(v) then DeleteFile(v);
← →
Фикус © (2004-03-30 13:17) [3][1] Goida © (30.03.04 13:01)
Не работает.
← →
ZrenBy © (2004-03-30 13:55) [4].DisplayAlerts := False ?
← →
Asdor © (2004-03-30 14:28) [5]procedure SaveAs(Filename: OleVariant;
FileFormat: OleVariant;
Password: OleVariant;
WriteResPassword: OleVariant;
ReadOnlyRecommended: OleVariant;
CreateBackup: OleVariant;
AccessMode: XlSaveAsAccessMode;
ConflictResolution: OleVariant; :=xlLocalSessionChanges
AddToMru: OleVariant;
TextCodepage: OleVariant;
TextVisualLayout: OleVariant;
Local: OleVariant;
lcid: Integer);
По-моему так...
← →
Фикус © (2004-03-30 14:35) [6][5] Asdor © (30.03.04 14:28)
Нет, не работает.
← →
Asdor © (2004-03-30 14:45) [7]А что пишет-то?
← →
Asdor © (2004-03-30 14:46) [8]А если совместно с ZrenBy © (30.03.04 13:55) [4] ?
← →
Фикус © (2004-03-30 14:54) [9]А вот [4] проходит. Только правильнее: .DisplayAlerts[xlLCID]:=False;
Спасибо всем откликнувшимся :)
Страницы: 1 вся ветка
Текущий архив: 2004.04.18;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.025 c
