Перемещение листа Excel из книг в папке№2 в книги из папки№1

brookhut · #1 18.04.2018, 16:13

Есть две папки с эксель файлами в каждом из них по одной странице с именами (в папке№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;

Alegun · #2 18.04.2018, 19:31

Цитата:

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

...нужно чтобы в папке№1 были эксель файлы с именами листов"Лист 1", "Лист2"...

Другими словами, нужно в файлах из первой папки слить вместе листы из неё и файлов из второй или ещё что, непонятки

brookhut · #3 18.04.2018, 23:25

Цитата:

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

Другими словами, нужно в файлах из первой папки слить вместе листы из неё и файлов из второй или ещё что, непонятки

Нужно чтобы в папке№1 были книги Excel, с листами "Лист1" и "Лист2", лист с именем "Лист2" берется из папки№2.

Alegun · #4 18.04.2018, 23:40

Стесняюсь спросить, а в папках по-одному файлу лежит или по-несколько - "на кнопку" видимо одна пара донор-реципиент обрабатывается, как задумано: открывается одна книжка, к ней в пару выбирается другая, донорская, просто если энтих "дуэтов" много, то циклить нужно открытие, а не сразу добавление, проясните пжлст

brookhut · #5 18.04.2018, 23:45

Цитата:

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

Стесняюсь спросить, а в папках по-одному файлу лежит или по-несколько - "на кнопку" видимо одна пара донор-реципиент обрабатывается, как задумано: открывается одна книжка, к ней в пару выбирается другая, донорская, просто если энтих "дуэтов" много, то циклить нужно открытие, а не сразу добавление, проясните пжлст

в каждой из папок около 100 файлов, каждой книге по одному листу

Alegun · #6 18.04.2018, 23:51

Имена у пар файлов в разных папках совпадают или именно выбор по диалогу требуется?

brookhut · #7 18.04.2018, 23:56

Цитата:

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

Имена у пар файлов в разных папках совпадают или именно выбор по диалогу требуется?

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

Alegun · #8 19.04.2018, 00:01

Ага, понятненько, попытаюсь повторить, заходите к нам немного попозже, результат в этом посте тогда выложу, если чего получится

З.Ы. Прекрасно ваш код работает, просто в нём мусора навалом, видимо издержки копипасты, второй диалог лишний, зачем-то циклы крутятся, хотя и не используются, да много чего ещё, вот вариант после правки

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
 exApp,exBook,exBook2,exSh,exSh2: Variant;
begin
  if not OpenDialog1.Execute then exit;
 
  exApp:= CreateOleObject('Excel.Application');
  exApp.Visible:= false;
  exBook:= exApp.Workbooks.Open(OpenDialog1.FileName);
  exSh:= exApp.ActiveWorkbook.WorkSheets[1];
 
  if not OpenDialog1.Execute then exit;
 
  exBook2:= exApp.Workbooks.Open(OpenDialog1.FileName);
  exSh2:= exApp.ActiveWorkbook.WorkSheets[1];
  exSh2.Move(EmptyParam, exBook.WorkSheets[1]);
  exBook.Save;
  exBook.Close;
  exBook2.Close;
  exApp.Quit;
  exApp:= Unassigned;
  ShowMessage('Лист перемещен');
end;

углубляться не стал, хотя следовало бы - при вылете, напр. если диалог закроется пустым или что сорвётся, экзель останется висеть в процессах, нужна обработка исключений, но это как говорится, не ходовая

brookhut · #9 19.04.2018, 11:32

Цитата:

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

Ага, понятненько, попытаюсь повторить, заходите к нам немного попозже, результат в этом посте тогда выложу, если чего получится

З.Ы. Прекрасно ваш код работает, просто в нём мусора навалом, видимо издержки копипасты, второй диалог лишний, зачем-то циклы крутятся, хотя и не используются, да много чего ещё, вот вариант после правки

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
 exApp,exBook,exBook2,exSh,exSh2: Variant;
begin
  if not OpenDialog1.Execute then exit;
 
  exApp:= CreateOleObject('Excel.Application');
  exApp.Visible:= false;
  exBook:= exApp.Workbooks.Open(OpenDialog1.FileName);
  exSh:= exApp.ActiveWorkbook.WorkSheets[1];
 
  if not OpenDialog1.Execute then exit;
 
  exBook2:= exApp.Workbooks.Open(OpenDialog1.FileName);
  exSh2:= exApp.ActiveWorkbook.WorkSheets[1];
  exSh2.Move(EmptyParam, exBook.WorkSheets[1]);
  exBook.Save;
  exBook.Close;
  exBook2.Close;
  exApp.Quit;
  exApp:= Unassigned;
  ShowMessage('Лист перемещен');
end;

углубляться не стал, хотя следовало бы - при вылете, напр. если диалог закроется пустым или что сорвётся, экзель останется висеть в процессах, нужна обработка исключений, но это как говорится, не ходовая

Лист из файла№2 переносится в файл№1, но ошибка осталась, даже до вывода сообщения, что лист перемещен, не доходит. И я так понимаю надо на каждый файл нажимать который в папке находится. Хотелось просто выделить все файлы в папках и в цикле их открыть перемещать лист сохранять закрывать. Сейчас подумываю, не перемещать лист, а всё с листа скопировать в буфер, открыть другую книгу, добавить в неё лист, присвоить ему нужное имя, и вставить всё. что скопировал из первой книги)

Alegun · #10 19.04.2018, 11:53

У меня ашипок не вылазит, проверил ведь, обработка идёт по одной паре файлов, алгоритм: выбрал цель - выбрал источник = переместил, а если пакетом надо, то тогда заранее нужно список пар составлять или что, во все файлы из папки1 один и тот же лист вставляется, много условностей, мне откуда знать, что вам нужно-то, как обычно (

brookhut · #11 19.04.2018, 12:08

Цитата:

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

обработка идёт по одной паре файлов, алгоритм: выбрал цель - выбрал источник = переместил

так тоже пробовал, выдаёт ошибку(
в uses достаточно указать ComObj, FileCtrl? мб у меня, что то не указано отсюда и ошибка? А можно использовать для открытия книг memo? в строку memo записываем имя файла, а потом в цикле открываем их построчно или так тоже получится некорректно? У меня маловато опыта в этом(

Alegun · #12 19.04.2018, 12:20

Можно заранее составить список файлов, в которые нужно лист2 пулять, он уже есть, если в диалоге мультиселект выбран, но остаётся загадкой откуда лист этот выдирать - донор один и тот же или каждому своё, вот этот момент так и остался непонятен

brookhut · #13 19.04.2018, 12:32

Цитата:

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

Можно заранее составить список файлов, в которые нужно лист2 пулять, он уже есть, если в диалоге мультиселект выбран, но остаётся загадкой откуда лист этот выдирать - донор один и тот же или каждому своё, вот этот момент так и остался непонятен

есть 2 папки с книгами(папка№1, папка№2), нужно в папке№2 из книги№1 переместить или скопировать лист, в книгу№1 из папки№1, и так с каждой книгой из папкок
Папка№2-файл№1->Папка№1-файл№1
Папка№2-файл№2->Папка№1-файл№2
...
Папка№2-файл№100->Папка№1-файл№100

brookhut · #14 19.04.2018, 12:49

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

Код:

exBook.close;
exBook2.close;

Не знаю насколько правильно так делать, но это работает для парного выбора)

Alegun · #15 19.04.2018, 12:50

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

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты