Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 15.10.2019, 07:44   #1
comp43
Новичок
Джуниор
 
Регистрация: 19.05.2009
Сообщений: 1
По умолчанию Работа с Excel в Delphi

Помогите пжлста с решением!
Программа написана на Delphi7. Программа сначала обращается к одному документу Excel, добавляет столбец и вставляет в его "шапку" текст-название. Потом обращается ко второму документу Excel, считывает данные с ячеек. После этого эти данные необходимо внести в ячейки вставленного столбца 1-го документа Excel. На 1-м документе добавляет столбец со сдвигом столбцов вправо, вставляет в его шапку текст-название, после обращается ко 2-му документу, все действия производит. Но когда снова обращается к 1-му документу Excel -вставленный столбец с шапкой-названием "исчезает" и данные вставляются в столбец, оказавшийся на его месте. И вставленными оказываются только данные последней строчки(например должны вставится 3 строчки(ячейки в столбце друг под другом)), а вставляется только последняя строчка в указанную ячейку.

// Работа с 1-м документом

d:=10;
ExlApp.ActiveSheet.Columns[d].Select;
ExlApp.ActiveSheet.Columns[d].Insert(Shift:=xlToRight,CopyOrigin :=xlFormatFromLeftOrAbove);
ExlApp.ActiveSheet.Cells[1,d]:='Кол-во откликов';

// Работа со 2-м документом
s:=ExlApp.Workbooks.Open(XLSFile2). WorkSheets.Item[1].Cells[1,4];

//Вставка данных в 1-й документ

ExlApp.Workbooks.Open(XLSFile1).Wor kSheets.Item[1].Cells[2,10]:=s;
ExlApp.Workbooks.Open(XLSFile1).Wor kSheets.Item[1].Cells[3,10]:=s;
ExlApp.Workbooks.Open(XLSFile1).Wor kSheets.Item[1].Cells[4,10]:=s;
Вложения
Тип файла: 7z Открытие 2х и обращение к 2-м документам Excel.7z (692.0 Кб, 25 просмотров)
comp43 вне форума Ответить с цитированием
Старый 15.10.2019, 08:54   #2
beegl
Программ Аналитик
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,383
По умолчанию

Цитата:
Сообщение от comp43 Посмотреть сообщение
обращается к одному документу Excel, добавляет столбец и вставляет в его "шапку" текст-название. Потом обращается ко второму документу Excel, считывает данные с ячеек. После этого эти данные необходимо внести в ячейки вставленного столбца 1-го документа Excel. На 1-м документе добавляет столбец со сдвигом столбцов вправо, вставляет в его шапку текст-название, после обращается ко 2-му документу, все действия производит. Но когда снова обращается к 1-му документу Excel -вставленный столбец с шапкой-названием "исчезает" и данные вставляются в столбец, оказавшийся на его месте. И вставленными оказываются только данные последней строчки(например должны вставится 3 строчки(ячейки в столбце друг под другом)), а вставляется только последняя строчка в указанную ячейку.
можно с этим: EMS Advanced Excel Report

или с этим: FlexCelVCL
beegl вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с Excel БД в Delphi XE7 Qwerty169 БД в Delphi 8 06.12.2016 19:46
Работа с Excel в Delphi KyTuH Общие вопросы Delphi 1 29.05.2013 06:26
Delphi работа с Excel all_is_fear Помощь студентам 5 17.07.2012 18:31
Delphi 7 работа с Excel Alkifr Помощь студентам 0 30.10.2010 00:31
Работа с Excel из под Delphi. S_Yevgeniy Помощь студентам 0 08.12.2009 09:13