Скачать: CL | DM;

Передача данных в Excel из C++ Builder   Найти похожие ветки 

← →
lightix   (2003-05-29 15:06) [0]

Подскажите, как в C++ Builder можно организовать сабж?
Раньше на делфи все работало на ура, теперь мучаюсь не могу это переписать на с++ ....
помогите плз...
вот что было на делфи
procedure TForm1.BitBtn1Click(Sender: TObject);
Var i,j : Integer;
exl: OLEVariant;
WorkBook,Sheet : Variant;
begin
form1.DataSource1.Enabled:=false;
try
exl := CreateOleObject("Excel.Application");
WorkBook := exl.Application.WorkBooks.Add;
Sheet := WorkBook.WorkSheets[1];
for j:=0 to Query1.Fields.Count-1 do
begin
Sheet.Cells(1,j+1) := Query1.Fields[j].FullName;
end;
i:=2;
while not Query1.EOF do
begin
for j:=0 to Query1.Fields.Count-1 do
begin
Sheet.Cells(i,j+1) := Query1.Fields[j].asString;
end;
i:=i+1;
Query1.Next;
end;

Sheet.Cells.Columns.Autofit;

exl.visible:=true;
end;
form1.DataSource1.Enabled:=true;

end;

---

← →
Alexander1966 ©   (2003-05-29 16:35) [1]

Поищи в Инете по предложению:

Создание контроллеров автоматизации с помощью C++Builder

Вот оригинал:
http://www.citforum.ru/programming/cpp/com_3.shtml

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c