Есть две папки с эксель файлами в каждом из них по одной странице с именами (в папке№1 "Лист1", в папке№2 "Лист2"), нужно чтобы в папке№1 были эксель файлы с именами листов"Лист 1", "Лист2". Написал код на кнопку, но при выполнении появляется сообщение "Вызванный объект был отключен от клиентов", лист добавляется в книгу, книга из Папки№1 сохраняется, но не закрывается и работа цикла останавливается. Ниже код на кнопке, просьба подсказать, что не так делаю.
Код:
procedure TForm1.ToolButton3Click(Sender: TObject);
var
i,j:integer;
fName1, fName2: string;
begin
OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];
OpenDialog1.Filter := 'XLS files (*.xls)|*.xls|XLSX files (*.XLSX)|*.XLSX';
OpenDialog1.FilterIndex := 2; { start the dialog showing all files }
OpenDialog2.Options := [ofAllowMultiSelect, ofFileMustExist];
OpenDialog2.Filter := 'XLS files (*.xls)|*.xls|XLSX files (*.XLSX)|*.XLSX';
OpenDialog2.FilterIndex := 2; { start the dialog showing all files }
if OpenDialog1.Execute then fName1:=OpenDialog1.FileName else exit;
for i:= 0 to OpenDialog1.Files.Count-1 do
begin
//Запуск экземпляра Excel и получение ссылки на интерфейс корневого объекта (Excel.Application).
exApp := CreateOleObject('Excel.Application');
//Делаем видимым окно MS Excel. На время отладки или на постоянной основе.
exApp.Visible := true;
//Открываем раб. книгу и получаем ссылку на её интерфейс. в папке1
exBook := exApp.Workbooks.Open(fName1);
//Ссылка на интерфейс первого листа рабочей книги из папки 1.
exSh :=exApp.ActiveWorkbook.WorkSheets[1];
if OpenDialog2.Execute then fName2:=OpenDialog2.FileName else exit;
for j:= 0 to OpenDialog2.Files.Count-1 do
begin
//Открываем раб. книгу и получаем ссылку на её интерфейс в папке2
exBook2 := exApp.Workbooks.Open(fName2);
//Ссылка на интерфейс первого листа рабочей книги из папки 2.
exSh2 :=exApp.ActiveWorkbook.WorkSheets[1];
//Перемещение листа из книги1 папки1 в книгу1 папки2
exSh2.Move(EmptyParam, exBook.WorkSheets[1]);
exBook.Save;
exBook.Close;
end;
end;
//exBook.Close;
//exApp.Quit; //Закрываем MS Excel
// exApp:=Unassigned ж
//close;
//exit;
end;