Excel и Delphi

@kip4ak007 · Регистрация: 24.11.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте обратился на этот форум с надеждой что подскажут как сделать в Delphi ссылку на Excel.

@Alex_pac · 01.01.2012, 11:16

Delphi
1
2
3
4
5
6
7
8
uses ShellApi;
 
<..>
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(self.Handle,'','excel','','',SW_SHOW);
end;

@SAMZ · 01.01.2012, 14:44

Здесь было немало хороших постов по работе с Excel документами из среды Дельфи. Поищи!

@kip4ak007 · 05.01.2012, 07:17 **[ТС]**

Alex pac спасибо большое за предоставленую информацию а как можно сделать так что бы он открывал другие уже созданые файлы в Excel большое спасибо за раннее

@SAMZ · 05.01.2012, 11:27

ИМХО для этого лучше использовать Excel.Application из ComObj. Ниже пример участка кода, отрывающего excel документ

Delphi
1
2
3
4
5
6
7
8
9
10
  if OpenDialog1.Execute = false then Exit;
  ST := OpenDialog1.FileName;
  S:= ExtractFileName(OpenDialog1.FileName);
  Excel := CreateOleObject('Excel.Application');
  Excel.Workbooks.Open(ST);
  Excel.Application.WindowState := 2;
  Excel.Visible := true;
  WorkBook := Excel.WorkBooks.Item[1];
  WorkSheet := Workbook.Sheets.Item[1];
// и т.д.

Здесь Excel, WorkBook, WorkSheet - переменные типа variant
Остальное все прозрачно.

@kip4ak007 · 10.01.2012, 00:55 **[ТС]**

то есть надо на форму кинуть OpenDialog и вставить код что вы написали?

@SAMZ · 10.01.2012, 06:37

Сообщение от kip4ak007

то есть надо на форму кинуть OpenDialog и вставить код что вы написали?

Примерно, так! Но не забудьте в секции uses прописать модуль comobj

@kip4ak007 · 13.01.2012, 10:32 **[ТС]**

спасибо огромное

Добавлено через 1 час 9 минут
я прописал в секции uses модуль comobj но он ругается в коде может не туда вставил код??

@SAMZ · 13.01.2012, 10:59

1. Надо все же показать как и куда вставили
2. Ругается как, цивильными словами, нецензурно или еще как-то!

@MsGuns · 13.01.2012, 11:34

На запрос "Delphi и Excel" гугль выплюнул 60 000 000 линков

Не поленился, из первой же странички выбрал 2 вполне подходящих ТС:
http://www.afalinasoft.com/rus/tips/index.html
http://www.webdelphi.ru/2009/0... ovy-osnov/

Когда же вы научитесь пользоваться поисковиками ?

@kip4ak007 · 13.01.2012, 23:12 **[ТС]**

вот сделал скрин посмотрите что не так

@Mawrat · 14.01.2012, 02:18

Сообщение от kip4ak007

вот сделал скрин посмотрите что не так

kip4ak007, внизу окна, где показан код модуля, есть область, в которой компилятор печатает сведения о результатах проверки и компиляции кода. И там чёрной треугольной пометкой слева выделена строка:

Code
1
[Error]Unit1.pas(29): Undeclared identifier: 'ST'

Предлагаю догадаться, что это означает.

@MsGuns · 16.01.2012, 12:47

Это означает что копипаста "рулит" и что ТС ничего кроме копипасты не знает и знать не желает

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .

@kip4ak007 0 / 0 / 0 Регистрация: 24.11.2011 Сообщений: 53

	Excel и Delphi 01.01.2012, 10:29. Показов 1713. Ответов 12 Метки нет (Все метки) Здравствуйте обратился на этот форум с надеждой что подскажут как сделать в Delphi ссылку на Excel. 0

@SAMZ 1263 / 706 / 62 Регистрация: 21.12.2009 Сообщений: 2,256
	01.01.2012, 14:44
	Здесь было немало хороших постов по работе с Excel документами из среды Дельфи. Поищи! 0

@kip4ak007 0 / 0 / 0 Регистрация: 24.11.2011 Сообщений: 53
	05.01.2012, 07:17 [ТС]
	Alex pac спасибо большое за предоставленую информацию а как можно сделать так что бы он открывал другие уже созданые файлы в Excel большое спасибо за раннее 0

@kip4ak007 0 / 0 / 0 Регистрация: 24.11.2011 Сообщений: 53
	10.01.2012, 00:55 [ТС]
	то есть надо на форму кинуть OpenDialog и вставить код что вы написали? 0

@kip4ak007 0 / 0 / 0 Регистрация: 24.11.2011 Сообщений: 53
	13.01.2012, 10:32 [ТС]
	спасибо огромное Добавлено через 1 час 9 минут я прописал в секции uses модуль comobj но он ругается в коде может не туда вставил код?? 0

@SAMZ 1263 / 706 / 62 Регистрация: 21.12.2009 Сообщений: 2,256
	13.01.2012, 10:59
	1. Надо все же показать как и куда вставили 2. Ругается как, цивильными словами, нецензурно или еще как-то! 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	13.01.2012, 11:34
	На запрос "Delphi и Excel" гугль выплюнул 60 000 000 линков Не поленился, из первой же странички выбрал 2 вполне подходящих ТС: http://www.afalinasoft.com/rus/tips/index.html http://www.webdelphi.ru/2009/0... ovy-osnov/ Когда же вы научитесь пользоваться поисковиками ? 0

@kip4ak007 0 / 0 / 0 Регистрация: 24.11.2011 Сообщений: 53
	13.01.2012, 23:12 [ТС]
	вот сделал скрин посмотрите что не так Миниатюры 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	16.01.2012, 12:47
	Это означает что копипаста "рулит" и что ТС ничего кроме копипасты не знает и знать не желает 0