Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Базы данных и репортинг > Delphi: экспорт из DBGrid в MS Excel - ошибка


Автор: Solominka 21.4.2011, 19:38
В общем нужен экспорт выделенной строки из DBGrid в MS Excel.
Очень хотелось бы узнать, как это реализовать.
К слову, экспорт у меня пока не работает совсем даже обычный, пишу вот такой код:

Код

procedure TForm9.BitBtn1Click(Sender: TObject);

var
i,j,index: Integer;
ExcelApp,sheet: Variant;
begin
 ExcelApp := CreateOleObject('Excel.Application');
 ExcelApp.Visible := False;
 ExcelApp.WorkBooks.Add(-4167);
 ExcelApp.WorkBooks[1].WorkSheets[1].name := 'Export';
 sheet:=ExcelApp.WorkBooks[1].WorkSheets['Export'];
 index:=1; //Загоняем с первой строки
 DBGrid1.DataSource.DataSet.First;
      for i:=1 to  DBGrid1.DataSource.DataSet.RecordCount do
      begin
      for j:=1 to DBGrid1.FieldCount do
      sheet.cells[index,j]:=DBGrid1.fields[j-1].asstring;
      inc(index);
      DBGrid1.DataSource.DataSet.Next;
      end;
 ExcelApp.Visible := true;

end;


Пишет ошибку "Undeclared identifier: 'CreateOleObject'".
В чём может быть дело?

Автор: Novichek27 21.4.2011, 19:55
procedure Excel2();
Код

var
 XLApp,Sheet,Colum:Variant;
 index,i:Integer;
begin
 XLApp:= CreateOleObject('Excel.Application');
 XLApp.Visible:=true;
 XLApp.Workbooks.Add(-4167);
 XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт'; // + ' ' + Form1.Edit1.Text;
 Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт по запросу'].Columns;
 Colum.Columns[1].ColumnWidth:=50;
 Colum.Columns[2].ColumnWidth:=20;

 Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;
 Colum.Rows[2].Font.Bold:=true;
 Colum.Rows[1].Font.Bold:=true;
 Colum.Rows[1].Font.Color:=clBlue;
 Colum.Rows[1].Font.Size:=12;

 Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт по запросу'];
 Sheet.Cells[1,1]:=IntToStr(Form1.DBGrid1.SelectedRows.Count);
 Sheet.Cells[1,2]:='Заголовок';
 Sheet.Cells[2,1]:='Имя 1-го столбца';
 Sheet.Cells[2,2]:='Имя 2-го столбца';

 index:=3;
 Form1.ADOQuery.First;
 with Form1.DBGrid1.DataSource.DataSet do
 begin
 Form1.ADOQuery.DisableControls;
 for i:=0 to Form1.DBGrid1.SelectedRows.Count-1 do
  begin
  GotoBookmark(pointer(Form1.DBGrid1.SelectedRows.Items[i]));
   Sheet.Cells[index,1]:=Form1.ADOQuery1.Fields.Fields[0].AsString;
   Sheet.Cells[index,2]:=Form1.ADOQuery1.Fields.Fields[1].AsString;
   Inc(index);
  Form1.ADOQuery1.Next;
  end;
  end;
  fForm1..ADOQuery1.EnableControls;
end;


вот для примера, попробуй...

Добавлено @ 19:59
а вообще в uses ComObj, OleCtrls объявлены?

Автор: Solominka 21.4.2011, 20:11
Novichek27, к сожалению, ошибок ещё больше... =__=

Добавлено через 1 минуту и 10 секунд
Цитата

а вообще в uses ComObj, OleCtrls объявлены?


Ээээ... Нет... А как объявить?
Я просто что-то нигде этого не нашла...

Автор: Novichek27 21.4.2011, 20:22
в самом начале Unit'a

Код

unit Unit1;

interface

uses
  SysUtils, Classes, DB, ADODB, Messages, ComObj, OleCtrls; //здесь

Автор: ~FoX~ 21.4.2011, 20:24
Цитата(Solominka @  21.4.2011,  21:11 Найти цитируемый пост)
Ээээ... Нет... А как объявить?

 smile  smile  smile 
В третьей секции проекта

Код

unit Unit1;
//.........
interface
//...........
uses
  Windows, ComObj, OleCtrls;

Автор: Solominka 21.4.2011, 21:07
Объявила... Но выдаёт ошибки...
Почти всё поняла откуда взялось и как исправить... Но на что исправлять 

Код

 GotoBookmark(pointer(frmORDER.DBGrid1.SelectedRows.Items[i]));


Конкретно, жалуется на frmORDER

Автор: ~FoX~ 21.4.2011, 21:15
Это дбгрид лежащий на форме с названием frmORDER.... Ни в твоем ни в коде Novichek27, нету объявления этой формы.... Где ты ее вообще нашел???

Добавлено через 20 секунд
Цитата(Novichek27 @  21.4.2011,  20:55 Найти цитируемый пост)
GotoBookmark(pointer(Form1.DBGrid1.SelectedRows.Items[i]));

Автор: Novichek27 21.4.2011, 21:26
Цитата

Конкретно, жалуется на frmORDER 



frmORDER  - это имя формы, просто переименуй на Form1 

Автор: Solominka 21.4.2011, 21:26
~FoX~, спасибо, убрала строчку - заработало.
Но теперь другая проблема, при открытии Excel выходит ошибка "Неверный индекс"
выделяет строчку
Код

 Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт по запросу'].Columns;

Автор: ~FoX~ 21.4.2011, 21:28
Solominka, В книге должен быть лист с названием 
Цитата(Solominka @  21.4.2011,  22:26 Найти цитируемый пост)
['Отчёт по запросу']


Добавлено через 49 секунд
Проще обращаться по индексу...

Автор: Solominka 21.4.2011, 21:36
Цитата

Проще обращаться по индексу... 


А как мне это сделать, если у меня, допустим, стандартно, Лист1...?

Автор: ~FoX~ 21.4.2011, 21:39
Код

.WorkBooks[1].WorkSheets[1]........

Автор: Novichek27 21.4.2011, 21:40
или вместо ['Отчёт по запросу'] пиши ['Лист1']

Автор: Solominka 21.4.2011, 21:48
Цитата

или вместо ['Отчёт по запросу'] пиши ['Лист1']


Спасибо, я так и сделала smile

Ещё пара вопросиков по теме. Нужно, чтобы был экспорт только выделенной строки, а не всего DBGrid-а. Как это реализовать?

Автор: Novichek27 21.4.2011, 21:58
эту строчку верни на место

Цитата

GotoBookmark(pointer(Form1.DBGrid1.SelectedRows.Items[i]));



DBGrid1 сделай MultiSelect  в настройках Options 

и пробуй...

Добавлено через 10 минут и 39 секунд
Цитата

Ещё пара вопросиков по теме. Нужно, чтобы был экспорт только выделенной строки, а не всего DBGrid-а. Как это реализовать?


вообще-то это и был вопрос темы

Автор: Solominka 21.4.2011, 22:14
Цитата

DBGrid1 сделай MultiSelect  в настройках Options


Сделала.

Цитата

эту строчку верни на место


Если возвращаю - опять ошибку пишет...

Автор: ~FoX~ 21.4.2011, 22:18
Скучно с вами ночью сидеть  smile 
Цитата(Solominka @  21.4.2011,  23:14 Найти цитируемый пост)
сли возвращаю - опять ошибку пишет... 

Какую ошибку?

Автор: Solominka 21.4.2011, 22:19
Цитата

вообще-то это и был вопрос темы


Ну да, но вообще-то сначала я потом на другое отвлеклась...

Всё, работает! Были кое какие проблемы из-за невнимательности... Всем большое спасибо за помощь!  smile 

Автор: Novichek27 21.4.2011, 22:20
Цитата

Если возвращаю - опять ошибку пишет... 


текст ошибки какой?
напиши здесь

Автор: Solominka 21.4.2011, 22:25
Хммм... А не могли бы вы ещё одну вещь подсказать...

Ну чтобы данные из строки грида как бы в столбик отображались:

"Наименование" - значение
"Адрес" - значение

и т.д. а не в строчку, как сейчас... А то я что-то запуталась с этими индексами... Я так понимаю нужно тут что-то исправить, или нет?

Код

 Sheet.Cells[1,1]:=IntToStr(Form1.DBGrid1.SelectedRows.Count);
 Sheet.Cells[1,2]:='Заголовок';
 Sheet.Cells[2,1]:='Имя 1-го столбца';
 Sheet.Cells[2,2]:='Имя 2-го столбца';

Автор: Novichek27 21.4.2011, 22:29
Sheet.Cells[2,1]:='Имя 1-го столбца';
Sheet.Cells[2,2]:='Имя 2-го столбца';

Sheet.Cells[2,1] 2-номер строки, 1-номер столбца    

все...

Автор: Solominka 21.4.2011, 22:31
Цитата

текст ошибки какой?
напиши здесь 


Да уже никакой. Просто забыла переименовать dFrm на Form1 smile вот на него и ругался.

Добавлено через 5 минут и 1 секунду
Цитата

Sheet.Cells[2,1]:='Имя 1-го столбца';
Sheet.Cells[2,2]:='Имя 2-го столбца';

Sheet.Cells[2,1] 2-номер строки, 1-номер столбца    


Да, но теперь значения полей отображаются не корректно. Мне надо чтобы они располагались рядом (напротив Имени столбца), а оно сейчас располагается ПОД ним... В общем вопрос в том, наверное, как регулировать расположение значений строки.

Автор: ~FoX~ 21.4.2011, 22:42
Слева на право, с верху вниз.... Поменяй координаты местами...

Добавлено @ 22:46
Через сколько тебе это сдать нужно?  smile 

Автор: Solominka 21.4.2011, 22:48
Цитата

Слева на право, с низу вверх.... Поменяй координаты местами...


Как именно поменять то?
Я уже по-всякому меняю - оно всё как-то криво :(

Автор: ~FoX~ 21.4.2011, 22:49
Цитата(Solominka @  21.4.2011,  23:48 Найти цитируемый пост)
Я уже по-всякому меняю - оно всё как-то криво :( 

Сори посмотрел не туда....
Sheet.Cells[1,1]:='Имя 1-го столбца';
Sheet.Cells[2,1]:='Имя 2-го столбца';
Sheet.Cells[1,2]:= '1-номер строки, 1-номер столбца 
Sheet.Cells[2,2]:= '2-номер строки, 2-номер столбца 

Автор: Solominka 21.4.2011, 22:59
Цитата

Sheet.Cells[1,1]:='Имя 1-го столбца';
Sheet.Cells[2,1]:='Имя 2-го столбца';
Sheet.Cells[1,1]:= '1-номер строки, 1-номер столбца 
Sheet.Cells[1,2]:= '1-номер строки, 2-номер столбца 


Не поняла... Всё равно как-то криво выходит :(

Добавлено через 4 минуты и 27 секунд
Цитата

Через сколько тебе это сдать нужно?


До конца этой недели сделать нужно.
А там ещё работы непочатый край.

Есть ещё кое какие проблемы с некоторыми рассчётными столбцами, плюс осталось сделать примитивные  примочки типа поиска и "причесать" внешний вид программы. И на всё провсё, по сути пара дней.

Так что мне как-то вот не смешно, увы :(

Автор: Solominka 22.4.2011, 10:52
Всё, я разобралась сама уже, всем спасибо.

Просто оказывается менять надо было расположение результатов ещё тут:

Код

index:=2;
 Form9.Query1.First;
 with Form9.DBGrid1.DataSource.DataSet do
 begin
 Form9.Query1.DisableControls;
 for i:=0 to Form9.DBGrid1.SelectedRows.Count-1 do
  begin
  GotoBookmark(pointer(Form9.DBGrid1.SelectedRows.Items[i]));
   Sheet.Cells[2,index]:=Form9.Query1.Fields.Fields[0].AsString;
   Sheet.Cells[3,index]:=Form9.Query1.Fields.Fields[1].AsString;
   Sheet.Cells[4,index]:=Form9.Query1.Fields.Fields[2].AsString;
   Sheet.Cells[5,index]:=Form9.Query1.Fields.Fields[3].AsString;
   Inc(index);
  Form9.Query1.Next;

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)