Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Сохранить в архив https://www.cyberforum.ru/ delphi-beginners/ thread1474379.html
В ходе работы программы, формируются 2 файла, txt и jpg. Необходимо с помощью savedialog сохранить эти файлы под одним именем (задаваемым пользователем) в архив (.zip). Подскажите как это можно...
Delphi Работа с inputbox
procedure TForm1.button1Click (Sender: TObject); Var l,value:string; begin repeat l:='12345'; Value :=inputbox ('безопасность', 'пожалуйста, введите пароль', ' '); Until value = 1 Then begin...
Очистить содержимое текстового файла Delphi
как кодом почистить файл txt
Delphi В коде подчеркивается 'parse' Здравствуйте, нашел код в интернете для приложения Тюряга Вконтакте, вот попробовал пихнуть себе в бот, но возникла ошибка: procedure TForm1.Button3Click(Sender: TObject); var p,i:Tstrings;... https://www.cyberforum.ru/ delphi-beginners/ thread1474351.html
Delphi Создать список клиентов с возможностью сортировки https://www.cyberforum.ru/ delphi-beginners/ thread1474311.html
Delphi 7.Создать проект, который содержит список клиентов. Пользователь имеет возможность ввести и отсортировать этот список.
Delphi Определить координаты первого минимального элемента побочной диагонали матрицы
Определить координаты первого минимального элемента побочной диагонали квадратного массива.
Выяснить, является ли матрица магическим квадратом Delphi
Дан двумерный массив размером n х n, заполненный целыми числами. Выяснить, является ли массив магическим квадратом. В магическом квадрате суммы элементов по всем строкам, столбцам и двум диагоналям...
Delphi Выделение мышью неполных рядов StringGrid на Delphi XE7 Ребята, подскажите. Суть проблемы наверное многим знакома. В StringGrid выделение происходит прямоугольником, а нужно выделение рядов, как происходит выделение строк в текстовом файле. Например с 5... https://www.cyberforum.ru/ delphi-beginners/ thread1474294.html
Delphi Включить VertScroolBar формы при bsNone https://www.cyberforum.ru/ delphi-beginners/ thread1474266.html
Как включить VertScroolBar формы при bsNone? и можно ли вообще?
Delphi Строковый тип данных - Составить программу, печатающую каждое слово предложение в обратном порядке Строковый тип данных - Составить программу, печатающую каждое слово предложение в обратном порядке. P.S. Распишите все пожалуйста:) https://www.cyberforum.ru/ delphi-beginners/ thread1474247.html
13064 / 5850 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
11.06.2015, 01:29 0

Выбор определенной информации в Word и перенос ее в Excel

11.06.2015, 01:29. Просмотров 1133. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Alex18206 как решение

Решение


Как разрабатывать приложения для работы с MS Office.
Инструкция: Использование Excel из Delphi

Для чтения/записи данных в документ MS Word удобно использовать механизм закладок MS Word. Пример, показывающий, что это и как с этим работать: Как записать данные в файл MS Word. В этом примере выполняется запись данных на закладки, определённые в документе MS Word. Можно сделать и наоборот - читать данные из закладок MS Word.

О записи данных в рабочую книгу MS Excel. Пример, как открыть книгу и записать на первом её листе в определённую ячейку текст: Открыть файл Excel в Delphi
Если надо не открыть существующую, а создать новую книгу и выполнить запись текста в ячейку:
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
uses
  ComObj;
 
procedure TForm1.Button1Click(Sender : TObject);
var
  exApp, exBook, exSh : OleVariant;
begin
  //Запуск экземпляра Excel и получение ссылки на интерфейс корневого объекта (Excel.Application).
  exApp := CreateOleObject('Excel.Application');
  //Делаем видимым окно MS Excel. На время отладки или на постоянной основе.
  exApp.Visible := True;
  //Создаём рабочую книгу и получаем ссылку на её интерфейс.
  exBook := exApp.Workbooks.Add;
  //Ссылка на интерфейс первого листа рабочей книги.
  exSh := exBook.Worksheets[1];
  
  //Запись текста в ячейку на третьей строке и втором столбце:
  exSh.Cells[3, 2].Value := 'Этот текст записан в ячейку с адресом: ' + exSh.Cells[3, 2].Address;
  
  //exApp.DisplayAlerts := False; //Отключаем режим предупреждений.
  //try
  //  exBook.SaveAs('Полный путь файла'); //Запись рабочей книги в файл.
  //finally
  //  exApp.DisplayAlerts := True; //Включаем режим предупреждений.
  //end;
  //exBook.Close; //Закрываем рабочую книгу.
  //exApp.Quit;   //Закрываем MS Excel
end;


Вернуться к обсуждению:
Выбор определенной информации в Word и перенос ее в Excel
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.06.2015, 01:29
Готовые ответы и решения:

Перенос информации из excel в word
Здравствуйте! Есть большая просьба - помогите))) Возможно ли с помощью Макросов VBA решить задачу...

Перенос информации из ячеек Excel в Word
Добрый день всем. Люди добрые помогите разобратся с таким заданием: Перенос текстовой и числовой...

Перенос данных из Excel в Word (на основе Word шаблона)
Пожалуйста помогите, приведите какой-то пример как организовать этот процесс нужно из...

Вывод информации из определённой строки листа Excel
доброго времени суток! Imports Microsoft.Office.Interop Public Class Form1 Dim oEx As...

2
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.