[brookhut]

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

Так что, выходит имена файл-реципиента и файл-донора, или их нумерация в разных папках совпадают? А несколькими постами выше вроде была обратная информация

если в цикле открывать файлы, они открываются друг за другом, соответственно, если у нас в папках одинаковое количество файлов, после операции с первой парой файлов, цикл должен перейти к следующей паре или я сильно ошибаюсь и заблуждаюсь ? в папках файлы с именами вида: папка№1(f1№1a, f1№2a), папка№2(f2№1b, f2№2b)

[Alegun]

Они открываются смотря какая выбрана сортировка в проводнике сиречь диалоге выбора файлов, могут по-имени (в алфавитном порядке), могут по дате создания или размеру etc. но к сожалению, обед завершился, пора под клиентские авто лезть, но глядишь, к вечеру чегонить и соберётся по вашей теме, удачи!

[Alegun]

Вот про цикл немного

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
 i,j: integer;
 exApp,exBook,exBook2,exSh,exSh2: Variant;
begin
 if not OpenDialog1.Execute then exit;
 if not OpenDialog2.Execute then exit;
 i:= OpenDialog1.Files.Count;
 j:= OpenDialog2.Files.Count;
 if i-j < 0 then j:= i;

 exApp:= CreateOleObject('Excel.Application');
 exApp.Visible:= false;

 for i := 0 to j-1 do
  begin
   Application.ProcessMessages;
   exBook:=  exApp.Workbooks.Open(OpenDialog1.Files[i]);
   exSh:=  exApp.ActiveWorkbook.WorkSheets[1];
   exBook2:= exApp.Workbooks.Open(OpenDialog2.Files[i]);
   exSh2:= exApp.ActiveWorkbook.WorkSheets[1];
   exSh2.Move(EmptyParam, exBook.WorkSheets[1]);
   exBook.Save;
   exBook:= UnAssigned;
   exBook2:= UnAssigned;
  end; {for}

 exApp.Quit;
 exApp:= Unassigned;
 ShowMessage('Выполнено');
end;

а ниже "кошечки" на чём тренировалси

[LIONSMILE]

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

ошибку победил убрав

Код:

exBook.close;
exBook2.close;

Этим ты не победил ничего, ты просто убрал команды на закрытие книг MS Excel. Их нужно все равно закрывать или отключать

Код:

exBook:= UnAssigned;

ибо в один прекрасный день он тебе так накопирует, что ручками потом сотню файлов придется разгребать.

[brookhut]

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

Вот про цикл немного

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
 i,j: integer;
 exApp,exBook,exBook2,exSh,exSh2: Variant;
begin
 if not OpenDialog1.Execute then exit;
 if not OpenDialog2.Execute then exit;
 i:= OpenDialog1.Files.Count;
 j:= OpenDialog2.Files.Count;
 if i-j < 0 then j:= i;

 exApp:= CreateOleObject('Excel.Application');
 exApp.Visible:= false;

 for i := 0 to j-1 do
  begin
   Application.ProcessMessages;
   exBook:=  exApp.Workbooks.Open(OpenDialog1.Files[i]);
   exSh:=  exApp.ActiveWorkbook.WorkSheets[1];
   exBook2:= exApp.Workbooks.Open(OpenDialog2.Files[i]);
   exSh2:= exApp.ActiveWorkbook.WorkSheets[1];
   exSh2.Move(EmptyParam, exBook.WorkSheets[1]);
   exBook.Save;
   exBook:= UnAssigned;
   exBook2:= UnAssigned;
  end; {for}

 exApp.Quit;
 exApp:= Unassigned;
 ShowMessage('Выполнено');
end;

а ниже "кошечки" на чём тренировалси

Работает)), спасибо огромное, выручили.

[brookhut]

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

Этим ты не победил ничего, ты просто убрал команды на закрытие книг MS Excel. Их нужно все равно закрывать или отключать

Код:

exBook:= UnAssigned;

ибо в один прекрасный день он тебе так накопирует, что ручками потом сотню файлов придется разгребать.

Именно, отключение я оставил, забыл упомянуть про это, а слово "победил" надо было взять в кавычки ))