Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 26.05.2010, 21:59
Аватар для Che Bureque
Che Bureque Che Bureque вне форума
Прохожий
 
Регистрация: 23.05.2010
Сообщения: 3
Репутация: 10
Восклицание Книга excel, как база

Уважаемые товарисчи форумчане! поможите чем можите)
Суть такова - есть книга excel в которой на первом листе размещены данные (текст) в двух столбцах. Необходимо определить кол-во заполненных строк первого столбца и считать их как элементы RadioGroup при запуске программы.

Подключил Excel посредством XL:=CreateOleObject('Excel.Application');
открыл книгу посредством XL.Workbooks.Open(Path +'data\data.xls');
на этом застопорился - перепробовал кучу вариантов из различных источников, но ничего лучше чем "Объект группы не найден" не получилось... Напишите, пожалуйста, кусок рабочего(реально рабочего, тобишь протестеного) кода, реализующего данную задачу.
Использую Embarcadero RAD Studio 2010, MS Office 2007.

ЗЫ: Есть ли какой-нибудь способ отображать "подсветкой" содержимое класса Excel.Application при написании кода (как во встроенных классах Delphi)??

Последний раз редактировалось Che Bureque, 28.05.2010 в 05:53.
Ответить с цитированием
  #2  
Старый 06.06.2010, 10:48
Аватар для Kailon
Kailon Kailon вне форума
Активный
 
Регистрация: 06.06.2010
Сообщения: 340
Версия Delphi: 11.3
Репутация: 429
По умолчанию А может и пригодиться...

Если тебе все еще интересно, то вот держи...
Только предваритьльно кинь на форму компонент ExcelApplication1 с закладки Servers. Для простоты его переименовал в Excel.
Код:
var
  Form1: TForm1;
  MyPath: String; //лучше всего в глобальные запихнуть

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
 i: Byte; //для цикла
begin
//получаем путь откуда запустилась программа
 GetDir(0,MyPath);
//подключаемся к документу
 Excel.Workbooks.Add(MyPath + '\Test.xls',0);
//погнали заполнять
 for i := 1 to 20 do
  RadioGroup1.Items.Add(Excel.Cells.Item[i,1]);
end;

P.S.: должно работать и с Office 2007, но точно не скажу, т.к. он меня не устраивает и поэтому не установлен

Последний раз редактировалось Kailon, 06.06.2010 в 11:01.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:28.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025