Ayuda con vfp

Estoy trabajando en vfp, quisiera pasar a una tabla llamada ofertas los registros contenidos en otro archivo,  esta en exel y otro en txt, alguna idea ó como podria hacerlo,
gracias
mi email es (xxxxxx)
Respuesta
1
¿Quieres importar desde excel y el txt a fox o viceversa?
Slds!
De exel a tabla vfp y de .txt a tabla para poder visualizarlos (en una tabla de vfp)
Gracias
Amigo disculpa la demora
Para XLS usa IMPORT FROM
Para un TXT usa APPEND FROM
Si miras en la ayuda están todas las opciones que estos traen como en el txt cual es el delimitador de campos y de registros.

2 respuestas más de otros expertos

Respuesta
1
Simplemente abre tu archivo y utiliza APPEND FROM [archivoexterno] XLS
la estructura del archivo externo debe ser similar a la tabla donde vas a colocar los datos
ejemplo TABLA1=código C(5), nombre C(20), dirección c(20) el archivo excel debe tener 3 celdas en las cuales contiene datos de códigos, nombres y direcciones, el resto de celdas no las toma en cuenta, pero si es un archivo plano debe tener exactamente la longitud de cada campo ejemplo 00125, NOMBRE DE 20 CARACTE, DIRECCIÓN DE 20 CAR,
SALUDOS
Respuesta
1
No enetendo quieres pasar los datos de la tabla registros seria asi a excel
Sele registros
Copy to c:\registros xl5
Si es lago asi revisa la ayuda de copy to tiene muchas opciones para exportar datos, no es asi lo q quieres hacer explicame mejor la idea.
Bendiciones
Javier
no quiero pasar los datos que tiene un archivo en exel, para visualizarlos en una tabla vfp
gracias
Abrirtabla('productos')
uni=SYS(5)
camin='\viauno\muestra'
loExcel=Createobject("Excel.application")
loExcel.Visible = .F.
loBook = loExcel.Workbooks.Open( uni+camin)
lohoja1 = loBook.Sheets['inventario']
lohoja1.activate
FOR linea=2 TO 6152
   WITH lobook.ActiveSheet
       SELECT productos
       SET ORDER TO codi_pro
       seek .Range('A'+alltrim(str(linea))).Value
       IF FOUND()
         REPLACE cantidad WITH cantidad+1
       ELSE
        *IF .Range('A'+alltrim(str(linea))).Value >9999999
         APPEND BLANK
         *MESSAGEBOX(.Range('A'+alltrim(str(linea))))
         REPLACE codi_pro WITH .Range('A'+alltrim(str(linea))).Value
         REPLACE cantidad WITH 1
         REPLACE material WITH .Range('D'+alltrim(str(linea))).Value
         REPLACE talla WITH .Range('B'+alltrim(str(linea))).Value
         ct=.Range('C'+alltrim(str(linea))).Value
         IF TYPE('ct')='N'
               REPLACE modelo WITH ALLTRIM(STR(ct))
         ELSE
               REPLACE modelo WITH ALLTRIM(ct)
         ENDIF      
         REPLACE marca WITH .Range('G'+alltrim(str(linea))).Value
         REPLACE color WITH .Range('E'+alltrim(str(linea))).Value
         REPLACE tipo WITH .Range('F'+alltrim(str(linea))).Value
         REPLACE descrip WITH ALLTRIM(marca)+' '+ALLTRIM(modelo)+' '+ALLTRIM(tipo)+' '+ALLTRIM(STR(talla))+' '+ALLTRIM(material)+' '+ALLTRIM(color)
         REPLACE porcen WITH .Range('I'+alltrim(str(linea))).Value
         IF linea>4593
          IF INT(.Range('J'+alltrim(str(linea))).Value)=.Range('J'+alltrim(str(linea))).Value
             PRE=.Range('J'+alltrim(str(linea))).Value
          ELSE
           PRE=INT(.Range('J'+alltrim(str(linea))).Value)+1
          ENDIF   
         ELSE
            pre=.Range('J'+alltrim(str(linea))).Value
         ENDIF
         REPLACE precio WITH PRE
         REPLACE por1 WITH .Range('K'+alltrim(str(linea))).Value
         REPLACE precio_com WITH .Range('H'+alltrim(str(linea))).Value
        *ENDIF
       ENDIF   
   ENDWITH
NEXT linea
loBook = loExcel.Workbooks.CLOSE
*_Screen.LockScreen= .F.
RELEASE loExcel
Cerrartabla('productos')
Release thisform

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Llevar datos de un grid a un formulario para modificarlos

Estoy aprendiendo a programar en foxpro 9 y tengo la siguiente duda:Tengo un grid que muestra la tabla cliente, a la cual esta conectada. Lo que quisiera hacer es:en el evento doble click sobre cualquiera de los clientes mostrados en el grid, este me...
2 respuestas

¿Cómo guardar un archivo PDF?

Tengo un formulario que piede cedula del cliente dirección y un documento a guardar en la DBF que es un examen en archivo PDF Como grabo el la tabla ese archivo, de manera que cuando consulte por cedeula A) Pueda abrir el archivo PDF en pantalla B)...
2 respuestas

Añadir registro a un grid que contiene datos pero en cualquier parte del grid

Tengo un form que tiene varios text y un grid el cual esta relacionado con una tabla y le voy agregando registro mediante un click en un botón . Hasta ahí todo de lujo ! El problema es que el usuario quiere agregar un registro en cualquier parte del...
4 respuestas

Sumar columna de un grid

Pues yo nuevamente. Como hago para sumar toda la columna de un grid Ejemplo Grid: Cantidad Precio Total 100 10 1,000 50 10 500 Total 1,500
3 respuestas

Capturar Imagen y Grabarlo en Vfp

Estimado amigo de nuevo molestándote esta vez quisiera que ayudes a realizar lo siguiente se desea que al momento que el personal digite su código de ingreso, en pantalla le visualice y a la vez grabe en una tabla sus Nombres, hora que marco y foto...
4 respuestas

Como agrupar registros

¿Quisiera saber como agrupar registro y sumarlos a lva ves que los veo en un reporte? Ejemplo Tengo una tabla llamada PEDIDOS en la cual almaceno los pedidos de las rutas para el día siguiente Ruta articulo cantidad fecha 1 2-02 11 21/02/11 1 3-02 2...
2 respuestas

Comparación de Huellas Digitales

Quería saber si me pueden pasar un ejemplo de comparación de huellas digitales con Digital Persona U.are.U 4000 Estuve viendo en esta misma pagina que había alguien que hablaba sobre esto. Pero no se completo el tema. Solo necesito un ejemplo de...
2 respuestas

Ayuda para poder manipula lector de huellas

Necesito ayuda con respecto a como poder controlar un lector de huellas digital (microsoft fingerprint reader), puesto que se me ha requerido crear un proyecto que permita controlar entradas y salidas de personal utilizando un lector de huellas...
2 respuestas

Necesito un form de punto de ventas en VFP

Necesito crear un formulario para que sea un punto de ventas y todavía no se como arrancar dicho proyecto... Quisiera me puedan ayudar.
3 respuestas

Calculo de rfc y curp

Me pidieron hacer un programa en visual para calcular el rfc y curp con su homoclave, del personal de mi empresa, ¿Podrías decirme donde conseguirlo o en su caso darme una copia del código fuente pra hacerlo?
4 respuestas