| Usuario |
Como copiar de un grid a excel a t... |
Desconocido
|
| Enviado - 22/6/2004 |
| |
Hola a todos
Me gustaría saber como puedo copiar el contenido de un MSHFlexGrid a excel o a otra aplicación usando el portapapeles.
Gracias de antemano
Greco |
| |
|
Desconocido
|
| Enviado - 30/6/2004 |
| |
Private Sub ProCopiar()
Dim InicioRenglon As Integer
Dim FinRenglon As Integer
Dim InicioColumna As Integer
Dim FinColumna As Integer
vTotalPaginas = CInt(TxtPagina.Text)
vPaginaInicio = CInt(TxtPagina.Text)
If ChkImprimirTodo.Value = 1 Then
Call CmdPantalla_Click
vPaginaInicio = 1
vTotalPaginas = CInt(LblTotalPaginas.Caption)
End If
wCadenaClipboard = ""
InicioRenglon = 0
FinRenglon = FlexiReporte.Rows - 1
InicioColumna = 0
FinColumna = FlexiReporte.cols - 1
FlexiReporte.Visible = False
For W = vPaginaInicio To vTotalPaginas
If W > 1 And ChkImprimirTodo.Value = 1 Then
Call CmdSiguiente_Click
End If
For Z = InicioRenglon To FinRenglon
FlexiReporte.Row = Z
For X = InicioColumna To FinColumna
FlexiReporte.Col = X
If X = FinColumna Then
wCadenaClipboard = wCadenaClipboard + """" & FlexiReporte.Text & """"
Else
wCadenaClipboard = wCadenaClipboard + """" & FlexiReporte.Text & """" + Chr(9)
End If
Next X
wCadenaClipboard = wCadenaClipboard + vbCrLf
Next Z
Next
FlexiReporte.Visible = True
Clipboard.Clear
Clipboard.SetText wCadenaClipboard
End Sub
|
| |
|
