Форум программистов [Powered by Invision Power Board]

Код


var i1,i2,i3,i:integer;    bm:TBookmark;       
begin
  DBGrid1.DataSource.DataSet.DisableControls;
   bm:=DBGrid1.DataSource.DataSet.GetBookmark;
   DBGrid1.DataSource.DataSet.First;

  excelApplication:=CreateOleObject('Excel.Application');
  ExcelApplication.visible:=true;
  ExcelApplication.workBooks.add;
  ExcelApplication.workBooks[1].WorkSheets[1].Name:='Отчет';
  ExcelApplication.cells[1,1].value:='Заголовок';

  ExcelApplication.Columns[1].ColumnWidth:=13;
  
  DBGrid1.DataSource.DataSet.Next;
  ExcelApplication.WorkBooks[1].WorkSheets['Отчет'].Paste;

    DBGrid1.DataSource.DataSet.GotoBookmark(bm);
   DBGrid1.DataSource.DataSet.FreeBookmark(bm);
   DBGrid1.DataSource.DataSet.EnableControls;
   Screen.Cursor:=crDefault;

   Application.Restore;

end;

Код


Memo1:= TMemo.Create(Self);
  Memo1.Visible := false;
  Memo1.Parent :=Form1;
  Memo1.Clear;
  sline := '';

    // добавила информацию для имен колонок
  for col := 0 to DBGrid1.FieldCount-1 do 
    sline := sline + DBGrid1.Fields[col].DisplayLabel + #9; 
  Memo1.Lines.Add(sline);

  // получение данных из Memo
  for row := 0 to DBGrid1.DataSource.DataSet.RecordCount-1 do 
  begin 
    sline := ''; 
    for col := 0 to DBGrid1.FieldCount-1 do 
      sline := sline + DBGrid1.Fields[col].AsString + #9; 
    Memo1.Lines.Add(sline);
    DBGrid1.DataSource.DataSet.Next; 
  end;

   Memo1.SelectAll;
   Memo1.CopyToClipboard;
 ExcelApplication.WorkBooks[1].WorkSheets['Отчет'].Paste;

Цитата(Demo @ 11.10.2006, 10:19

)

Здесь я данные отправляю сначала в Memo, а затем в Excel. Memo используется как промежуточный компонент.
Но теперь другой вопрос: Как мне выбрать конкретные столбцы из DBGrid?

Цитата(Demo @ 11.10.2006, 10:19

)

И еще один вопрос: Можно при передаче данных перевернуть таблицу? Так, чтобы столбцы из DBGrid-а стали строками, а строки столбцами?

Цитата(Genyaa @ 11.10.2006, 10:47)

На этапе "отправления" данных в Мемо нужно перемещать не все столбцы DBGrid, а только нужные. В цикле "отправления" данных проверяйте номера столбцов или их имена на предмет предназначения их к переносу в Excel.

Код


//Пример dbgrid (DBGrid1) имеет всплывающее меню, которое позволяет две опции "Send to Excel" и "Copy"


// ЗАМЕЧАНИЕ: этот метод должен включать COMObj, Excel97 units

// ОБНОВЛЕНИЕ: если Вы используете Delphi 4, то замените xlWBatWorkSheet на 1 (один)


//-----------------------------------------------------------
// если toExcel = false, то экспортируем содержимое dbgrid в Clipboard
// если toExcel = true, то экспортируем содержимое dbgrid в Microsoft Excel
procedure ExportDBGrid(toExcel: Boolean);
var
bm: TBookmark;
col, row: Integer;
sline: String;
mem: TMemo;
ExcelApp: Variant;
begin
Screen.Cursor := crHourglass;
DBGrid1.DataSource.DataSet.DisableControls;
bm := DBGrid1.DataSource.DataSet.GetBookmark;
DBGrid1.DataSource.DataSet.First;

// создаём объект Excel
if toExcel then
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Add(xlWBatWorkSheet);
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Grid Data';
end;

// Сперва отправляем данные в memo
// работает быстрее, чем отправлять их напрямую в Excel
mem := TMemo.Create(Self);
mem.Visible := false;
mem.Parent := MainForm;
mem.Clear;
sline := '';

// добавляем информацию для имён колонок
for col := 0 to DBGrid1.FieldCount-1 do
sline := sline + DBGrid1.Fields[col].DisplayLabel + #9;
mem.Lines.Add(sline);

// получаем данные из memo
for row := 0 to DBGrid1.DataSource.DataSet.RecordCount-1 do
begin
sline := '';
for col := 0 to DBGrid1.FieldCount-1 do
sline := sline + DBGrid1.Fields[col].AsString + #9;
mem.Lines.Add(sline);
DBGrid1.DataSource.DataSet.Next;
end;

// копируем данные в clipboard
mem.SelectAll;
mem.CopyToClipboard;

// если необходимо, то отправляем их в Excel
// если нет, то они уже в буфере обмена
if toExcel then
begin
ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Paste;
ExcelApp.Visible := true;
end;

FreeAndNil(ExcelApp);
DBGrid1.DataSource.DataSet.GotoBookmark(bm);
DBGrid1.DataSource.DataSet.FreeBookmark(bm);
DBGrid1.DataSource.DataSet.EnableControls;
Screen.Cursor := crDefault;
end;