(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 

Конференция "Micro Focus/Borland"

Обсуждение вопросов, связанных с компанией Micro Focus/Borland, ее продуктами CaliberRM, CaliberRDM, SilkTest, StarTeam, TeamDefine, Together и других.

 
 
Добавить сообщение »

Тема: TExcelApplication e.t.c

Автор:  Fanatff Дата: 10.06.2009 14:47
Как загружать данные книги Excel в StringGrig?
Ответить на сообщение »
 
Автор:  Николай Дата: 04.11.2003 05:25
Lexius пишет 01.06:
>Начал недавно разбираться в Delphi с компонентами TExcel.... не могу вникнуть.
>Есть уже готовый файл *.xls. Нужен небольшой пример кода, который открывает
>этот файл посредством компонентов TExcelAllication, TExcelAllicationSheet, e.t.c.
>и передает какие - нибудь данные в ячейки открытой книги.
>
Вот простейший пример:
procedure TForm1.Button1Click(Sender: TObject);
var s: String; svrIntf: _Worksheet;
begin
ExcelApplication.Workbooks.Open('c:\mybook.xls', // открываем книгу
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,0);

svrIntf:=ExcelApplication.Workbooks['mybook.xls'].Sheets[1] as _Worksheet; //номер или имя листа (с книгой - также)
ExcelWorksheet.ConnectTo(svrIntf); // привязка к интерфейсу IDispatch для листа
s:=ExcelWorksheet.Cells.Item[1,1]; // собственно ячейка
end;

Тут две компоненты:
TExcelWorksheet и TExcelApplication, у TExcelWorksheet в свойствах надо поставить
AutoConnect=False
ConnectKind=ckAttachToInterface
Ответить на сообщение »
 
Автор:  Николай Дата: 04.11.2003 05:23
Lexius пишет 01.06:
>Начал недавно разбираться в Delphi с компонентами TExcel.... не могу вникнуть.
>Есть уже готовый файл *.xls. Нужен небольшой пример кода, который открывает
>этот файл посредством компонентов TExcelAllication, TExcelAllicationSheet, e.t.c.
>и передает какие - нибудь данные в ячейки открытой книги.
>
Вот простейший пример:
procedure TForm1.Button1Click(Sender: TObject);
var s: String; svrIntf: _Worksheet;
begin
ExcelApplication.Workbooks.Open('c:\mybook.xls', // открываем книгу
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,0);

svrIntf:=ExcelApplication.Workbooks['mybook.xls'].Sheets[1] as _Worksheet; //номер или имя листа (с книгой - также)
ExcelWorksheet.ConnectTo(svrIntf); // привязка к интерфейсу IDispatch для листа
s:=ExcelWorksheet.Cells.Item[1,1]; // собственно ячейка
end;

Тут две компоненты:
TExcelWorksheet и TExcelApplication, у TExcelWorksheet в свойствах надо поставить
AutoConnect=False
ConnectKind=ckAttachToInterface
Ответить на сообщение »
 
Автор:  Lexius Дата: 01.06.2003 23:00
Начал недавно разбираться в Delphi с компонентами TExcel.... не могу вникнуть.
Есть уже готовый файл *.xls. Нужен небольшой пример кода, который открывает
этот файл посредством компонентов TExcelAllication, TExcelAllicationSheet, e.t.c.
и передает какие - нибудь данные в ячейки открытой книги.
Ответить на сообщение »
 

Добавить сообщение »

 Распечатать »
 Правила публикации »
   
 Рекомендовать »  
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Электронный ключ + ссылка на скачивание дистрибутива. Срок доставки от 10 минут. Pinnacle Studio 17 Plus ML + Pinnacle Studio 18 ESD. Электронный ключ.
Электронная лицензия Outpost Antivirus Pro, 1 год обновлений, домашняя лицензия - комплект из 3-х лицензий Купить Outpost Antivirus Pro Домашняя (Personal Pack), 3 ПК, 1 год
Коробка. Graphics Suite X7 – Small Business Edition, предназначенного для малого бизнеса. Каждая покупка нового издания пакета предоставляет покупателю ТРИ полноценные лицензии на использование CorelDRAW Graphics Suite X7. CorelDRAW Graphics Suite X7 - Small Business Edition. Русский. Коробка.
Продление лицензии Антивирус ESET NOD32 SMALL Business Pack для 5 пользователей на 1 год. Оформить заказ на продление возможно в течении двух месяцев до окончания действия текущей лицензии. Антивирус ESET NOD32 SMALL Business Pack renewal for 5 user. Электронный ключ.
<P><STRONG>Электронный ключ: Продление лицензии ESET NOD32 Антивирус для 3 ПК на 2 год</P></STRONG> Продление лицензии ESET осуществляется со скидкой 40% от стоимости полной версии. Предложение по продлению лицензий действительно за 2 месяца до даты... ESET NOD32 Антивирус - продление лицензии на 2 года на 3ПК
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
PrintBox3D One - новый российский 3D принтер, спроектированный с участием лучших инженеров по ЧПУ оборудованию. Благодаря этому точность печати достигает 50 мкм! Это в два раза меньше, чем размер пикселя экрана Apple iPhone 4! PrintBox3D One
Makerbot Replicator персональный 3D-принтер с возможностью двухцветной печати, который позволяет печатать довольно крупные вещи! MakerBot Replicator 2-head
CubeX Duo - имеет 2 печатающие головки, в отличие от CubeX, что позволяет одновременно печатать двумя цветами, но при этом снизилась область построения (230 × 265 × 240 мм). CubeX Duo
Sense имеет гибкую область сканирования и может захватить все, от кекса до  человека в полный рост, обрабатывая данные за секунды и мгновенно формируя файл для 3D печати. 3D сканер SENSE
Новый PICASO 3D Designer 1.2. PICASO 3D Designer (Желтый)
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Delphi - проблемы и решения
СУБД Oracle "с нуля"
Мир OLAP и Business Intelligence: новости, статьи, обзоры
 
Рассылки Maillist.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Delphi - проблемы и решения
Corel DRAW - от идеи до реализации
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
Обсуждения в форумах
Создание базы данных в Delphi, без сторонних БД (1)
Уважаемый автор, гуглю уже который день и у Вас как у всех "кидаем.." "даже не создаем проект"...
 
C++ Builder6 & Excel (11)
Доброе время суток! Пишу приложение в C++ Builder6 для формирования файлов Excel. Требуется...
 
Принцип создания плагинов в Delphi (3)
Достали, Эта статья не о плагинах а о подключении dll и возможности использования ресурсов в...
 
QuickREport (40)
Есть приложение скомпилированное в Delphi6. Для построения отчетов я использовал компонеты из...
 
Печать на принтер вертикальных строк (12)
Как напечатать на принтер вертикальные и горизонтальные строки, например, нарисовать заголовки...
 
 
 



    
rambler's top100 Rambler's Top100