VPF::Delphi: экспорт из DBGrid в MS Excel - ошибка

Solominka

Дата 21.4.2011, 19:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.12.2009

Репутация: нет
Всего: нет

В общем нужен экспорт выделенной строки из 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 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 24.4.2010

Репутация: 1
Всего: 1

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 объявлены?

Это сообщение отредактировал(а) Novichek27 - 21.4.2011, 20:24

Solominka

Дата 21.4.2011, 20:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.12.2009

Репутация: нет
Всего: нет

Novichek27, к сожалению, ошибок ещё больше... =__=

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

Цитата

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

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

Novichek27

Дата 21.4.2011, 20:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 24.4.2010

Репутация: 1
Всего: 1

в самом начале Unit'a

Код


unit Unit1;

interface

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

~FoX~

Дата 21.4.2011, 20:24 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 4
Всего: 68

Цитата(Solominka @ 21.4.2011, 21:11

)

Ээээ... Нет... А как объявить?

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

Код


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

--------------------

…множественность никогда не следует полагать без необходимости…

Solominka

Дата 21.4.2011, 21:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.12.2009

Репутация: нет
Всего: нет

Объявила... Но выдаёт ошибки...
Почти всё поняла откуда взялось и как исправить... Но на что исправлять

Код


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

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

~FoX~

Дата 21.4.2011, 21:15 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 4
Всего: 68

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

Добавлено через 20 секунд

Цитата(Novichek27 @ 21.4.2011, 20:55

)

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

--------------------

…множественность никогда не следует полагать без необходимости…

Novichek27

Дата 21.4.2011, 21:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 24.4.2010

Репутация: 1
Всего: 1

Цитата

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

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

Solominka

Дата 21.4.2011, 21:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.12.2009

Репутация: нет
Всего: нет

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

Код


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

~FoX~

Дата 21.4.2011, 21:28 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 4
Всего: 68

Solominka, В книге должен быть лист с названием

Цитата(Solominka @ 21.4.2011, 22:26

)

['Отчёт по запросу']

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

--------------------

…множественность никогда не следует полагать без необходимости…

Solominka

Дата 21.4.2011, 21:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.12.2009

Репутация: нет
Всего: нет

Цитата

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

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

~FoX~

Дата 21.4.2011, 21:39 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 4
Всего: 68

Код


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

--------------------

…множественность никогда не следует полагать без необходимости…

Novichek27

Дата 21.4.2011, 21:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 24.4.2010

Репутация: 1
Всего: 1

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

Это сообщение отредактировал(а) Novichek27 - 21.4.2011, 21:41

Solominka

Дата 21.4.2011, 21:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.12.2009

Репутация: нет
Всего: нет

Цитата

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

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

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

Novichek27

Дата 21.4.2011, 21:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 24.4.2010

Репутация: 1
Всего: 1

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

Цитата

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

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

и пробуй...

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

Цитата

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

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

Это сообщение отредактировал(а) Novichek27 - 21.4.2011, 22:02

Solominka

Дата 21.4.2011, 22:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.12.2009

Репутация: нет
Всего: нет

Цитата

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

Сделала.

Цитата

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

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

~FoX~

Дата 21.4.2011, 22:18 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 4
Всего: 68

Скучно с вами ночью сидеть smile

Цитата(Solominka @ 21.4.2011, 23:14

)

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

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

--------------------

…множественность никогда не следует полагать без необходимости…

Solominka

Дата 21.4.2011, 22:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.12.2009

Репутация: нет
Всего: нет

Цитата

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

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

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

Novichek27

Дата 21.4.2011, 22:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 24.4.2010

Репутация: 1
Всего: 1

Цитата

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

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

Solominka

Дата 21.4.2011, 22:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.12.2009

Репутация: нет
Всего: нет

Хммм... А не могли бы вы ещё одну вещь подсказать...

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

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

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

Код


 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 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 24.4.2010

Репутация: 1
Всего: 1

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

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

все...

Solominka

Дата 21.4.2011, 22:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.12.2009

Репутация: нет
Всего: нет

Цитата

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

Да уже никакой. Просто забыла переименовать 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 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 4
Всего: 68

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

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

Это сообщение отредактировал(а) ~FoX~ - 21.4.2011, 22:47

--------------------

…множественность никогда не следует полагать без необходимости…

Solominka

Дата 21.4.2011, 22:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.12.2009

Репутация: нет
Всего: нет

Цитата

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

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

~FoX~

Дата 21.4.2011, 22:49 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 4
Всего: 68

Цитата(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-номер столбца

Это сообщение отредактировал(а) ~FoX~ - 21.4.2011, 22:59

--------------------

…множественность никогда не следует полагать без необходимости…

Solominka

Дата 21.4.2011, 22:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.12.2009

Репутация: нет
Всего: нет

Цитата

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 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.12.2009

Репутация: нет
Всего: нет

Всё, я разобралась сама уже, всем спасибо.

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

Код


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;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »