Copiar una fila o columna de una grilla

[Marcela]

Hola, la idea no es exportar a excel es copiar y pegar. Copio desde la grilla lo que tenga marcado y pego en una hoja de excel, word, etc.

[jachguate]

Lo siento, no había entendido bien el asunto.

Lamento no poder ayudar mas... solo insistir en que las QuantumGrid si tienen este comportamiento, solo que son de pago.

Si estas no son opción, podrías hacerla a mano; no veo extremadamente complicado determinar el formato en el que excel espera encontrar los datos y pasarlos así al clipboard.. pero seguramente llevará unas buenas horas de programación.

Hasta luego.

[Neftali [Germán.Estévez]]

Empezado por Marcela

...la idea no es exportar a excel es copiar y pegar. Copio desde la grilla lo que tenga marcado y pego en una hoja de excel, word, etc.

Ok, yo tampoco había entendido en tema.
Para pegar en Excel el formato es sencillo; Debes conseguir un texto que en que cada línea esté seperada por salto de carro y cada campo de las filas separados por tabulación.
Puedes hacer un doble bucle, uno para las líneas seleccionaas y otro para los campos de cada línea; La condición es la comentada; Los campos separados por TABULACION y las líneas por SALTO DE CARRO.

Si creas el texto con éste formato, puedes ir al Excel y hacer un PEGAR, y te lo colocará los campos por celdas, como si fuera una tabla.

Pruébalo, si tienes problemas con el código coméntalo y te echamos una mano...

[Marcela]

Muchas gracias, voy a intentar programarlo, aunque no era mi idea, porque como me dijeron por ahi, para que inventar algo que ya eta desarrollado, ademas tampoco puedo adquirir el componente que me dicen, en conclusión, me toco, pero si alguien sabe de algo, porfis estare pendiente. Gracias

[Neftali [Germán.Estévez]]

Aquí tienes un código que puede servirte; En la sección de ejemplos hay uno que trata sobre TStringGrid; Aunque es para temas de alineación, incluye una opción de copiar.
Algo así:

Código Delphi [-]
var
  i, j:Integer;
  Str:String;
begin

  // Inicializamos
  Str := '';
  // Para cada línea de las selecciondas
  for i := (StringGrid1.Selection.Top) to (StringGrid1.Selection.Bottom) do begin
    // Si no es la 1ª linea, añadimos un salto de línea
    if (i <> StringGrid1.Selection.Top) then begin
      Str := Str + #13#10;
    end;
    // Para cada elemento dentro de la línea (celdas)
    for j := 0 to (StringGrid1.Rows[i].Count - 1) do begin
      // Si no es la primera celda, añadimos un separados
      if (j <> 0) then begin
        Str := Str + ';';   <<== Cambiar por chr(VK_TAB)
      end;
      // Construimos la cadena
      Str := Str + StringGrid1.Rows[i].Strings[j];
    end;
    // La guardamos en el clipboard (como texto)
    Clipboard.AsText := Str
  end;

  MessageDlg('El contenido de la/s celda/s se ha copiado al portapapeles de windows', mtInformation, [mbOK], 0);

Si haces el cambio marcado en rojo (usar TAB en lugar de es casi lo que necesitas; La diferencia es que este en para un TStringGrid y tú lo necesitas para un DBGrid; Sólo cambia la forma de recorrer las filas seleccionadas.