![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Уважаемые товарисчи форумчане! поможите чем можите)
Суть такова - есть книга 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
|
||||
|
||||
![]() Если тебе все еще интересно, то вот держи...
Только предваритьльно кинь на форму компонент 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. |