Работа с Excel

[Mamuk]

Есть документ например 1.xls, необоходимо:
1. По нажатию кнопки открыть и в определенные ячейки чонить понаписать.
2. Сохранить этот документ по другим именем в другую папку без запросов на подтверждение
3. Закрыть 1.xls без изменений

Первый пункт не вызвал никаких проблем. А вот последние два никак.
Благадарен буду, еси написать пару строчек необходимого кода, не вызовет у вас затруднений
Открываю так:
MyExcel := CreateOleObject('Excel.Application' );
MyExcel.Workbooks.open('D:\1.xls');
MyExcel.Visible:=true;

Сохранить пытаюсь так:
MyExcel.WorkBooks.SaveAS('D:\qq\2.x ls')

[DIgorevich]

И что не выходит? ЧТобы не было запросов на подтверждение поставь:

MyExcel.Application.EnableEvents:= false;

[Kotofff]

Mamuk, а что дал поиск по форуму ???
Или искать не любим ? Проще в 10-й раз вопрос задать !

[Sanprof]

в папке с установленным office есть файлы "*.OLB" - это быблиотека типов MS Office, там описаны все интерфейсы и поля доступа к функция и процедурам. Берем лом(Delphi) и долбим эту библиотеку.
P.S.
в вашем случае интерфейсы к Excel находятся в XL5EN32.OLB

[Mamuk]

MyExcel.WorkBooks.SaveAS('D:\qq\2.x ls')

это вапще не работает. хрен сним с подтверждением даже. Пусть спрашивает разрешение на сохранение. НО прога вылетает с ошибкой, ничо не сохраняется

Kotofff
Покажи мне хоть одну, (даже не 10) тему этого форума, где есть ответ на мой вопрос. Или проще было сюда написать и наставить вопросительных знаков?

[Sparkman]

Сообщение от Mamuk

Kotofff
Покажи мне хоть одну, (даже не 10) тему этого форума, где есть ответ на мой вопрос. Или проще было сюда написать и наставить вопросительных знаков?

Темы есть, но без ответа

Вот мой работающий ответ!!!
MyExcel.WorkBooks.SaveAs(Filename:= 'E:\01_Work\test.xlsx');

ПС: *довольный как пряник*

[Mamuk]

Вылетает с ошибкой:Метод SaveAS ноу супортед бай атаматишион обжект. Процес стопед

Упростим весь код.

procedure TForm1.Button2Click(Sender: TObject);
begin
MyExcel := CreateOleObject('Excel.Application');
MyExcel.Workbooks.open('D:\1.xls');
MyExcel.Visible:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   MyExcel.WorkBooks.SaveAs(Filename:= 'D:\2.xls');
End;

По нажатию батана2 фалик открывается нормально. По нажатию батана3 вылетает с вышеописаной ошибкой. Хочу просто открыть и сохранить с другим именем в др место, чо не так тут?

[Sparkman]

Сообщение от Mamuk

Вылетает с ошибкой:Метод SaveAS ноу супортед бай атаматишион обжект. Процес стопед

Упростим весь код.

procedure TForm1.Button2Click(Sender: TObject);
begin
MyExcel := CreateOleObject('Excel.Application' );
MyExcel.Workbooks.open('D:\1.xls');
MyExcel.Visible:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
MyExcel.WorkBooks.SaveAs(Filename:= 'D:\2.xls');
End;

По нажатию батана2 фалик открывается нормально. По нажатию батана3 вылетает с вышеописаной ошибкой. Хочу просто открыть и сохранить с другим именем в др место, чо не так тут?

procedure TForm1.Button3Click(Sender: TObject);
begin
   MyExcel.ActiveWorkBook.SaveAs(Filename:= 'D:\2.xls');
End;

Либо создаете в Button2Click:
Var MyWorkBook:variant; // - это глобальная переменная
MyWorkBook := MyExcel.Workbooks.open('D:\1.xls');
и затем MyWorkBook.SaveAs(Filename:= 'D:\2.xls');

и не забываем алерты выключать

ПС: нокаутировать Excel: MyExcel.Quit;

[Mamuk]

Все работает! Спасиба. Sparkman шарит

[Sparkman]

Сообщение от Mamuk

Все работает! Спасиба. Sparkman шарит

пажалуста