![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
|
Всем доброго времени суток! Такая задачка постигла мой разум.
Есть у меня прайс-лист организации, нужно выбрать все позиции из этого прайс-листа и отправить в бд сайта ну это по sql разберусь. Может кто подскажет как указать в Delphi начало позиции и конец позиций чтоб в исходе их хотя б в stringgird вкинуть. Знаю в msWordOfisse можно метки ставить может и в Excel такое присутствует. Для примера прайс в прикреплении. Всем заранее большое спасибо. |
|
#2
|
||||
|
||||
|
А в экселе есть клетки
![]() Вот в сторону их и копай. |
|
#3
|
|||
|
|||
|
Код:
var
e_app: Variant;
rowcount, colcount: integer;
begin
............
e_app := CreateOleObject('Excel.Application');
e_app.WorkBooks.Open('test.xls');
// то что Вам нужно по текущему активному листу
rowcount := e_app.ActiveSheet.UsedRange.Rows.Count;
colcount := e_app.ActiveSheet.UsedRange.Columns.Count;
..............
end;P.S.: если я вопрос вообще правильно понял. Последний раз редактировалось Assistant, 04.04.2011 в 01:43. |
|
#4
|
||||
|
||||
|
Большое спасибо дальше сам развевать буду
|