Передача данных в 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

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