Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Copiar/Pegar Flexgrid

267 views
Skip to first unread message

David

unread,
Aug 22, 2004, 3:26:14 PM8/22/04
to
Hola a todos estoy nuevo en esto del vb6 y estoy haciendo una aplicacion
donde uso MSFlexGrid que lleno con una base de datos en access mi pregunta
es Como hacer para poder copiar la informacion de dicho flex y pegerlo por
ejemplo en excel en realidad es irrelevante donde lo pego la cuestion es
como poder copiarlo?????? Muchas gracias...

Morgan

unread,
Aug 23, 2004, 1:38:35 AM8/23/04
to
Ej. el siguiente ejemplo pasa lo seleccionado al portapapeles y con un
simple Ctrl + v pegarlo en una hoja de excel

Dim s As String
Dim i As Integer, j As Integer

s = ""
With MSFlexGrid1
'almacenamos la region seleecionada a un string
'para que funcione en el formato de excel las colummas
'van separadas por tab's y los renglones por CrLf
For i = .Row To .RowSel
For j = .Col To .ColSel
If j > .Col Then s = s & vbTab
s = s & MSFlexGrid1.TextMatrix(i, j)
Next j
s = s & vbCrLf
Next i
End With
Clipboard.Clear
Clipboard.SetText s

si quieres pasar toda la grid modifica el for por

For i = 0 To .Rows-1
For j = 0 To .Cols-1
If j > .Col Then s = s & vbTab
s = s & MSFlexGrid1.TextMatrix(i, j)
Next j
s = s & vbCrLf
Next i

--
Saludos ... Miguel Angel Martínez Morgan ... 8-)
[ MS - MVP - Visual Basic ] [ Cancún, Quintana Roo, México ]
[ Todas las preguntas al foro, así nos beneficiamos todos ]

DISCLAIMER: «Este mensaje se proporciona "como está" sin garantías de
ninguna indole, y no otorga ningún derecho.»

Morgan

unread,
Aug 23, 2004, 1:49:50 AM8/23/04
to
solo una correccion al codigo, si vas a copiar toda la grid cambia la
siguiente linea

If j > .Col Then s = s & vbTab

por esta

If j > 0 Then s = s & vbTab


--
Saludos ... Miguel Angel Martínez Morgan ... 8-)
[ MS - MVP - Visual Basic ] [ Cancún, Quintana Roo, México ]
[ Todas las preguntas al foro, así nos beneficiamos todos ]

DISCLAIMER: «Este mensaje se proporciona "como está" sin garantías de
ninguna indole, y no otorga ningún derecho.»

David

unread,
Aug 23, 2004, 5:58:14 PM8/23/04
to
Morgan wrote:

> solo una correccion al codigo, si vas a copiar toda la grid cambia la
> siguiente linea

> If j > .Col Then s = s & vbTab

> por esta

> If j > 0 Then s = s & vbTab


Muchas gracias... Morgan

0 new messages