Сохранение в файл после вставки в Excel

← →
LionMen © (2006-01-25 11:29) [0]

Здравствуйте! С праздником, студенты!!! )))

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

with ExcelApplication1 do begin

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

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

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

← →
Dmitrij_K (2006-01-25 11:56) [1]

.Close(SaveChanges:=False) ?

← →
LionMen © (2006-01-25 14:14) [2]

Close(SaveChanges:=False)
Не работает команда! ((
помогите плиз, чтобы при запуске вставило слово и сразу же сохранилось в файл без всяких запросов!

← →
Dmitrij_K (2006-01-25 15:56) [3]

ActiveWorkbook.SaveAs(Filename:="c:\Книга1.xls", FileFormat:=xlNormal,Password:="", WriteResPassword:="", ReadOnlyRecommended:=False ,CreateBackup:=False);
ActiveWindow.Close(SaveChanges:=False)

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

← →
LionMen © (2006-01-25 16:22) [4]

Я дописал, все равно не работает (((

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 16:45) [5]

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;

Спасип, Dmitrij_K! )))) Все работает!!!

Сохранение в файл после вставки в Excel Найти похожие ветки