Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 18.04.2018, 16:13
brookhut brookhut вне форума
Прохожий
 
Регистрация: 21.05.2017
Сообщения: 13
Версия Delphi: rad studio xe8
Репутация: 10
По умолчанию Перемещение листа Excel из книг в папке№2 в книги из папки№1

Есть две папки с эксель файлами в каждом из них по одной странице с именами (в папке№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;
Ответить с цитированием
  #2  
Старый 18.04.2018, 19:31
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от brookhut
...нужно чтобы в папке№1 были эксель файлы с именами листов"Лист 1", "Лист2"...
Другими словами, нужно в файлах из первой папки слить вместе листы из неё и файлов из второй или ещё что, непонятки
Ответить с цитированием
  #3  
Старый 18.04.2018, 23:25
brookhut brookhut вне форума
Прохожий
 
Регистрация: 21.05.2017
Сообщения: 13
Версия Delphi: rad studio xe8
Репутация: 10
По умолчанию

Цитата:
Сообщение от Alegun
Другими словами, нужно в файлах из первой папки слить вместе листы из неё и файлов из второй или ещё что, непонятки
Нужно чтобы в папке№1 были книги Excel, с листами "Лист1" и "Лист2", лист с именем "Лист2" берется из папки№2.
Ответить с цитированием
  #4  
Старый 18.04.2018, 23:40
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
Восклицание

Стесняюсь спросить, а в папках по-одному файлу лежит или по-несколько - "на кнопку" видимо одна пара донор-реципиент обрабатывается, как задумано: открывается одна книжка, к ней в пару выбирается другая, донорская, просто если энтих "дуэтов" много, то циклить нужно открытие, а не сразу добавление, проясните пжлст
Ответить с цитированием
  #5  
Старый 18.04.2018, 23:45
brookhut brookhut вне форума
Прохожий
 
Регистрация: 21.05.2017
Сообщения: 13
Версия Delphi: rad studio xe8
Репутация: 10
По умолчанию

Цитата:
Сообщение от Alegun
Стесняюсь спросить, а в папках по-одному файлу лежит или по-несколько - "на кнопку" видимо одна пара донор-реципиент обрабатывается, как задумано: открывается одна книжка, к ней в пару выбирается другая, донорская, просто если энтих "дуэтов" много, то циклить нужно открытие, а не сразу добавление, проясните пжлст
в каждой из папок около 100 файлов, каждой книге по одному листу
Ответить с цитированием
  #6  
Старый 18.04.2018, 23:51
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Имена у пар файлов в разных папках совпадают или именно выбор по диалогу требуется?
Ответить с цитированием
  #7  
Старый 18.04.2018, 23:56
brookhut brookhut вне форума
Прохожий
 
Регистрация: 21.05.2017
Сообщения: 13
Версия Delphi: rad studio xe8
Репутация: 10
По умолчанию

Цитата:
Сообщение от Alegun
Имена у пар файлов в разных папках совпадают или именно выбор по диалогу требуется?
нет имена не совпадают, файл пользователь может положить куда угодно, выбрал диалог
Ответить с цитированием
  #8  
Старый 19.04.2018, 00:01
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

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

З.Ы. Прекрасно ваш код работает, просто в нём мусора навалом, видимо издержки копипасты, второй диалог лишний, зачем-то циклы крутятся, хотя и не используются, да много чего ещё, вот вариант после правки
Код:
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;
углубляться не стал, хотя следовало бы - при вылете, напр. если диалог закроется пустым или что сорвётся, экзель останется висеть в процессах, нужна обработка исключений, но это как говорится, не ходовая

Последний раз редактировалось Alegun, 19.04.2018 в 11:21.
Ответить с цитированием
  #9  
Старый 19.04.2018, 11:32
brookhut brookhut вне форума
Прохожий
 
Регистрация: 21.05.2017
Сообщения: 13
Версия Delphi: rad studio xe8
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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, но ошибка осталась, даже до вывода сообщения, что лист перемещен, не доходит. И я так понимаю надо на каждый файл нажимать который в папке находится. Хотелось просто выделить все файлы в папках и в цикле их открыть перемещать лист сохранять закрывать. Сейчас подумываю, не перемещать лист, а всё с листа скопировать в буфер, открыть другую книгу, добавить в неё лист, присвоить ему нужное имя, и вставить всё. что скопировал из первой книги)

Последний раз редактировалось brookhut, 19.04.2018 в 11:38.
Ответить с цитированием
  #10  
Старый 19.04.2018, 11:53
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

У меня ашипок не вылазит, проверил ведь, обработка идёт по одной паре файлов, алгоритм: выбрал цель - выбрал источник = переместил, а если пакетом надо, то тогда заранее нужно список пар составлять или что, во все файлы из папки1 один и тот же лист вставляется, много условностей, мне откуда знать, что вам нужно-то, как обычно (
Ответить с цитированием
  #11  
Старый 19.04.2018, 12:08
brookhut brookhut вне форума
Прохожий
 
Регистрация: 21.05.2017
Сообщения: 13
Версия Delphi: rad studio xe8
Репутация: 10
По умолчанию

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

Последний раз редактировалось brookhut, 19.04.2018 в 12:12.
Ответить с цитированием
  #12  
Старый 19.04.2018, 12:20
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Можно заранее составить список файлов, в которые нужно лист2 пулять, он уже есть, если в диалоге мультиселект выбран, но остаётся загадкой откуда лист этот выдирать - донор один и тот же или каждому своё, вот этот момент так и остался непонятен
Ответить с цитированием
  #13  
Старый 19.04.2018, 12:32
brookhut brookhut вне форума
Прохожий
 
Регистрация: 21.05.2017
Сообщения: 13
Версия Delphi: rad studio xe8
Репутация: 10
По умолчанию

Цитата:
Сообщение от Alegun
Можно заранее составить список файлов, в которые нужно лист2 пулять, он уже есть, если в диалоге мультиселект выбран, но остаётся загадкой откуда лист этот выдирать - донор один и тот же или каждому своё, вот этот момент так и остался непонятен
есть 2 папки с книгами(папка№1, папка№2), нужно в папке№2 из книги№1 переместить или скопировать лист, в книгу№1 из папки№1, и так с каждой книгой из папкок
Папка№2-файл№1->Папка№1-файл№1
Папка№2-файл№2->Папка№1-файл№2
...
Папка№2-файл№100->Папка№1-файл№100
Ответить с цитированием
  #14  
Старый 19.04.2018, 12:49
brookhut brookhut вне форума
Прохожий
 
Регистрация: 21.05.2017
Сообщения: 13
Версия Delphi: rad studio xe8
Репутация: 10
По умолчанию

ошибку победил убрав
Код:
exBook.close;
exBook2.close;
Не знаю насколько правильно так делать, но это работает для парного выбора)
Ответить с цитированием
  #15  
Старый 19.04.2018, 12:50
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

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


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 15:40.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter