Inicio > Visual Fox Pro > Copiar el cursor a memoria _Vfp.DataToClip

Copiar el cursor a memoria _Vfp.DataToClip


 En este ejemplo mostrare como pasar un cursor a memoria y luego pasarlo a una hoja de Excel.

*** Creamos un objeto excel
PUBLIC oXls     
oXls = CREATEOBJECT(“excel.application”)
oXls.Workbooks.Add
oXls.Visible = .T.

SELECT * FROM ‘Tu Tabla’ INTO CURSOR cursorXls && No es necesario pasarlo a un cursor
_Vfp.DataToClip (‘cursorXls’,,3)  && Copiar el cursor a memoria
oXls.Cells(1,1).Select     && Seleccionar el Inicio de la Copia de los Datos
oXls.ActiveSheet.Paste()    && Copiar los datos al Excel
_Cliptext = ”      && Para liberar la memoria
USE IN (SELECT(‘cursorXls’))   && Cerrar el cursor

Categorías:Visual Fox Pro
  1. Nelson Meza
    3 noviembre 2011 a las 12:43 pm

    Funciona muy bien…..gracias

  2. 19 enero 2013 a las 6:21 pm

    I used to be recommended this website by means of my cousin.
    I’m now not certain whether or not this post is written by way of him as no one else recognise such distinct approximately my difficulty. You are wonderful! Thank you!

  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: