5 / 5 / 0
Регистрация: 15.04.2014
Сообщений: 43

Обмен данными между Excel и приложением с применением dde

10.07.2014, 13:57. Показов 3140. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здраствуйте, помогите ,пожалуйста, нужно написать программу обмена данными между программой excel и delphi с помощью технологии DDE (с экзель в делфи и с делфи в экзель записывать) Дело в том, что я почти сделала, Но не знаю, как сделать чтобы запись сохранялась. Она у меня при добавлении новой записи создает новый файл. А также при чтении не выходит, не открывается файл. Вот эти два пункта не получаются подскажите пожалуйста.
Вот все что я написала
Также прикрепляю саму программу, то что смогла сделать.

Запись данных в ячейку на листе книги Excel:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TForm1.Button1Click(Sender: TObject);
var
  exApp, exBook, exSheet : Variant;
  Row, Col : Integer;
  S : String;
begin
  //Координаты ячейки на листе Excel.
  //Строка.
  Row := StrToInt( Edit1.Text );
  //Столбец.
  Col := StrToInt( Edit2.Text );
  //Текст, который надо записать в ячейку.
  S := Edit3.Text;
 
  //Попытка запустить и подключиться к Excel.
  exApp := CreateOleObject('Excel.Application');
  //Делаем видимым окно Excel.
  exApp.Visible := True;
  //Создаём рабочую книгу.
  exBook := exApp.Workbooks.Add;
  //Подключаемся к первому листу раб. книги.
  exSheet := exBook.Worksheets[1];
  //Записываем заданный пользователем текст в ячейку
  //с заданными координатами.
  exSheet.Cells[Row, Col].Value := S;
end;
Открытие файла Excel и чтение данных из ячейки с заданными координатами:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure TForm1.Button2Click(Sender: TObject);
const
  Fn = 'Книга1.xls';
var
  exApp, exBook, exSheet : Variant;
  Row, Col : Integer;
  S, FileName : String;
begin
  //Координаты ячейки на листе Excel.
  //Строка.
  Row := StrToInt( Edit4.Text );
  //Столбец.
  Col := StrToInt( Edit5.Text );
  
  //Попытка запустить и подключиться к Excel.
  exApp := CreateOleObject('Excel.Application');
  //Делаем видимым окно Excel.
  exApp.Visible := True;
  //Получаем полное имя файла книги, которая лежит в той же папке, где
  //расположен исполняемый файл нашей программы.
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  //Открываем рабочую книгу.
  exBook := exApp.Workbooks.Open(FileName);
  //Подключаемся к первому листу раб. книги.
  exSheet := exBook.Worksheets[1];
  //Читаем текст из ячейки.
  S := exSheet.Cells[Row, Col].Text;
  //Показываем прочитанный текст.
  ShowMessage('Прочитан текст: ' + S);
end;
 
end.
проект.rar
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
10.07.2014, 13:57
Ответы с готовыми решениями:

Обмен данными между программами с помощью технологии DDE.
Помогите ,пожалуйста,написать программу, которая будет передавать в Excel коэффициенты квадратного уравнения и получать обратно значения...

Обмен данными между веб-приложением (Flask) и графическим приложением (PyQt5) (Python3.7)
С помощью каких библиотек (модулей) и каким образом можно реализовать сервер на базе графического приложения сделанного с помощью...

Обмен данными между приложением на C# и Python
Обмен данными между приложением на C# и Python Здравствуйте, недавно стал изучать C#, и понадобилось обмениваться данными между Python...

2
1234 / 424 / 107
Регистрация: 31.03.2012
Сообщений: 1,159
11.07.2014, 04:00
Немного переделал. В коде нет никакого контроля за правильностью введенных данных
Вложения
Тип файла: 7z exm.7z (183.0 Кб, 5 просмотров)
0
1234 / 424 / 107
Регистрация: 31.03.2012
Сообщений: 1,159
11.07.2014, 09:12
немножко переделал, чтобы повторно не открывать уже открытый файл Excel'я
Вложения
Тип файла: 7z exm.7z (184.1 Кб, 30 просмотров)
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
11.07.2014, 09:12
Помогаю со студенческими работами здесь

Обмен данными между c++ dll и c# приложением
Пишу программу, в которой требуется много Win32 Api вызовов. Препод сказал, что активное использование последних понижает...

Обмен данными между BackgroundAudioPlayer и своим приложением
В общемто задача такая. Пишу программу, играет различное потоковое мультимедия, аудио видео и прочее. Когда засовываю аудио в Бэкграунд...

Как организовать обмен данными между WPF и консольным приложением?
В решении 2 проекта, WPF App и Console App, работают они одновременно при выполнении в консоли команд, должны обновляться данные в...

Динамический обмен данными (DDE)
Добрый день, помогите пожалуста с изучением области Динамический обмен данными (DDE) необходимо создать сервер принимаюший данные от...

Обмен данными со SCADA по DDE протоколу
День добрый господа программисты! Очень нужна помощь знающего человека! Есть программа, которая опрашивает девайс через com-порт. Она...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

Новые блоги и статьи
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
PowerShell Snippets
iNNOKENTIY21 11.11.2025
Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .
PowerShell и онлайн сервисы. Валюта (floatrates.com руб.)
iNNOKENTIY21 11.11.2025
PowerShell функция floatrates-rub Примеры вызова: # Указанная валюта 'EUR' floatrates-rub -Code 'EUR' # Список имеющихся кодов валют floatrates-rub -Available function floatrates-rub {
PowerShell и онлайн сервисы. Погода (RP5.ru)
iNNOKENTIY21 11.11.2025
PowerShell функция Get-WeatherRP5rss для получения погоды с сервиса RP5 Примеры вызова Get-WeatherRP5rss с указанием id 5484 — Москва (восток, Измайлово) и переносом строки:. . .
PowerShell и онлайн сервисы. Погода (wttr)
iNNOKENTIY21 11.11.2025
PowerShell Функция для получения погоды с сервиса wttr Примеры вызова: Погода в городе Омск с прогнозом на день, можно изменить прогноз на более дней, для этого надо поменять запрос:. . .
PowerShell и онлайн сервисы. Валюта (ЦБР)
iNNOKENTIY21 11.11.2025
# Получение курса валют function cbr (] $Valutes = @('USD', 'EUR', 'CNY')) { $url = 'https:/ / www. cbr-xml-daily. ru/ daily_json. js' $data = Invoke-RestMethod -Uri $url $esc = 27 . . .
И решил я переделать этот ноут в машину для распределенных вычислений
Programma_Boinc 09.11.2025
И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .
Мысли в слух
kumehtar 07.11.2025
Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.
Новая зверюга
volvo 07.11.2025
Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .
Инференс ML моделей в Java: TensorFlow, DL4J и DJL
Javaican 05.11.2025
Python захватил мир машинного обучения - это факт. Но когда дело доходит до продакшена, ситуация не так однозначна. Помню проект в крупном банке три года назад: команда data science натренировала. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru