Hola

Tengo en un equipo instalado el office 2007, el foxpro no puede importe
archivos excel de este nuevo formato (xlsx).
He probado de guardar el archivo con la opcion de guardar como "office2003"
(son xls), pero tampoco los importa, mirando en internet he visto que cuando
se guarda un archivo como "office2003" no lo guarda identico a los que
guarda la version de office 2003, es decir el foxpro no los reconoce.

De momento he solucionado el problema con el guardar como "XLS version 5.0".

Si microsoft debe dar soprte a visual foxpro hasta el años 2015 (creo), por
que no arregla estos errores/mejoras.

Que significa dar soporte, si no actualiza el producto dentro de un par de
años igual muchas de las funciones que importan dejan de ir, o si se le
ocurre sacar al mercado un windows "XXXXX" nuevo el foxpro no se podra
instalar si saca los SP.

Alberto

Alberto,

Yo he tenido tus mismos problemas , y para resolverlos 1. pongo un mensaje
al usuario antes de hacer el appen from de que tiene instalado office2007 y
que abra la hoja y la grabe como Excel Version 5 y 2. Usando automatización
de office.

saludos,


--
William Hernández
VFP9 SP2/Vista Bussines
Santiago, Chile.

"Alberto - BCN" <desarrollo***infoliber.com> escribió en el mensaje de
noticias news:O9qg7HPDJHA.4704***TK2MSFTNGP06.phx.gbl...
> Hola
>
> Tengo en un equipo instalado el office 2007, el foxpro no puede importe
> archivos excel de este nuevo formato (xlsx).
> He probado de guardar el archivo con la opcion de guardar como
> "office2003" (son xls), pero tampoco los importa, mirando en internet he
> visto que cuando se guarda un archivo como "office2003" no lo guarda
> identico a los que guarda la version de office 2003, es decir el foxpro no
> los reconoce.
>
> De momento he solucionado el problema con el guardar como "XLS version
> 5.0".
>
> Si microsoft debe dar soprte a visual foxpro hasta el años 2015 (creo),
> por que no arregla estos errores/mejoras.
>
> Que significa dar soporte, si no actualiza el producto dentro de un par de
> años igual muchas de las funciones que importan dejan de ir, o si se le
> ocurre sacar al mercado un windows "XXXXX" nuevo el foxpro no se podra
> instalar si saca los SP.
>
> Alberto
>
>
>

Alberto,

Yo he tenido tus mismos problemas , y para resolverlos 1. pongo un mensaje
al usuario antes de hacer el appen from de que tiene instalado office2007 y
que abra la hoja y la grabe como Excel Version 5 y 2. Usando automatización
de office.

saludos,


--
William Hernández
VFP9 SP2/Vista Bussines
Santiago, Chile.

"Alberto - BCN" <desarrollo***infoliber.com> escribió en el mensaje de
noticias news:O9qg7HPDJHA.4704***TK2MSFTNGP06.phx.gbl...
> Hola
>
> Tengo en un equipo instalado el office 2007, el foxpro no puede importe
> archivos excel de este nuevo formato (xlsx).
> He probado de guardar el archivo con la opcion de guardar como
> "office2003" (son xls), pero tampoco los importa, mirando en internet he
> visto que cuando se guarda un archivo como "office2003" no lo guarda
> identico a los que guarda la version de office 2003, es decir el foxpro no
> los reconoce.
>
> De momento he solucionado el problema con el guardar como "XLS version
> 5.0".
>
> Si microsoft debe dar soprte a visual foxpro hasta el años 2015 (creo),
> por que no arregla estos errores/mejoras.
>
> Que significa dar soporte, si no actualiza el producto dentro de un par de
> años igual muchas de las funciones que importan dejan de ir, o si se le
> ocurre sacar al mercado un windows "XXXXX" nuevo el foxpro no se podra
> instalar si saca los SP.
>
> Alberto
>
>
>

Alberto,

Yo he tenido tus mismos problemas , y para resolverlos 1. pongo un mensaje
al usuario antes de hacer el appen from de que tiene instalado office2007 y
que abra la hoja y la grabe como Excel Version 5 y 2. Usando automatización
de office.

saludos,


--
William Hernández
VFP9 SP2/Vista Bussines
Santiago, Chile.

"Alberto - BCN" <desarrollo***infoliber.com> escribió en el mensaje de
noticias news:O9qg7HPDJHA.4704***TK2MSFTNGP06.phx.gbl...
> Hola
>
> Tengo en un equipo instalado el office 2007, el foxpro no puede importe
> archivos excel de este nuevo formato (xlsx).
> He probado de guardar el archivo con la opcion de guardar como
> "office2003" (son xls), pero tampoco los importa, mirando en internet he
> visto que cuando se guarda un archivo como "office2003" no lo guarda
> identico a los que guarda la version de office 2003, es decir el foxpro no
> los reconoce.
>
> De momento he solucionado el problema con el guardar como "XLS version
> 5.0".
>
> Si microsoft debe dar soprte a visual foxpro hasta el años 2015 (creo),
> por que no arregla estos errores/mejoras.
>
> Que significa dar soporte, si no actualiza el producto dentro de un par de
> años igual muchas de las funciones que importan dejan de ir, o si se le
> ocurre sacar al mercado un windows "XXXXX" nuevo el foxpro no se podra
> instalar si saca los SP.
>
> Alberto
>
>
>

Hola Alberto, puedes bajar el archivo AccessDatabaseEngine lo instalas en
cada equipo donde la aplicacion importe este tipo de archivo (servidor y
estaciones), y ya puedes importar directamente, mira la informacion que
amablemente me paso Anders y que me permite trabajar con cualquier archivo
de excel indiferente de la version la he probado con version 97,2003 y 2007.
Todo lo que te anexo es para que te des una idea, todo esto lo he sacado del
portal del pueblo, espero no ofender a nadie


*-----------------------------------
* AUTHOR: Trevor Hancock
* CREATED: 02/15/08 04:55:31 PM
* ABSTRACT: Code demonstrates how to connect to
* and extract data from an Excel 2007 Workbook
* using the "Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)"
* from the 2007 Office System Driver: Data Connectivity Components
*-----------------------------------
LOCAL lcXLBook AS STRING, lnSQLHand AS INTEGER, ;
lcSQLCmd AS STRING, lnSuccess AS INTEGER, ;
lcConnstr AS STRING
* CLEAR
CLOSE DATABASES
lcXLBook = [C:\debido_cobrar.xls]

lcConnstr = [Driver=] + ;
[{Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};] + ;
[DBQ=] + lcXLBook

IF !FILE( lcXLBook )
MESSAGEBOX([Excel file not found])
RETURN .F.
ENDIF
*-- Attempt a connection to the .XLSX WorkBook.
*-- NOTE: If the specified workbook is not found,
*-- it will be created by this driver! You cannot rely on a
*-- connection failure - it will never fail. Ergo, success
*-- is not checked here. Used FILE() instead.
lnSQLHand = SQLSTRINGCONNECT( lcConnstr )

*-- Connect successful if we are here. Extract data...
lcSQLCmd = [Select * FROM "Hoja1$"]
lnSuccess = SQLEXEC( lnSQLHand, lcSQLCmd, [xlResults] )
* ? [SQL Cmd Success:], IIF( lnSuccess > 0, 'Esta Bien!', 'Fallo' )
IF lnSuccess < 0
LOCAL ARRAY laErr[1]
AERROR( laErr )
? laErr(3)
SQLDISCONNECT( lnSQLHand )
RETURN .F.
ENDIF


*-- Show the results
SELECT xlResults
* BROWSE NOWAIT
SQLDISCONNECT( lnSQLHand )
COPY TO temporal


***Barra de progreso en degradé de colores
***Autor: Gabriel Mandelli
***ID. DARKFOX

* Primero creamos un formulario
PUBLIC oform
oform=CREATEOBJECT("MyForm")
oform.WINDOWSTATE=0
oform.HEIGHT=39
oform.LEFT=0
oform.TOP=0
oform.WIDTH=406
oform.controlbox = .f.
oform.autocenter = .T.
oform.borderstyle = 0
oform.titlebar = 0
SET CENTURY on
SET DATE TO mdy

* Agregamos los distintos objetos que forman el termómetro
* Está formado por dos contenedores: C0 y C1
* En el container C1 se agregan dos líneas y 200 shapes
* que son los que se irán pintando con los colores en
* degradé a medida que progresa el proceso determinado
* En el container C0 se agrega un texbox con el título
oform.termometro.c1.ADDOBJECT('Linea1','shape')
WITH oform.termometro.c1.linea1
.BACKSTYLE=0
.BACKCOLOR=RGB(88,112,156)
.HEIGHT=2
.LEFT=0
.SPECIALEFFECT=0
.TOP=0
.WIDTH=402
.VISIBLE=.T.
ENDWITH
oform.termometro.c1.ADDOBJECT('Linea2','shape')
WITH oform.termometro.c1.linea2
.BACKSTYLE=0
.BACKCOLOR=RGB(88,112,156)
.HEIGHT=2
.LEFT=0
.SPECIALEFFECT=0
.TOP=18
.WIDTH=402
.VISIBLE=.T.
ENDWITH
FOR I=1 TO 200
figura='Shape'+ALLTRIM(STR(I))
oform.termometro.c1.ADDOBJECT(figura,'shape')
figura1='oform.termometro.c1.'+figura
WITH &figura1.
.BORDERCOLOR=RGB(88,112,156)
.BACKCOLOR=RGB(88,112,156)
.FILLSTYLE=0
.FILLCOLOR=RGB(0,255,0)
.TOP=2
.HEIGHT=15
.WIDTH=2
.LEFT=(I*2)-1
.CURVATURE=0
.VISIBLE=.F.
ENDWITH
ENDFOR
WITH oform.termometro.c0
.ADDOBJECT('label1','label')
.label1.CAPTION='Titulo'
.label1.BORDERSTYLE=0
.label1.BACKSTYLE=0
.label1.FONTBOLD=.T.
.label1.FORECOLOR=RGB(255,255,255)
.label1.TOP=2
.label1.HEIGHT=16
.label1.WIDTH=300
.label1.LEFT=2
.label1.VISIBLE=.T.
ENDWITH
* Se muestra el formulario con el termómetro
oform.SHOW()
* Se llama al procedimiento iniciar que efectúa los cálculos
* necesarios para seleccionar los colores correspondientes a
* cada shape del termómetro
DO iniciar
RETURN
*****
PROCEDURE iniciar
* Se eligen los colores de inicio y final
* Si se quiere colores predeterminados sacar los GETCOLOR y
* poner el valor RGB() deseado
*!* c1=GETCOLOR()
*!* suspend()
*!* c2=GETCOLOR()
*!* suspend()
c1=65535
c2=0
a1=INT(c1/(256*256))
v1=INT(MOD(c1,256*256)/256)
r1=INT(MOD(MOD(c1,256*256),256))
a2=INT(c2/(256*256))
v2=INT(MOD(c2,256*256)/256)
r2=INT(MOD(MOD(c2,256*256),256))
entero = 0
* reg = 200
titulo = 'Procesando Morosos...' &&Título que desea colocarle a la barra
oform.termometro.configuracion

set talk off
set echo off
set safe off
set dele on
close data
SET EXCLUSIVE off
SET MULTILOCKS on
PUBLIC final1
SELECT 1
USE morosos &&&excl
SET ORDER TO ficha
CURSORSETPROP('Buffering',5,'morosos') &&Buffering optimista
reg = RECCOUNT()
GO top
SCAN FOR LASTKEY() # 27 &&&FOR ctr = 1 TO reg
*!* ctr = RECNO()
*!* oform.termometro.barra
IF LASTKEY() # 27
BEGIN TRANSACTION
replace acumulado_año_actual1 WITH acumulado_año_actual, ;
acumulado_año_anterior1 WITH acumulado_año_anterior, ;
recargos1 WITH recargos, ;
saldo1 WITH saldo, ;
descuentos1 WITH descuentos, ;
devoluciones1 WITH devoluciones, ;
facturado1 WITH facturado
IF TABLEUPDATE(2,.F.,'morosos')
END TRANSACTION
ELSE
ROLLBACK
ENDIF
ENDIF
ENDSCAN
* oform.termometro.borrar
select morosos
SET ORDER TO ficha
* delete for val(codprov) = 0
* pack
c1=65535
c2=0
a1=INT(c1/(256*256))
v1=INT(MOD(c1,256*256)/256)
r1=INT(MOD(MOD(c1,256*256),256))
a2=INT(c2/(256*256))
v2=INT(MOD(c2,256*256)/256)
r2=INT(MOD(MOD(c2,256*256),256))
entero = 0
titulo = 'Actualizando Saldos Morosos...' &&Título que desea colocarle a
la barra
oform.termometro.configuracion


SELECT 2
USE temporal EXCLUSIVE
GO top
DELETE
PACK
reg = RECCOUNT()
GO top
SCAN FOR LASTKEY() # 27 &&&FOR ctr = 1 TO reg
ctr = RECNO()
oform.termometro.barra
*****
* Procesos que se realiza
* reemplazar el INKEY por el proceso
* INKEY(.01)
*****
SELECT morosos
GO TOP
* LOCATE FOR ALLTRIM(ficha) == alltrim(temporal.ficha)
IF !SEEK(alltrim(temporal.ficha),"Morosos")
IF LASTKEY() # 27
BEGIN TRANSACTION
INSERT INTO morosos (telefono,direccion,cedula, ;
facturado, acumulado_año_actual,;
acumulado_año_anterior, recargos,saldo,;
ficha, nombre, ruta, descuentos, devoluciones, ;
direccion_cobro, estado, dia, mes, ano, fecha) VALUES ;
(IIF(ISNULL(temporal.telefono)," ",ALLTRIM(temporal.telefono)),;
IIF(ISNULL(temporal.direccion)," ",ALLTRIM(temporal.direccion)), ;
IIF(ISNULL(temporal.cedula),"",ALLTRIM(temporal.ce dula)),;
IIF(ISNULL(temporal.facturado),0,VAL(temporal.fact urado)), ;
IIF(ISNULL(temporal.acumulado_),0,VAL(temporal.acu mulado_)),;
IIF(ISNULL(temporal.años_anter),0,VAL(temporal.año s_anter)),0,;
IIF(ISNULL(temporal.saldo),0,VAL(temporal.saldo)), ;
IIF(ISNULL(temporal.ficha)," ",temporal.ficha),;
IIF(ISNULL(temporal.propietari)," ",temporal.propietari), ;
IIF(ISNULL(temporal.ruta)," ",temporal.ruta), ;
IIF(ISNULL(temporal.descuentos),0,VAL(temporal.des cuentos)), ;
IIF(ISNULL(temporal.devolucion),0,VAL(temporal.dev olucion)), ;
IIF(ISNULL(temporal.direccion_)," ",temporal.direccion_), ;
IIF(ISNULL(temporal.estado),"",ALLTRIM(temporal.es tado)), ;
IIF(ISNULL(temporal.dia),"",PADL(ALLTRIM(temporal. dia),2,"0")), ;
IIF(ISNULL(temporal.mes),"",PADL(ALLTRIM(temporal. mes),2,"0")), ;
IIF(ISNULL(temporal.año),"",ALLTRIM(temporal.año)) , ;
IIF(ISNULL(temporal.mes),DATE(),IIF(ISNULL(tempora l.dia),DATE(),IIF(ISNULL(temporal.año),DATE(),;
CTOD(PADL(ALLTRIM(temporal.mes),2,"0")+"/"+PADL(ALLTRIM(temporal.dia),2,"0");
+"/"+ALLTRIM(temporal.año))))))
IF TABLEUPDATE(2,.F.,'Morosos')
END TRANSACTION
ELSE
ROLLBACK
ENDIF
ENDIF
ELSE
IF LASTKEY() # 27
BEGIN TRANSACTION
replace acumulado_año_actual WITH
IIF(ISNULL(temporal.acumulado_),0,VAL(temporal.acu mulado_)), ;
acumulado_año_anterior WITH
IIF(ISNULL(temporal.años_anter),0,VAL(temporal.año s_anter)), ;
recargos WITH 0, ;
saldo WITH IIF(ISNULL(temporal.saldo),0,VAL(temporal.saldo)), ;
descuentos WITH
IIF(ISNULL(temporal.descuentos),0,VAL(temporal.des cuentos)), ;
devoluciones WITH
IIF(ISNULL(temporal.devolucion),0,VAL(temporal.dev olucion)), ;
facturado WITH
IIF(ISNULL(temporal.facturado),0,VAL(temporal.fact urado))
IF TABLEUPDATE(2,.F.,'Morosos')
END TRANSACTION
ELSE
ROLLBACK
ENDIF
ENDIF
ENDIF
SELECT temporal
ENDSCAN
CURSORSETPROP('Buffering',1,'morosos') &&Buffering optimista
close data
USE
SET EXCLUSIVE off
oform.termometro.borrar
oform.RELEASE
ENDPROC
************
DEFINE CLASS MyForm AS FORM
CAPTION="Termómetro"
BORDERSTYLE=3
AUTOCENTER=.T.
HEIGHT=39
LEFT=0
TOP=0
WIDTH=406
ADD OBJECT termometro AS termo
ENDDEFINE
DEFINE CLASS termo AS CONTAINER
HEIGHT=44
WIDTH=408
SPECIALEFFECT=1
BACKSTYLE=0
ADD OBJECT c1 AS CONTAINER WITH;
LEFT=1,;
HEIGHT=20,;
TOP=20,;
WIDTH=403,;
BACKCOLOR=RGB(0,128,192),;
BACKSTYLE=1,;
BORDERCOLOR=RGB(0,128,192)
ADD OBJECT c0 AS CONTAINER WITH;
LEFT=1,;
HEIGHT=20,;
TOP=0,;
WIDTH=403,;
BACKCOLOR=RGB(0,128,192),;
BACKSTYLE=1,;
BORDERCOLOR=RGB(0,128,192)
PROCEDURE INIT
PUBLIC titulo,r1,v1,a1,r2,v2,a2,ctr,reg,entero,porcentaje
entero=0
porcentaje=0
ENDPROC
PROCEDURE barra
porcentaje = ctr / reg * 200
entero=INT(porcentaje)
IF entero>=1
figura='this.c1.shape'+ALLTRIM(STR(entero,3))+'.vi sible'
IF &figura=.F.
rojo = r1 + entero * (r2-r1) / 200
verde = v1 + entero * (v2-v1) / 200
azul = a1 + entero * (a2-a1) / 200
bordes='this.c1.shape'+ALLTRIM(STR(entero,3))+'.bo rdercolor'
&bordes=RGB(rojo,verde,azul)
&figura=.T.
ENDIF
ENDIF
ENDPROC
PROCEDURE borrar
IF entero#0
figura='this.c1.shape'+ALLTRIM(STR(entero,3))+'.vi sible'
&figura=.T.
ENDIF
FOR I=1 TO 100
figura='this.c1.shape'+ALLTRIM(STR(I,3))+'.visible '
&figura=.F.
ENDFOR
oFORM.termometro.VISIBLE=.F.
ENDPROC
PROCEDURE configuracion
THIS.VISIBLE=.T.
oform.termometro.c0.label1.CAPTION=titulo
ENDPROC
ENDDEFINE

elkin Uribe


"Alberto - BCN" <desarrollo***infoliber.com> escribió en el mensaje de
noticias:O9qg7HPDJHA.4704***TK2MSFTNGP06.phx.gbl...
> Hola
>
> Tengo en un equipo instalado el office 2007, el foxpro no puede importe
> archivos excel de este nuevo formato (xlsx).
> He probado de guardar el archivo con la opcion de guardar como
> "office2003" (son xls), pero tampoco los importa, mirando en internet he
> visto que cuando se guarda un archivo como "office2003" no lo guarda
> identico a los que guarda la version de office 2003, es decir el foxpro no
> los reconoce.
>
> De momento he solucionado el problema con el guardar como "XLS version
> 5.0".
>
> Si microsoft debe dar soprte a visual foxpro hasta el años 2015 (creo),
> por que no arregla estos errores/mejoras.
>
> Que significa dar soporte, si no actualiza el producto dentro de un par de
> años igual muchas de las funciones que importan dejan de ir, o si se le
> ocurre sacar al mercado un windows "XXXXX" nuevo el foxpro no se podra
> instalar si saca los SP.
>
> Alberto
>
>
>

Hola Alberto, puedes bajar el archivo AccessDatabaseEngine lo instalas en
cada equipo donde la aplicacion importe este tipo de archivo (servidor y
estaciones), y ya puedes importar directamente, mira la informacion que
amablemente me paso Anders y que me permite trabajar con cualquier archivo
de excel indiferente de la version la he probado con version 97,2003 y 2007.
Todo lo que te anexo es para que te des una idea, todo esto lo he sacado del
portal del pueblo, espero no ofender a nadie


*-----------------------------------
* AUTHOR: Trevor Hancock
* CREATED: 02/15/08 04:55:31 PM
* ABSTRACT: Code demonstrates how to connect to
* and extract data from an Excel 2007 Workbook
* using the "Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)"
* from the 2007 Office System Driver: Data Connectivity Components
*-----------------------------------
LOCAL lcXLBook AS STRING, lnSQLHand AS INTEGER, ;
lcSQLCmd AS STRING, lnSuccess AS INTEGER, ;
lcConnstr AS STRING
* CLEAR
CLOSE DATABASES
lcXLBook = [C:\debido_cobrar.xls]

lcConnstr = [Driver=] + ;
[{Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};] + ;
[DBQ=] + lcXLBook

IF !FILE( lcXLBook )
MESSAGEBOX([Excel file not found])
RETURN .F.
ENDIF
*-- Attempt a connection to the .XLSX WorkBook.
*-- NOTE: If the specified workbook is not found,
*-- it will be created by this driver! You cannot rely on a
*-- connection failure - it will never fail. Ergo, success
*-- is not checked here. Used FILE() instead.
lnSQLHand = SQLSTRINGCONNECT( lcConnstr )

*-- Connect successful if we are here. Extract data...
lcSQLCmd = [Select * FROM "Hoja1$"]
lnSuccess = SQLEXEC( lnSQLHand, lcSQLCmd, [xlResults] )
* ? [SQL Cmd Success:], IIF( lnSuccess > 0, 'Esta Bien!', 'Fallo' )
IF lnSuccess < 0
LOCAL ARRAY laErr[1]
AERROR( laErr )
? laErr(3)
SQLDISCONNECT( lnSQLHand )
RETURN .F.
ENDIF


*-- Show the results
SELECT xlResults
* BROWSE NOWAIT
SQLDISCONNECT( lnSQLHand )
COPY TO temporal


***Barra de progreso en degradé de colores
***Autor: Gabriel Mandelli
***ID. DARKFOX

* Primero creamos un formulario
PUBLIC oform
oform=CREATEOBJECT("MyForm")
oform.WINDOWSTATE=0
oform.HEIGHT=39
oform.LEFT=0
oform.TOP=0
oform.WIDTH=406
oform.controlbox = .f.
oform.autocenter = .T.
oform.borderstyle = 0
oform.titlebar = 0
SET CENTURY on
SET DATE TO mdy

* Agregamos los distintos objetos que forman el termómetro
* Está formado por dos contenedores: C0 y C1
* En el container C1 se agregan dos líneas y 200 shapes
* que son los que se irán pintando con los colores en
* degradé a medida que progresa el proceso determinado
* En el container C0 se agrega un texbox con el título
oform.termometro.c1.ADDOBJECT('Linea1','shape')
WITH oform.termometro.c1.linea1
.BACKSTYLE=0
.BACKCOLOR=RGB(88,112,156)
.HEIGHT=2
.LEFT=0
.SPECIALEFFECT=0
.TOP=0
.WIDTH=402
.VISIBLE=.T.
ENDWITH
oform.termometro.c1.ADDOBJECT('Linea2','shape')
WITH oform.termometro.c1.linea2
.BACKSTYLE=0
.BACKCOLOR=RGB(88,112,156)
.HEIGHT=2
.LEFT=0
.SPECIALEFFECT=0
.TOP=18
.WIDTH=402
.VISIBLE=.T.
ENDWITH
FOR I=1 TO 200
figura='Shape'+ALLTRIM(STR(I))
oform.termometro.c1.ADDOBJECT(figura,'shape')
figura1='oform.termometro.c1.'+figura
WITH &figura1.
.BORDERCOLOR=RGB(88,112,156)
.BACKCOLOR=RGB(88,112,156)
.FILLSTYLE=0
.FILLCOLOR=RGB(0,255,0)
.TOP=2
.HEIGHT=15
.WIDTH=2
.LEFT=(I*2)-1
.CURVATURE=0
.VISIBLE=.F.
ENDWITH
ENDFOR
WITH oform.termometro.c0
.ADDOBJECT('label1','label')
.label1.CAPTION='Titulo'
.label1.BORDERSTYLE=0
.label1.BACKSTYLE=0
.label1.FONTBOLD=.T.
.label1.FORECOLOR=RGB(255,255,255)
.label1.TOP=2
.label1.HEIGHT=16
.label1.WIDTH=300
.label1.LEFT=2
.label1.VISIBLE=.T.
ENDWITH
* Se muestra el formulario con el termómetro
oform.SHOW()
* Se llama al procedimiento iniciar que efectúa los cálculos
* necesarios para seleccionar los colores correspondientes a
* cada shape del termómetro
DO iniciar
RETURN
*****
PROCEDURE iniciar
* Se eligen los colores de inicio y final
* Si se quiere colores predeterminados sacar los GETCOLOR y
* poner el valor RGB() deseado
*!* c1=GETCOLOR()
*!* suspend()
*!* c2=GETCOLOR()
*!* suspend()
c1=65535
c2=0
a1=INT(c1/(256*256))
v1=INT(MOD(c1,256*256)/256)
r1=INT(MOD(MOD(c1,256*256),256))
a2=INT(c2/(256*256))
v2=INT(MOD(c2,256*256)/256)
r2=INT(MOD(MOD(c2,256*256),256))
entero = 0
* reg = 200
titulo = 'Procesando Morosos...' &&Título que desea colocarle a la barra
oform.termometro.configuracion

set talk off
set echo off
set safe off
set dele on
close data
SET EXCLUSIVE off
SET MULTILOCKS on
PUBLIC final1
SELECT 1
USE morosos &&&excl
SET ORDER TO ficha
CURSORSETPROP('Buffering',5,'morosos') &&Buffering optimista
reg = RECCOUNT()
GO top
SCAN FOR LASTKEY() # 27 &&&FOR ctr = 1 TO reg
*!* ctr = RECNO()
*!* oform.termometro.barra
IF LASTKEY() # 27
BEGIN TRANSACTION
replace acumulado_año_actual1 WITH acumulado_año_actual, ;
acumulado_año_anterior1 WITH acumulado_año_anterior, ;
recargos1 WITH recargos, ;
saldo1 WITH saldo, ;
descuentos1 WITH descuentos, ;
devoluciones1 WITH devoluciones, ;
facturado1 WITH facturado
IF TABLEUPDATE(2,.F.,'morosos')
END TRANSACTION
ELSE
ROLLBACK
ENDIF
ENDIF
ENDSCAN
* oform.termometro.borrar
select morosos
SET ORDER TO ficha
* delete for val(codprov) = 0
* pack
c1=65535
c2=0
a1=INT(c1/(256*256))
v1=INT(MOD(c1,256*256)/256)
r1=INT(MOD(MOD(c1,256*256),256))
a2=INT(c2/(256*256))
v2=INT(MOD(c2,256*256)/256)
r2=INT(MOD(MOD(c2,256*256),256))
entero = 0
titulo = 'Actualizando Saldos Morosos...' &&Título que desea colocarle a
la barra
oform.termometro.configuracion


SELECT 2
USE temporal EXCLUSIVE
GO top
DELETE
PACK
reg = RECCOUNT()
GO top
SCAN FOR LASTKEY() # 27 &&&FOR ctr = 1 TO reg
ctr = RECNO()
oform.termometro.barra
*****
* Procesos que se realiza
* reemplazar el INKEY por el proceso
* INKEY(.01)
*****
SELECT morosos
GO TOP
* LOCATE FOR ALLTRIM(ficha) == alltrim(temporal.ficha)
IF !SEEK(alltrim(temporal.ficha),"Morosos")
IF LASTKEY() # 27
BEGIN TRANSACTION
INSERT INTO morosos (telefono,direccion,cedula, ;
facturado, acumulado_año_actual,;
acumulado_año_anterior, recargos,saldo,;
ficha, nombre, ruta, descuentos, devoluciones, ;
direccion_cobro, estado, dia, mes, ano, fecha) VALUES ;
(IIF(ISNULL(temporal.telefono)," ",ALLTRIM(temporal.telefono)),;
IIF(ISNULL(temporal.direccion)," ",ALLTRIM(temporal.direccion)), ;
IIF(ISNULL(temporal.cedula),"",ALLTRIM(temporal.ce dula)),;
IIF(ISNULL(temporal.facturado),0,VAL(temporal.fact urado)), ;
IIF(ISNULL(temporal.acumulado_),0,VAL(temporal.acu mulado_)),;
IIF(ISNULL(temporal.años_anter),0,VAL(temporal.año s_anter)),0,;
IIF(ISNULL(temporal.saldo),0,VAL(temporal.saldo)), ;
IIF(ISNULL(temporal.ficha)," ",temporal.ficha),;
IIF(ISNULL(temporal.propietari)," ",temporal.propietari), ;
IIF(ISNULL(temporal.ruta)," ",temporal.ruta), ;
IIF(ISNULL(temporal.descuentos),0,VAL(temporal.des cuentos)), ;
IIF(ISNULL(temporal.devolucion),0,VAL(temporal.dev olucion)), ;
IIF(ISNULL(temporal.direccion_)," ",temporal.direccion_), ;
IIF(ISNULL(temporal.estado),"",ALLTRIM(temporal.es tado)), ;
IIF(ISNULL(temporal.dia),"",PADL(ALLTRIM(temporal. dia),2,"0")), ;
IIF(ISNULL(temporal.mes),"",PADL(ALLTRIM(temporal. mes),2,"0")), ;
IIF(ISNULL(temporal.año),"",ALLTRIM(temporal.año)) , ;
IIF(ISNULL(temporal.mes),DATE(),IIF(ISNULL(tempora l.dia),DATE(),IIF(ISNULL(temporal.año),DATE(),;
CTOD(PADL(ALLTRIM(temporal.mes),2,"0")+"/"+PADL(ALLTRIM(temporal.dia),2,"0");
+"/"+ALLTRIM(temporal.año))))))
IF TABLEUPDATE(2,.F.,'Morosos')
END TRANSACTION
ELSE
ROLLBACK
ENDIF
ENDIF
ELSE
IF LASTKEY() # 27
BEGIN TRANSACTION
replace acumulado_año_actual WITH
IIF(ISNULL(temporal.acumulado_),0,VAL(temporal.acu mulado_)), ;
acumulado_año_anterior WITH
IIF(ISNULL(temporal.años_anter),0,VAL(temporal.año s_anter)), ;
recargos WITH 0, ;
saldo WITH IIF(ISNULL(temporal.saldo),0,VAL(temporal.saldo)), ;
descuentos WITH
IIF(ISNULL(temporal.descuentos),0,VAL(temporal.des cuentos)), ;
devoluciones WITH
IIF(ISNULL(temporal.devolucion),0,VAL(temporal.dev olucion)), ;
facturado WITH
IIF(ISNULL(temporal.facturado),0,VAL(temporal.fact urado))
IF TABLEUPDATE(2,.F.,'Morosos')
END TRANSACTION
ELSE
ROLLBACK
ENDIF
ENDIF
ENDIF
SELECT temporal
ENDSCAN
CURSORSETPROP('Buffering',1,'morosos') &&Buffering optimista
close data
USE
SET EXCLUSIVE off
oform.termometro.borrar
oform.RELEASE
ENDPROC
************
DEFINE CLASS MyForm AS FORM
CAPTION="Termómetro"
BORDERSTYLE=3
AUTOCENTER=.T.
HEIGHT=39
LEFT=0
TOP=0
WIDTH=406
ADD OBJECT termometro AS termo
ENDDEFINE
DEFINE CLASS termo AS CONTAINER
HEIGHT=44
WIDTH=408
SPECIALEFFECT=1
BACKSTYLE=0
ADD OBJECT c1 AS CONTAINER WITH;
LEFT=1,;
HEIGHT=20,;
TOP=20,;
WIDTH=403,;
BACKCOLOR=RGB(0,128,192),;
BACKSTYLE=1,;
BORDERCOLOR=RGB(0,128,192)
ADD OBJECT c0 AS CONTAINER WITH;
LEFT=1,;
HEIGHT=20,;
TOP=0,;
WIDTH=403,;
BACKCOLOR=RGB(0,128,192),;
BACKSTYLE=1,;
BORDERCOLOR=RGB(0,128,192)
PROCEDURE INIT
PUBLIC titulo,r1,v1,a1,r2,v2,a2,ctr,reg,entero,porcentaje
entero=0
porcentaje=0
ENDPROC
PROCEDURE barra
porcentaje = ctr / reg * 200
entero=INT(porcentaje)
IF entero>=1
figura='this.c1.shape'+ALLTRIM(STR(entero,3))+'.vi sible'
IF &figura=.F.
rojo = r1 + entero * (r2-r1) / 200
verde = v1 + entero * (v2-v1) / 200
azul = a1 + entero * (a2-a1) / 200
bordes='this.c1.shape'+ALLTRIM(STR(entero,3))+'.bo rdercolor'
&bordes=RGB(rojo,verde,azul)
&figura=.T.
ENDIF
ENDIF
ENDPROC
PROCEDURE borrar
IF entero#0
figura='this.c1.shape'+ALLTRIM(STR(entero,3))+'.vi sible'
&figura=.T.
ENDIF
FOR I=1 TO 100
figura='this.c1.shape'+ALLTRIM(STR(I,3))+'.visible '
&figura=.F.
ENDFOR
oFORM.termometro.VISIBLE=.F.
ENDPROC
PROCEDURE configuracion
THIS.VISIBLE=.T.
oform.termometro.c0.label1.CAPTION=titulo
ENDPROC
ENDDEFINE

elkin Uribe


"Alberto - BCN" <desarrollo***infoliber.com> escribió en el mensaje de
noticias:O9qg7HPDJHA.4704***TK2MSFTNGP06.phx.gbl...
> Hola
>
> Tengo en un equipo instalado el office 2007, el foxpro no puede importe
> archivos excel de este nuevo formato (xlsx).
> He probado de guardar el archivo con la opcion de guardar como
> "office2003" (son xls), pero tampoco los importa, mirando en internet he
> visto que cuando se guarda un archivo como "office2003" no lo guarda
> identico a los que guarda la version de office 2003, es decir el foxpro no
> los reconoce.
>
> De momento he solucionado el problema con el guardar como "XLS version
> 5.0".
>
> Si microsoft debe dar soprte a visual foxpro hasta el años 2015 (creo),
> por que no arregla estos errores/mejoras.
>
> Que significa dar soporte, si no actualiza el producto dentro de un par de
> años igual muchas de las funciones que importan dejan de ir, o si se le
> ocurre sacar al mercado un windows "XXXXX" nuevo el foxpro no se podra
> instalar si saca los SP.
>
> Alberto
>
>
>

Hola Alberto, puedes bajar el archivo AccessDatabaseEngine lo instalas en
cada equipo donde la aplicacion importe este tipo de archivo (servidor y
estaciones), y ya puedes importar directamente, mira la informacion que
amablemente me paso Anders y que me permite trabajar con cualquier archivo
de excel indiferente de la version la he probado con version 97,2003 y 2007.
Todo lo que te anexo es para que te des una idea, todo esto lo he sacado del
portal del pueblo, espero no ofender a nadie


*-----------------------------------
* AUTHOR: Trevor Hancock
* CREATED: 02/15/08 04:55:31 PM
* ABSTRACT: Code demonstrates how to connect to
* and extract data from an Excel 2007 Workbook
* using the "Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)"
* from the 2007 Office System Driver: Data Connectivity Components
*-----------------------------------
LOCAL lcXLBook AS STRING, lnSQLHand AS INTEGER, ;
lcSQLCmd AS STRING, lnSuccess AS INTEGER, ;
lcConnstr AS STRING
* CLEAR
CLOSE DATABASES
lcXLBook = [C:\debido_cobrar.xls]

lcConnstr = [Driver=] + ;
[{Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};] + ;
[DBQ=] + lcXLBook

IF !FILE( lcXLBook )
MESSAGEBOX([Excel file not found])
RETURN .F.
ENDIF
*-- Attempt a connection to the .XLSX WorkBook.
*-- NOTE: If the specified workbook is not found,
*-- it will be created by this driver! You cannot rely on a
*-- connection failure - it will never fail. Ergo, success
*-- is not checked here. Used FILE() instead.
lnSQLHand = SQLSTRINGCONNECT( lcConnstr )

*-- Connect successful if we are here. Extract data...
lcSQLCmd = [Select * FROM "Hoja1$"]
lnSuccess = SQLEXEC( lnSQLHand, lcSQLCmd, [xlResults] )
* ? [SQL Cmd Success:], IIF( lnSuccess > 0, 'Esta Bien!', 'Fallo' )
IF lnSuccess < 0
LOCAL ARRAY laErr[1]
AERROR( laErr )
? laErr(3)
SQLDISCONNECT( lnSQLHand )
RETURN .F.
ENDIF


*-- Show the results
SELECT xlResults
* BROWSE NOWAIT
SQLDISCONNECT( lnSQLHand )
COPY TO temporal


***Barra de progreso en degradé de colores
***Autor: Gabriel Mandelli
***ID. DARKFOX

* Primero creamos un formulario
PUBLIC oform
oform=CREATEOBJECT("MyForm")
oform.WINDOWSTATE=0
oform.HEIGHT=39
oform.LEFT=0
oform.TOP=0
oform.WIDTH=406
oform.controlbox = .f.
oform.autocenter = .T.
oform.borderstyle = 0
oform.titlebar = 0
SET CENTURY on
SET DATE TO mdy

* Agregamos los distintos objetos que forman el termómetro
* Está formado por dos contenedores: C0 y C1
* En el container C1 se agregan dos líneas y 200 shapes
* que son los que se irán pintando con los colores en
* degradé a medida que progresa el proceso determinado
* En el container C0 se agrega un texbox con el título
oform.termometro.c1.ADDOBJECT('Linea1','shape')
WITH oform.termometro.c1.linea1
.BACKSTYLE=0
.BACKCOLOR=RGB(88,112,156)
.HEIGHT=2
.LEFT=0
.SPECIALEFFECT=0
.TOP=0
.WIDTH=402
.VISIBLE=.T.
ENDWITH
oform.termometro.c1.ADDOBJECT('Linea2','shape')
WITH oform.termometro.c1.linea2
.BACKSTYLE=0
.BACKCOLOR=RGB(88,112,156)
.HEIGHT=2
.LEFT=0
.SPECIALEFFECT=0
.TOP=18
.WIDTH=402
.VISIBLE=.T.
ENDWITH
FOR I=1 TO 200
figura='Shape'+ALLTRIM(STR(I))
oform.termometro.c1.ADDOBJECT(figura,'shape')
figura1='oform.termometro.c1.'+figura
WITH &figura1.
.BORDERCOLOR=RGB(88,112,156)
.BACKCOLOR=RGB(88,112,156)
.FILLSTYLE=0
.FILLCOLOR=RGB(0,255,0)
.TOP=2
.HEIGHT=15
.WIDTH=2
.LEFT=(I*2)-1
.CURVATURE=0
.VISIBLE=.F.
ENDWITH
ENDFOR
WITH oform.termometro.c0
.ADDOBJECT('label1','label')
.label1.CAPTION='Titulo'
.label1.BORDERSTYLE=0
.label1.BACKSTYLE=0
.label1.FONTBOLD=.T.
.label1.FORECOLOR=RGB(255,255,255)
.label1.TOP=2
.label1.HEIGHT=16
.label1.WIDTH=300
.label1.LEFT=2
.label1.VISIBLE=.T.
ENDWITH
* Se muestra el formulario con el termómetro
oform.SHOW()
* Se llama al procedimiento iniciar que efectúa los cálculos
* necesarios para seleccionar los colores correspondientes a
* cada shape del termómetro
DO iniciar
RETURN
*****
PROCEDURE iniciar
* Se eligen los colores de inicio y final
* Si se quiere colores predeterminados sacar los GETCOLOR y
* poner el valor RGB() deseado
*!* c1=GETCOLOR()
*!* suspend()
*!* c2=GETCOLOR()
*!* suspend()
c1=65535
c2=0
a1=INT(c1/(256*256))
v1=INT(MOD(c1,256*256)/256)
r1=INT(MOD(MOD(c1,256*256),256))
a2=INT(c2/(256*256))
v2=INT(MOD(c2,256*256)/256)
r2=INT(MOD(MOD(c2,256*256),256))
entero = 0
* reg = 200
titulo = 'Procesando Morosos...' &&Título que desea colocarle a la barra
oform.termometro.configuracion

set talk off
set echo off
set safe off
set dele on
close data
SET EXCLUSIVE off
SET MULTILOCKS on
PUBLIC final1
SELECT 1
USE morosos &&&excl
SET ORDER TO ficha
CURSORSETPROP('Buffering',5,'morosos') &&Buffering optimista
reg = RECCOUNT()
GO top
SCAN FOR LASTKEY() # 27 &&&FOR ctr = 1 TO reg
*!* ctr = RECNO()
*!* oform.termometro.barra
IF LASTKEY() # 27
BEGIN TRANSACTION
replace acumulado_año_actual1 WITH acumulado_año_actual, ;
acumulado_año_anterior1 WITH acumulado_año_anterior, ;
recargos1 WITH recargos, ;
saldo1 WITH saldo, ;
descuentos1 WITH descuentos, ;
devoluciones1 WITH devoluciones, ;
facturado1 WITH facturado
IF TABLEUPDATE(2,.F.,'morosos')
END TRANSACTION
ELSE
ROLLBACK
ENDIF
ENDIF
ENDSCAN
* oform.termometro.borrar
select morosos
SET ORDER TO ficha
* delete for val(codprov) = 0
* pack
c1=65535
c2=0
a1=INT(c1/(256*256))
v1=INT(MOD(c1,256*256)/256)
r1=INT(MOD(MOD(c1,256*256),256))
a2=INT(c2/(256*256))
v2=INT(MOD(c2,256*256)/256)
r2=INT(MOD(MOD(c2,256*256),256))
entero = 0
titulo = 'Actualizando Saldos Morosos...' &&Título que desea colocarle a
la barra
oform.termometro.configuracion


SELECT 2
USE temporal EXCLUSIVE
GO top
DELETE
PACK
reg = RECCOUNT()
GO top
SCAN FOR LASTKEY() # 27 &&&FOR ctr = 1 TO reg
ctr = RECNO()
oform.termometro.barra
*****
* Procesos que se realiza
* reemplazar el INKEY por el proceso
* INKEY(.01)
*****
SELECT morosos
GO TOP
* LOCATE FOR ALLTRIM(ficha) == alltrim(temporal.ficha)
IF !SEEK(alltrim(temporal.ficha),"Morosos")
IF LASTKEY() # 27
BEGIN TRANSACTION
INSERT INTO morosos (telefono,direccion,cedula, ;
facturado, acumulado_año_actual,;
acumulado_año_anterior, recargos,saldo,;
ficha, nombre, ruta, descuentos, devoluciones, ;
direccion_cobro, estado, dia, mes, ano, fecha) VALUES ;
(IIF(ISNULL(temporal.telefono)," ",ALLTRIM(temporal.telefono)),;
IIF(ISNULL(temporal.direccion)," ",ALLTRIM(temporal.direccion)), ;
IIF(ISNULL(temporal.cedula),"",ALLTRIM(temporal.ce dula)),;
IIF(ISNULL(temporal.facturado),0,VAL(temporal.fact urado)), ;
IIF(ISNULL(temporal.acumulado_),0,VAL(temporal.acu mulado_)),;
IIF(ISNULL(temporal.años_anter),0,VAL(temporal.año s_anter)),0,;
IIF(ISNULL(temporal.saldo),0,VAL(temporal.saldo)), ;
IIF(ISNULL(temporal.ficha)," ",temporal.ficha),;
IIF(ISNULL(temporal.propietari)," ",temporal.propietari), ;
IIF(ISNULL(temporal.ruta)," ",temporal.ruta), ;
IIF(ISNULL(temporal.descuentos),0,VAL(temporal.des cuentos)), ;
IIF(ISNULL(temporal.devolucion),0,VAL(temporal.dev olucion)), ;
IIF(ISNULL(temporal.direccion_)," ",temporal.direccion_), ;
IIF(ISNULL(temporal.estado),"",ALLTRIM(temporal.es tado)), ;
IIF(ISNULL(temporal.dia),"",PADL(ALLTRIM(temporal. dia),2,"0")), ;
IIF(ISNULL(temporal.mes),"",PADL(ALLTRIM(temporal. mes),2,"0")), ;
IIF(ISNULL(temporal.año),"",ALLTRIM(temporal.año)) , ;
IIF(ISNULL(temporal.mes),DATE(),IIF(ISNULL(tempora l.dia),DATE(),IIF(ISNULL(temporal.año),DATE(),;
CTOD(PADL(ALLTRIM(temporal.mes),2,"0")+"/"+PADL(ALLTRIM(temporal.dia),2,"0");
+"/"+ALLTRIM(temporal.año))))))
IF TABLEUPDATE(2,.F.,'Morosos')
END TRANSACTION
ELSE
ROLLBACK
ENDIF
ENDIF
ELSE
IF LASTKEY() # 27
BEGIN TRANSACTION
replace acumulado_año_actual WITH
IIF(ISNULL(temporal.acumulado_),0,VAL(temporal.acu mulado_)), ;
acumulado_año_anterior WITH
IIF(ISNULL(temporal.años_anter),0,VAL(temporal.año s_anter)), ;
recargos WITH 0, ;
saldo WITH IIF(ISNULL(temporal.saldo),0,VAL(temporal.saldo)), ;
descuentos WITH
IIF(ISNULL(temporal.descuentos),0,VAL(temporal.des cuentos)), ;
devoluciones WITH
IIF(ISNULL(temporal.devolucion),0,VAL(temporal.dev olucion)), ;
facturado WITH
IIF(ISNULL(temporal.facturado),0,VAL(temporal.fact urado))
IF TABLEUPDATE(2,.F.,'Morosos')
END TRANSACTION
ELSE
ROLLBACK
ENDIF
ENDIF
ENDIF
SELECT temporal
ENDSCAN
CURSORSETPROP('Buffering',1,'morosos') &&Buffering optimista
close data
USE
SET EXCLUSIVE off
oform.termometro.borrar
oform.RELEASE
ENDPROC
************
DEFINE CLASS MyForm AS FORM
CAPTION="Termómetro"
BORDERSTYLE=3
AUTOCENTER=.T.
HEIGHT=39
LEFT=0
TOP=0
WIDTH=406
ADD OBJECT termometro AS termo
ENDDEFINE
DEFINE CLASS termo AS CONTAINER
HEIGHT=44
WIDTH=408
SPECIALEFFECT=1
BACKSTYLE=0
ADD OBJECT c1 AS CONTAINER WITH;
LEFT=1,;
HEIGHT=20,;
TOP=20,;
WIDTH=403,;
BACKCOLOR=RGB(0,128,192),;
BACKSTYLE=1,;
BORDERCOLOR=RGB(0,128,192)
ADD OBJECT c0 AS CONTAINER WITH;
LEFT=1,;
HEIGHT=20,;
TOP=0,;
WIDTH=403,;
BACKCOLOR=RGB(0,128,192),;
BACKSTYLE=1,;
BORDERCOLOR=RGB(0,128,192)
PROCEDURE INIT
PUBLIC titulo,r1,v1,a1,r2,v2,a2,ctr,reg,entero,porcentaje
entero=0
porcentaje=0
ENDPROC
PROCEDURE barra
porcentaje = ctr / reg * 200
entero=INT(porcentaje)
IF entero>=1
figura='this.c1.shape'+ALLTRIM(STR(entero,3))+'.vi sible'
IF &figura=.F.
rojo = r1 + entero * (r2-r1) / 200
verde = v1 + entero * (v2-v1) / 200
azul = a1 + entero * (a2-a1) / 200
bordes='this.c1.shape'+ALLTRIM(STR(entero,3))+'.bo rdercolor'
&bordes=RGB(rojo,verde,azul)
&figura=.T.
ENDIF
ENDIF
ENDPROC
PROCEDURE borrar
IF entero#0
figura='this.c1.shape'+ALLTRIM(STR(entero,3))+'.vi sible'
&figura=.T.
ENDIF
FOR I=1 TO 100
figura='this.c1.shape'+ALLTRIM(STR(I,3))+'.visible '
&figura=.F.
ENDFOR
oFORM.termometro.VISIBLE=.F.
ENDPROC
PROCEDURE configuracion
THIS.VISIBLE=.T.
oform.termometro.c0.label1.CAPTION=titulo
ENDPROC
ENDDEFINE

elkin Uribe


"Alberto - BCN" <desarrollo***infoliber.com> escribió en el mensaje de
noticias:O9qg7HPDJHA.4704***TK2MSFTNGP06.phx.gbl...
> Hola
>
> Tengo en un equipo instalado el office 2007, el foxpro no puede importe
> archivos excel de este nuevo formato (xlsx).
> He probado de guardar el archivo con la opcion de guardar como
> "office2003" (son xls), pero tampoco los importa, mirando en internet he
> visto que cuando se guarda un archivo como "office2003" no lo guarda
> identico a los que guarda la version de office 2003, es decir el foxpro no
> los reconoce.
>
> De momento he solucionado el problema con el guardar como "XLS version
> 5.0".
>
> Si microsoft debe dar soprte a visual foxpro hasta el años 2015 (creo),
> por que no arregla estos errores/mejoras.
>
> Que significa dar soporte, si no actualiza el producto dentro de un par de
> años igual muchas de las funciones que importan dejan de ir, o si se le
> ocurre sacar al mercado un windows "XXXXX" nuevo el foxpro no se podra
> instalar si saca los SP.
>
> Alberto
>
>
>

gracias

"WEHS" <wehsvulcano***gmail.com> escribió en el mensaje
news:679A72C2-E03F-4592-B7C8-FEBE9A9D2BDA***microsoft.com...
> Alberto,
>
> Yo he tenido tus mismos problemas , y para resolverlos 1. pongo un mensaje
> al usuario antes de hacer el appen from de que tiene instalado office2007
> y que abra la hoja y la grabe como Excel Version 5 y 2. Usando
> automatización de office.
>
> saludos,
>
>
> --
> William Hernández
> VFP9 SP2/Vista Bussines
> Santiago, Chile.
>
> "Alberto - BCN" <desarrollo***infoliber.com> escribió en el mensaje de
> noticias news:O9qg7HPDJHA.4704***TK2MSFTNGP06.phx.gbl...
>> Hola
>>
>> Tengo en un equipo instalado el office 2007, el foxpro no puede importe
>> archivos excel de este nuevo formato (xlsx).
>> He probado de guardar el archivo con la opcion de guardar como
>> "office2003" (son xls), pero tampoco los importa, mirando en internet he
>> visto que cuando se guarda un archivo como "office2003" no lo guarda
>> identico a los que guarda la version de office 2003, es decir el foxpro
>> no los reconoce.
>>
>> De momento he solucionado el problema con el guardar como "XLS version
>> 5.0".
>>
>> Si microsoft debe dar soprte a visual foxpro hasta el años 2015 (creo),
>> por que no arregla estos errores/mejoras.
>>
>> Que significa dar soporte, si no actualiza el producto dentro de un par
>> de años igual muchas de las funciones que importan dejan de ir, o si se
>> le ocurre sacar al mercado un windows "XXXXX" nuevo el foxpro no se podra
>> instalar si saca los SP.
>>
>> Alberto
>>
>>
>>
>

gracias

"WEHS" <wehsvulcano***gmail.com> escribió en el mensaje
news:679A72C2-E03F-4592-B7C8-FEBE9A9D2BDA***microsoft.com...
> Alberto,
>
> Yo he tenido tus mismos problemas , y para resolverlos 1. pongo un mensaje
> al usuario antes de hacer el appen from de que tiene instalado office2007
> y que abra la hoja y la grabe como Excel Version 5 y 2. Usando
> automatización de office.
>
> saludos,
>
>
> --
> William Hernández
> VFP9 SP2/Vista Bussines
> Santiago, Chile.
>
> "Alberto - BCN" <desarrollo***infoliber.com> escribió en el mensaje de
> noticias news:O9qg7HPDJHA.4704***TK2MSFTNGP06.phx.gbl...
>> Hola
>>
>> Tengo en un equipo instalado el office 2007, el foxpro no puede importe
>> archivos excel de este nuevo formato (xlsx).
>> He probado de guardar el archivo con la opcion de guardar como
>> "office2003" (son xls), pero tampoco los importa, mirando en internet he
>> visto que cuando se guarda un archivo como "office2003" no lo guarda
>> identico a los que guarda la version de office 2003, es decir el foxpro
>> no los reconoce.
>>
>> De momento he solucionado el problema con el guardar como "XLS version
>> 5.0".
>>
>> Si microsoft debe dar soprte a visual foxpro hasta el años 2015 (creo),
>> por que no arregla estos errores/mejoras.
>>
>> Que significa dar soporte, si no actualiza el producto dentro de un par
>> de años igual muchas de las funciones que importan dejan de ir, o si se
>> le ocurre sacar al mercado un windows "XXXXX" nuevo el foxpro no se podra
>> instalar si saca los SP.
>>
>> Alberto
>>
>>
>>
>

gracias

"WEHS" <wehsvulcano***gmail.com> escribió en el mensaje
news:679A72C2-E03F-4592-B7C8-FEBE9A9D2BDA***microsoft.com...
> Alberto,
>
> Yo he tenido tus mismos problemas , y para resolverlos 1. pongo un mensaje
> al usuario antes de hacer el appen from de que tiene instalado office2007
> y que abra la hoja y la grabe como Excel Version 5 y 2. Usando
> automatización de office.
>
> saludos,
>
>
> --
> William Hernández
> VFP9 SP2/Vista Bussines
> Santiago, Chile.
>
> "Alberto - BCN" <desarrollo***infoliber.com> escribió en el mensaje de
> noticias news:O9qg7HPDJHA.4704***TK2MSFTNGP06.phx.gbl...
>> Hola
>>
>> Tengo en un equipo instalado el office 2007, el foxpro no puede importe
>> archivos excel de este nuevo formato (xlsx).
>> He probado de guardar el archivo con la opcion de guardar como
>> "office2003" (son xls), pero tampoco los importa, mirando en internet he
>> visto que cuando se guarda un archivo como "office2003" no lo guarda
>> identico a los que guarda la version de office 2003, es decir el foxpro
>> no los reconoce.
>>
>> De momento he solucionado el problema con el guardar como "XLS version
>> 5.0".
>>
>> Si microsoft debe dar soprte a visual foxpro hasta el años 2015 (creo),
>> por que no arregla estos errores/mejoras.
>>
>> Que significa dar soporte, si no actualiza el producto dentro de un par
>> de años igual muchas de las funciones que importan dejan de ir, o si se
>> le ocurre sacar al mercado un windows "XXXXX" nuevo el foxpro no se podra
>> instalar si saca los SP.
>>
>> Alberto
>>
>>
>>
>