Ver Mensaje Individual
  #2 (permalink)  
Antiguo 01/09/2009, 21:46
ingenius
 
Fecha de Ingreso: agosto-2009
Mensajes: 19
Antigüedad: 15 años, 7 meses
Puntos: 0
Respuesta: Copiar Msflexgrid a Clipboard (copiar pegar)

Dim cadena As String
Clipboard.Clear
For I = 0 To GrdDatos.Rows - 1
For J = 0 To GrdDatos.Cols - 1
cadena = cadena & GrdDatos.TextMatrix(I, J) + vbTab
Next J
cadena = cadena & vbNewLine
Next I

Clipboard.SetText cadena