Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.27;
Скачать: CL | DM;

Вниз

Как из DBGrid-а перенести данные в существующий файл Excel ?   Найти похожие ветки 

 
kioto   (2002-06-01 20:27) [0]

и что бы работало под 97 и 2000 Excel-ем, нужен код процедуры


 
xUSSR ©   (2002-06-02 13:17) [1]

//Если не обезательно из DBGrid-а... то вот пример из Query ...
// Если есть вопросы то № ACQ 134087719

Procedure SendtoExcel(ShFile: String; Querys: TQuery); //имя файла шаблона и откуда (можно TTable)
Var
ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData: Variant;
BeginCol, BeginRow, j: integer;
RowCount, ColCount: Integer;
Begin
BeginCol := 1;
BeginRow := 3;

// Размеры выводимого массива данных
RowCount := Querys.RecordCount;
ColCount := Querys.FieldDefs.Count;

// Создание Excel
ExcelApp := CreateOleObject("Excel.Application");

// Отключаем реакцию Excel на события, чтобы ускорить вывод информации
ExcelApp.Application.EnableEvents := false;

// Создаем Книгу (Workbook)
// Если заполняем шаблон, то
Workbook := ExcelApp.WorkBooks.Add(ShFile);
ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);

// Заполняем массив
Querys.DisableControls;
Querys.First;
While Not Querys.eof Do
Begin
For J := 1 To Querys.FieldDefs.Count Do
Begin
ArrayData[Querys.RecNo, J] := Querys.FieldbyName(Querys.FieldDefs.Items[j - 1].DisplayName).value;
End;
Querys.Next;
End;

Querys.EnableControls;

// Левая верхняя ячейка области, в которую будем выводить данные
Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
// Правая нижняя ячейка области, в которую будем выводить данные
Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow + RowCount - 1, BeginCol + ColCount - 1];

// Область, в которую будем выводить данные
Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];

// А вот и сам вывод данных
// Намного быстрее поячеечного присвоения
Range.Value := ArrayData;

// Делаем Excel видимым
ExcelApp.Visible := True;
End;



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

Текущий архив: 2002.06.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
14-89014
Bander_Log
2002-05-25 14:56
2002.06.27
Help


1-88857
eviruswork
2002-06-14 13:45
2002.06.27
Невидимая форма


1-88945
DeepProg
2002-06-10 17:22
2002.06.27
Откладывание выполения задания


1-88895
QWest
2002-06-14 15:22
2002.06.27
Помогите, плиииизз......


3-88735
Jaroshik
2002-06-04 10:58
2002.06.27
Отчеты QuickReport