Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
ВнизЗагрузка результата селекта в Excel Найти похожие ветки
← →
Oleon (2002-04-09 17:19) [2]var
XLApp : Variant;
Sheet : Variant;
RangeHeader : Variant;
RangeStr : String;
Begin
XLApp:= CreateOleObject("Excel.Application");
XLApp.Visible := True;
XLApp.Workbooks.Add(xlWBatWorkSheet);
XLApp.Workbooks[1].WorkSheets[1].Name := Title;
Sheet := XLApp.Workbooks[1].WorkSheets[Title];
for i := 1 to "кол-во столбцов d селекте" do
for j := 1 to "записей так эдак тыши 3 ... 4 ..." do
Sheet[i,j] := ....AsString;
End;
Good Luck!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c