|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
 |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
18.04.2018, 16:13
|
|||
|
|||
Перемещение листа 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
|
||||
|
||||
|
Цитата:
|
|
#3
18.04.2018, 23:25
|
|||
|
|||
|
Цитата:
|
|
#4
18.04.2018, 23:40
|
||||
|
||||
Стесняюсь спросить, а в папках по-одному файлу лежит или по-несколько - "на кнопку" видимо одна пара донор-реципиент обрабатывается, как задумано: открывается одна книжка, к ней в пару выбирается другая, донорская, просто если энтих "дуэтов" много, то циклить нужно открытие, а не сразу добавление, проясните пжлст
|
|
#5
18.04.2018, 23:45
|
|||
|
|||
|
Цитата:
|
|
#7
18.04.2018, 23:56
|
|||
|
|||
|
Цитата:
|
|
#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;Последний раз редактировалось Alegun, 19.04.2018 в 11:21. |
|
#9
19.04.2018, 11:32
|
|||
|
|||
|
Цитата:
Последний раз редактировалось brookhut, 19.04.2018 в 11:38. |
|
#10
19.04.2018, 11:53
|
||||
|
||||
|
У меня ашипок не вылазит, проверил ведь, обработка идёт по одной паре файлов, алгоритм: выбрал цель - выбрал источник = переместил, а если пакетом надо, то тогда заранее нужно список пар составлять или что, во все файлы из папки1 один и тот же лист вставляется, много условностей, мне откуда знать, что вам нужно-то, как обычно (
|
|
#11
19.04.2018, 12:08
|
|||
|
|||
|
Цитата:
в uses достаточно указать ComObj, FileCtrl? мб у меня, что то не указано отсюда и ошибка? А можно использовать для открытия книг memo? в строку memo записываем имя файла, а потом в цикле открываем их построчно или так тоже получится некорректно? У меня маловато опыта в этом( Последний раз редактировалось brookhut, 19.04.2018 в 12:12. |
|
#12
19.04.2018, 12:20
|
||||
|
||||
|
Можно заранее составить список файлов, в которые нужно лист2 пулять, он уже есть, если в диалоге мультиселект выбран, но остаётся загадкой откуда лист этот выдирать - донор один и тот же или каждому своё, вот этот момент так и остался непонятен
|
|
#13
19.04.2018, 12:32
|
|||
|
|||
|
Цитата:
Папка№2-файл№1->Папка№1-файл№1 Папка№2-файл№2->Папка№1-файл№2 ... Папка№2-файл№100->Папка№1-файл№100 |
Линейный вид
