Enviar Datos a Excel desde Visual Foxpro

Pero tengo otra inquietud, como hacer para trasladar información de dos tablas temporales (cursores) a un archivo de Excel. Por ejemplo: en el mismo archivo de Excel Hoja1 le traslado los datos de la tabla temporal1, Hoja2 le traslado los datos de la tabla temporal2.
Espero que me puedas ayudar con un código fuente claro y sencillo de entender, porque la verdad no tengo nada al respecto de código como seria la solución a mi problema.
Gracias,
Att.
Jarinton De la Rosa
(xxxxxx)

1 Respuesta

Respuesta
2
Bueno si pasaste de excel a dbf por que no pasar de dbf a excel con copy to nombrearchivo XL5 si no te parece así existe la forma de abrir una archivo determinado en excel y llenarlo como una plantilla más o menos solo que no hay posibilidad ( o no la he echo) de buscar algo en la hoja como un código y reemplazr su contenido
Hola compañero, mira lo que pasa es que estoy trabajando con BD MySql, tengo una consulta en el sistema. Que inplican dos tablas. Y como te dije necesito que la información de la tabla1 sea trasladada a la Hoja1, y la tabla2 sea trasladada a la hoja2 del mismo archivo de excel.
Este ejemplo y adaptalo tus necesidades
Seletabla
Go top
loExcel=Createobject("Excel.application")
loExcel.Visible = .T.
loBook = loExcel.Workbooks.Open( uni+cami+cexcel+'planilla_suel')  &&este es el archivo
Cen1 = loBook.Sheets['retencion']    && Esta es la hoja
linea = 7  &&& desde que fila empiezan
ban=0
Cen1.ACTIVATE
WITH lobook.ActiveSheet
.Range("Q2").Value =aju
  DO WHILE !EOF()
               .Range("A"+alltrim(str(linea))).Value =RECNO()
               .Range("B"+alltrim(str(linea))).Value =codigo
               .Range("C"+alltrim(str(linea))).Value =nombre
               .Range("D"+alltrim(str(linea))).Value =fenac
                 .Range("O"+alltrim(str(linea))).Value =t_cred
               .Range("P"+alltrim(str(linea))).Value =s_tras
               .Range("Q"+alltrim(str(linea))).Value =ROUND(imp_det,0)
                  LINEA=LINEA+1
           Skip
  ENDDO
ENDWITH
_Screen.LockScreen= .F.
RELEASE loExcel

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Crear Formulario Excel (ayuda a un principiante)

Gurús del excel, estoy trabajando en un formulario de ingreso de datos y mi intención es aprender todo sobre la herramientas de formularios. El objetivo del formulario es entregar un código al usuario que lo ejecute y almacenar en otra hoja los datos...
1 respuesta

Envío de una gráfica realizada en fox a Excel

Una vez realizada una gráfica en visual fox como la puedo enviar a Excel.
1 respuesta

Macro excel que copie de hoja 1 a hoja 2*

* Este es el código que tengo, pero en la hoja 1 hay formulas y quiero que se mantengan activas, que al momento de ejecutar la macro, solo se copie el valor y me deje la formula activa en la hoja 1, espero me haya explicado bien, y agradecería de...
1 respuesta

Error al insertar datos en firebird

Estoy intentando pasar unos datos de una tabla dbf a la tabla de firebird y no pasan estoy usando este código a ver que estoy haciendo mal este es el código USE c:\EJEMPLO\menu_principal.dbf EXCLUSIVE SELECT MENU_PRINCIPAL T1 = menu_principal.CODIGO...
1 respuesta

Macro que se ejecute cuando cambia un valor

Tengo un archivo de excel con 2 hojas (hoja1 y hoja2) En la hoja2, hice un código para que se ejecute una macro automáticamente cada que cambien los valores de una celda la D11. Si cambian el valor de esta celda, y le ponen un 0 necesito que me...
1 respuesta

Como copiar celdas especificas de un archivo a otro con macro

Tengo el siguiente problema tengo dos archivos uno con información y el otro vació lo que intento hacer es copiar de un archivo al otro pero mi complicación es que el encabezado o el orden varían el uno del otro pongo el siguiente ejemplo en el...
2 respuestas