Форум: "Основная";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
ВнизПередача данных в 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c