Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Сохранение в файл после вставки в Excel [D7, XP]

LionMen © (2006-01-25 11:29:00)
Здравствуйте! С праздником, студенты!!! )))

Вот исходник, который вставляет слово в Excel.

with ExcelApplication1 do begin

Workbooks.Add(EmptyParam,0);
Range['B1','B1'].Value2:='qwerwqr';
Connect;
Visible[0]:=true;
Disconnect;
end;

У меня вопрос. Как правильно дописать команды в Делфи о сохранение в файл после вставки в Excel и без запроса об сохранение?

С уважением LionMen!

LionMen (2006-01-26 07:39:00) [1]
Спасип, Dmitrij_K! )))) Все работает!!!

Dmitrij_K (2006-01-25 16:45:00) [2]
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
ExcelApplication1.Range['B1','B1'].Value2:='qwerwqr';
ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=true;
ExcelWorkbook1.SaveCopyAs('c:\aaa.xls');
ExcelWorkbook1.Close(False);
ExcelApplication1.Disconnect;

LionMen (2006-01-25 16:22:00) [3]
Я дописал, все равно не работает (((

with ExcelApplication1 do begin
Workbooks.Add(EmptyParam,0);
Range['B1','B1'].Value2:='qwerwqr';
Connect;
Visible[0]:=true;
ActiveWorkbook.SaveAs('c:\qwer.xls',xlNormal,'', '', False ,False, EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam );
ActiveWindow.Close(False,'c:\qwer.xls',0);
Disconnect;
end;

Вот выделенные жирным шрифтом EmptyParam, нужны точные параметры!!!!Народ! Помогите плиз!!! (((( Дайте правильный код... Буду благодарен!!!

Dmitrij_K (2006-01-25 15:56:00) [4]
ActiveWorkbook.SaveAs(Filename:="c:\Книга1.xls", FileFormat:=xlNormal,Password:="", WriteResPassword:="", ReadOnlyRecommended:=False ,CreateBackup:=False);
ActiveWindow.Close(SaveChanges:=False)

чтота типа такога

LionMen (2006-01-25 14:14:00) [5]
Close(SaveChanges:=False)
Не работает команда! ((
помогите плиз, чтобы при запуске вставило слово и сразу же сохранилось в файл без всяких запросов!

Dmitrij_K (2006-01-25 11:56:00) [6]
.Close(SaveChanges:=False) ?

Наверх

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