Delphi&Excel

← →
Dkl © (2003-10-23 12:56) [0]

Здраствуйте,пожалуйста помогите.Проблема вот в чем как сделать так чтобы,при нажатии клавиши в программе,она(программа) считывала c Книги Excel данные по какому-то принципу(можно по коду)и суммировала их,т.е
Код товара Кол-во товара
19001 2шт
19001 4шт
=6.
И потом отправляла это в другою таблицу.

Заранее спасибо.

← →
Dkl © (2003-10-24 15:27) [1]

Народ ну хелпаните,пожалуйста.

← →
Digitman © (2003-10-24 15:31) [2]

>как сделать так чтобы

тебе как, на пальцах объяснить ?

ты с технологией использования OLE-серверов знаком ?

← →
Dkl © (2003-10-24 17:22) [3]

Если моно на пальцах,знаком.с експортом я разбирусь.Но вот с остальным?Короче ХХХХХХХХХХЕЕЕЕЕЕЕЕЛЛЛЛЛЛЛЛЛЛПППППППП

← →
Digitman © (2003-10-24 17:29) [4]

открываешь закладку Servers, выбираешь компонент ExcelApplication, бросаешь на форму, в ран-тайм вызываешь его метод Connect, получаешь ссылку на диспинтерфейс _Application и работаешь с ним практически так же, как если бы ты это делал в макросе ExcelVBA

← →
jack128 © (2003-10-24 18:30) [5]

Вообще говоря для этого Дельфя н нужна...Эксель и сам так может

← →
Dkl © (2003-10-24 21:35) [6]

Ребят все,это понятно но кто нить,может обьяснить как это сделать,народ очень нуно просто,просто очень.Пожалуйста.

← →
Dkl © (2003-10-24 21:39) [7]

Именно в коде,я застопорился вот здесь,ExcelApplication:=CreateOleObject("Excel.Application");
ExcelApplication.visible:=true;
ExcelApplication.WorkBooks.Open("C:\i?eoia.xls");
ExcelApplication.Cells.Find(What:="19001", LookIn:=xlFormulas,SearchOrder:=xlByColumns, SearchDirection:=xlNext);
if ExcelApplication.Columns[2]:="19001" then//нужно нахождение по коду,но его я вроде правильно сделал,и кол-во которое равнялось "19001",по всей таблице складывалось.Не могу,не могу,чайник я ,чайник.

Поэтому прошу помощи,
у вас мастера!!!

ран-тайм ,что это такое,и как вообще реализовать это Екселе.Если
бы у меня получилось бы сделать это екселе я бы по макросу,сделал это в Делфи.Гуру,мастера,люди у кого есть в этом опыт пожалуйста помогите,на вся надежда!!!

ран-тайм - во время исполнения..
если что-то нужно сделать с экселем, то открой его и поставь на запись макрос.. выполни то что тебе нужно и останови запись макроса. Потом все то что будет записано в макросе сделай на делфи...

ActiveCell.FormulaR1C1 = _
"=SUMIF(R[-6]C[-7]:R[1835]C[7],R[-6]C[-7],R[-6]C:R[56]C)"
ActiveWindow.SmallScroll Down:=-15
End Sub
как жто перевести в Делфи?

Delphi&Excel Найти похожие ветки