|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Перемещение листа 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
|
||||
|
||||
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
Стесняюсь спросить, а в папках по-одному файлу лежит или по-несколько - "на кнопку" видимо одна пара донор-реципиент обрабатывается, как задумано: открывается одна книжка, к ней в пару выбирается другая, донорская, просто если энтих "дуэтов" много, то циклить нужно открытие, а не сразу добавление, проясните пжлст
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
|||
|
|||
Цитата:
|
#6
|
||||
|
||||
Имена у пар файлов в разных папках совпадают или именно выбор по диалогу требуется?
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#7
|
|||
|
|||
Цитата:
|
#8
|
||||
|
||||
Ага, понятненько, попытаюсь повторить, заходите к нам немного попозже, результат в этом посте тогда выложу, если чего получится
З.Ы. Прекрасно ваш код работает, просто в нём мусора навалом, видимо издержки копипасты, второй диалог лишний, зачем-то циклы крутятся, хотя и не используются, да много чего ещё, вот вариант после правки Код:
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
|
|||
|
|||
Цитата:
Последний раз редактировалось brookhut, 19.04.2018 в 11:38. |
#10
|
||||
|
||||
У меня ашипок не вылазит, проверил ведь, обработка идёт по одной паре файлов, алгоритм: выбрал цель - выбрал источник = переместил, а если пакетом надо, то тогда заранее нужно список пар составлять или что, во все файлы из папки1 один и тот же лист вставляется, много условностей, мне откуда знать, что вам нужно-то, как обычно (
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#11
|
|||
|
|||
Цитата:
в uses достаточно указать ComObj, FileCtrl? мб у меня, что то не указано отсюда и ошибка? А можно использовать для открытия книг memo? в строку memo записываем имя файла, а потом в цикле открываем их построчно или так тоже получится некорректно? У меня маловато опыта в этом( Последний раз редактировалось brookhut, 19.04.2018 в 12:12. |
#12
|
||||
|
||||
Можно заранее составить список файлов, в которые нужно лист2 пулять, он уже есть, если в диалоге мультиселект выбран, но остаётся загадкой откуда лист этот выдирать - донор один и тот же или каждому своё, вот этот момент так и остался непонятен
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#13
|
|||
|
|||
Цитата:
Папка№2-файл№1->Папка№1-файл№1 Папка№2-файл№2->Папка№1-файл№2 ... Папка№2-файл№100->Папка№1-файл№100 |
#14
|
|||
|
|||
ошибку победил убрав
Код:
exBook.close; exBook2.close; |
#15
|
||||
|
||||
Так что, выходит имена файл-реципиента и файл-донора, или их нумерация в разных папках совпадают? А несколькими постами выше вроде была обратная информация
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |