Здравствуйте! нужно экспортировать выбранную ячейку из DBGrid в Excel. использую AdoQuery (можно два варианта Adoquery и Adotable). заранее благодарен!
и еще вопрос можно ли также пустить в экспорт выбранную ячейку из DBGrid в Word.

Что именно вам нужно? Поясните задачу. DBGrid всего лишь картинка на форме. А ячейка из DBGrid - часть этой картинки.


Лучше сразу выкинуть оба этих варианта и использовать TADODataSet.

здравствуйте northener! задача такая на форме есть Dbgrid и кнопка распечатать так вот в Dbgrid-е выбираю нужную мне строку и кликаю на кнопку распечатать. должна выйти на печать именно та строка которую я выбрал в гриде, экспорт нужно сделать в Excel либо в Word. нужен код всего этого) и если можно то с описанием подробным)

то ячейка, то строка... определитесь

wymkent, вот тема была похожая - ссылка

А через отчёты не проще это сделать?

Очень просто. Выделяешь строку в грида мышкой или клавой, при этом в НД (Наборе Данных (в DataSet`е)) автоматически позиционируется нужная строка, остаётся только получить значение нужного поля:

вот код который у меня стоит. что здесь нужно изменить чтоб он выводил то что мне нужно выделенную строку(извиняюсь в начале говорил ячейку) но нужна строка. вот посмотрите пожалуйста:

procedure TForm5.ExportClick(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;  

тебе ж сказали, что используй НД




ты выделяешь строку,  потом....



перемещаешься на первую


открой сокральный смысл сего действа?

ExcelApp := CreateOleObject('Excel.Application');

Как взять нужную строку сам разберешься с помощью остальных, а я вот тебе скажу, что способ подключения к Excel фиговый.
Тебе надо сделать проверку получилось ли подключится к нему, и в случае если была ошибка при выполнении загрузки в него данных, все равно в любом случае сделать окно Excel видимым. А у тебя по коду, если ошибка появится, то все рухнет и в диспетчере задач будет висеть excel скрытый отовсех глаз.

На компьютере пользователя может не быть Excel, может стоять кривая установка office, может стоять Office Starter и во всех этих случаях через OLE твоя программа не сможет вывести данные в Excel, а вывалится в ошибку.

зачем в любом случае?

Выполнил работу - Показать
Вылетел в ошибку - Показать, чтобы не болталось в памяти программа скрытая. Можно закрыть попробовать, но не факт что получится.

Тоже не понимаю, зачем окно Экселя видимым делать.

Зачем?

Повесить закрытие на уничтожение формы проги. В 99% случаев получится.

Простите, что вмешиваюсь, но:

Почему? С первыми двумя случаями понятно. Интересует именно Office Starter. Можно ссылку какую-нибудь?

всем спасибо! все заработало! теперь с PopupMenu дрочусь, нужно чтобы при нажатии правой кнопкой мыши появилась(ну это уже PopupMenu) окошко выбираешь там нужный пункт в моем случае "Списание" и именно выбранная строка в DBGride появилась в DBEdit-ах. как это сделать подскажите. (если это понадобится использую ADOtable и Access)