Importar datos de un excel con VFP 9 SP1

[fputignani]

Bueno, intento importar una tabla de Excel modelo 2003 y VFP deja de
funcionar y se cierra.

Uso el siguiente código en el evento clic de un botón:

IMPORT FROM GETFILE() TYPE XLS

- Intenté poner la dirección del archivo en lugar de getfile()
- Intenté con distintos archivos que esten ordenados diferente los
datos
- Probé especificando el nombre de lahoja donde estan los datos
- Poniendo el nombre de una base de datos y de una tabla para donde
los guarde
Pero siempre pasó lo mismo y deja de funcionar el programa y se cierra
todo.
Alguna sugerencia ?

Uso el VFP9 SP1 y el archivo de excel es sumamente sencillo

[Trento]

A mi no me da problemas... pero uso el SP2. T sí, con Office 2003.


Saludos.

[Luis Mata]

?No tiene nada que ve el Sp debes de usar odbc

prueba esto:

FUNCTION importa_xls
arnuevo = getfile('xls,xlsx')
if arnuevo==''
RETURN .f.
ELSE
nchar = LEN(arnuevo)
vaqui = 0
FOR e=1 TO nchar
IF SUBSTR(arnuevo,e,1)=='\'
vaqui = e
endif
NEXT e
mileft = LEN(LEFT(arnuevo,vaqui))
milen = LEN(arnuevo)
mifilealt = SUBSTR(arnuevo,mileft+1,(milen-(mileft+1))-3)
*--abriendo el archivo xlsx
LOCAL lcXLBook AS STRING, lnSQLHand AS INTEGER, ;
lcSQLCmd AS STRING, lnSuccess AS INTEGER, ;
lcConnstr AS STRING
lcXLBook = arnuevo
mierrorx = 0
lcConnstr = [Driver=] + ;
[{Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};] + ;
[DBQ=] + lcXLBook

IF !FILE( lcXLBook )
MESSAGEBOX ([Archivo excel no encontrado],31,"Archivo no encontrado")
RETURN .f.
ENDIF
lnSQLHand = SQLSTRINGCONNECT( lcConnstr )
IF lnSQLHand < 0
MESSAGEBOX("Error de Conexi�n , Verifique.",48,"Error")
RETURN .f.
ENDIF
lcSQLCmd = 'Select * FROM "'+mifilealt+'$"'
lnSuccess = SQLEXEC( lnSQLHand, lcSQLCmd, [xlResults] )
IF lnSuccess < 0
SQLDISCONNECT( lnSQLHand )
MESSAGEBOX("No se pudo importar el Archivo Verifique que el nombre del
archivo sea igual al nombre de la hoja a importar.",48,"Erro al Intentar
importar.")
RETURN .f.
ENDIF
SQLDISCONNECT( lnSQLHand )
endif
SELECT xlResults

Descarga e Instala esto antes:

http://www.microsoft.com/downloads/en/details.aspx?familyid=7554f536-8c28-4598-9b72-ef94e038c891&displaylang=en

Luis

----- Original Message -----
From: "fputignani" <fputi...@gmail.com>
To: "Comunidad de Visual Foxpro en Espa�ol"
<publice...@googlegroups.com>
Sent: Wednesday, November 17, 2010 3:24 PM
Subject: [vfp] Re: Importar datos de un excel con VFP 9 SP1

Voy a tratar de conseguir el SP2 para ver si es un problema de
compatibilidad.
Pero me gustar�a que alguno me comente si hay algo que no tuve en
cuenta, o si a alguien tambi�n le paso algo similar.

On 17 nov, 17:14, Trento <trento...@gmail.com> wrote:
> A mi no me da problemas... pero uso el SP2. T s�, con Office 2003.

>
> Saludos.
>
> On 17 nov, 14:06, fputignani <fputign...@gmail.com> wrote:
>
>
>
>
>
>
>
> > Bueno, intento importar una tabla de Excel modelo 2003 y VFP deja de
> > funcionar y se cierra.
>

> > Uso el siguiente c�digo en el evento clic de un bot�n:

>
> > IMPORT FROM GETFILE() TYPE XLS
>

> > - Intent� poner la direcci�n del archivo en lugar de getfile()
> > - Intent� con distintos archivos que esten ordenados diferente los
> > datos
> > - Prob� especificando el nombre de lahoja donde estan los datos

> > - Poniendo el nombre de una base de datos y de una tabla para donde
> > los guarde

> > Pero siempre pas� lo mismo y deja de funcionar el programa y se cierra

[marcelobuenosaires]

Hola

Este comando

IMPORT FROM GETFILE() TYPE XLS

funciona OK en VFP 6.0

Proba utilizando macros...

xlsFile = getfile('XLS')

comando = 'IMPORT FROM "' + xlsFile + '" type XLS'
&comando

(Utiliza doble comilla como en el ejemplo para encerrar el nombre del
archivo
por si tiene mas de 8 caracteres o tiene espacios en su nombre)

Saludos
MarceloBuenosAires
__________________________

El 17/11/2010 05:06 p.m., fputignani escribi�:

[fputignani]

Este error me aparece (antes no lo había visto porque se abre en
segundo plano el error)
http://img405.imageshack .us/img405/4238/capturawz.jpg
>>No me deja escribir el link, asi que quitenle el espacio que hay antes de .us


Muchas gracias Marcelo por el dato. El siguiente paso es probarlo
desde otra PC, o conseguir otra versión del programa.

Luis Mata, le puse de nombre a la hoja el mismo nombre que el archivo,
y parece que no falló, pero tampoco hizo nada. Yo esperaba que se cree
una tabla nueva con los datos del excel, no ?



On 17 nov, 19:04, marcelobuenosaires <marcelobuenosai...@gmail.com>
wrote:

[Luis Mata]

?claro tienes que ver en la sesion de datos ahi hay una tabla XLSRESULTS

----- Original Message -----
From: "fputignani" <fputi...@gmail.com>
To: "Comunidad de Visual Foxpro en Espa�ol"
<publice...@googlegroups.com>
Sent: Wednesday, November 17, 2010 5:30 PM
Subject: [vfp] Re: Importar datos de un excel con VFP 9 SP1

Este error me aparece (antes no lo hab�a visto porque se abre en

segundo plano el error)
http://img405.imageshack .us/img405/4238/capturawz.jpg
>>No me deja escribir el link, asi que quitenle el espacio que hay antes de
>>.us

Muchas gracias Marcelo por el dato. El siguiente paso es probarlo

desde otra PC, o conseguir otra versi�n del programa.

Luis Mata, le puse de nombre a la hoja el mismo nombre que el archivo,

y parece que no fall�, pero tampoco hizo nada. Yo esperaba que se cree

[fputignani]

Ta si es verdad. Si funciona. Yo la buscaba como una tabla libre, pero
ahí no aparece.
Con que función puedo guardar la tabla actual como una tabla libre del
proyecto ?
Hay alguna función para cambian los tipos de campos de las tablas ?
porque quiero pasar de los campos memo a caracter.
Saludos, gracias Luis ;)

[fputignani]

Bien, pude agregar la tabla al proyecto con
COPY TO "lista1" DATABASE "datos1" NAME "lista1"

Ahora, como puedo hacer para cambiar la estructura de la tabla en
tiempo de ejecución ?
Porque me aparecen como campos memo, y me interesa pasarlos a
Caracter....

[lervys cuicas]

Buenas noches, coloque esta funcion en un boton de comando y me da error, me podria decir donde coloco este codigo y si me sirve para exportar datos de una tabla de excel a una tabla de foxpro 9.0...?

> MESSAGEBOX("Error de Conexión , Verifique.",48,"Error")

> Pero me gustaría que alguno me comente si hay algo que no tuve en
> cuenta, o si a alguien también le paso algo similar.

>
>
>
> On 17 nov, 17:14, Trento <trento...@gmail.com> wrote:

> > A mi no me da problemas... pero uso el SP2. T sí, con Office 2003.

> >
> > Saludos.
> >
> > On 17 nov, 14:06, fputignani <fputign...@gmail.com> wrote:
> >
> >
> >
> >
> >
> >
> >
> > > Bueno, intento importar una tabla de Excel modelo 2003 y VFP deja de
> > > funcionar y se cierra.
> >

> > > Uso el siguiente código en el evento clic de un botón:

> >
> > > IMPORT FROM GETFILE() TYPE XLS
> >

> > > - Intenté poner la dirección del archivo en lugar de getfile()
> > > - Intenté con distintos archivos que esten ordenados diferente los
> > > datos
> > > - Probé especificando el nombre de lahoja donde estan los datos

> > > - Poniendo el nombre de una base de datos y de una tabla para donde
> > > los guarde

> > > Pero siempre pasó lo mismo y deja de funcionar el programa y se cierra

[lm...@cclf.com.pe]

debes de descarrgar e  instalar el driver de xls:

 

http://www.microsoft.com/downloads/en/details.aspx?familyid=7554F536-8C28-4598-9B72-EF94E038C891&displaylang=en

 

Y va a funcionar sin problema.

 

Luis

[lervys cuicas]

Ya eso lo hice y nada, debe ser que estoy haciendo algo mal, lo que importe se me va a guardar en una tabla de excel...? Voy a seguir
revisando los detalles a ver que hice mal

---

From: lm...@cclf.com.pe
To: publice...@googlegroups.com
Subject: Re: [vfp] Re: Importar datos de un excel con VFP 9 SP1

Date: Mon, 20 Dec 2010 09:08:48 -0500

[lm...@cclf.com.pe]

Ese codigo es para IMPORTAR un xls a DBF, en este caso lo convierte a un cursor que se llama xlResults, que lo puede ver en en cuadro de data session.

[lervys cuicas]

Ok. Gracias eso es lo que necesito, ahora a hacer que me funcione.. Jajaja... Feliz tarde

---

From: lm...@cclf.com.pe
To: publice...@googlegroups.com
Subject: Re: [vfp] Re: Importar datos de un excel con VFP 9 SP1

Date: Mon, 20 Dec 2010 16:37:23 -0500

[lervys cuicas]

Buenas noches, disculpa mi ignorancia... Ya instale lo que me dijiste que descargara.... Ahora donde coloco ese codigo...?
Quisiera colocarlo en un boton de comando y que al darle click pueda buscar la hoja y convertirla a una tabla o cursor...!
Podrias ayudarme por favor

---

From: lm...@cclf.com.pe
To: publice...@googlegroups.com
Subject: Re: [vfp] Re: Importar datos de un excel con VFP 9 SP1

Date: Mon, 20 Dec 2010 16:37:23 -0500

[lm...@cclf.com.pe]

Hola

 

Si lo vas a colocar en un boton, solo quita la linea:

FUNCTION importa_xls

 

y deberia de funcionar.

[lervys cuicas]

Buen dia, funciona muy bien pero no consigo visualizar la tabla que me debe haber creado...!

---

From: lm...@cclf.com.pe
To: publice...@googlegroups.com
Subject: Re: [vfp] Re: Importar datos de un excel con VFP 9 SP1

Date: Tue, 21 Dec 2010 08:58:43 -0500

[lm...@cclf.com.pe]

en la ultima linea coloca

despues de:

 

SELECT xlResults

Pon

BROWSE

[lervys cuicas]

EN ESE CASO ME LA MUESTRA PERO NECESITO SABER ES DONDE ESTA GUARDADA..? PORQUE NECESITO USAR ALGUNOS DATOS QUE ESTAN ALLI Y PASARLOS PARA OTRA TABLA Y LA BUSCO EN LA CARPETA DONDE TENGO EL FORMULARIO Y NO ESTA Y TRATO DE GUARDAR DATOS DE ELLA A OTRA TABLA Y ME DICE "NOT FOUND"

---

From: lm...@cclf.com.pe
To: publice...@googlegroups.com
Subject: Re: [vfp] Re: Importar datos de un excel con VFP 9 SP1

Date: Tue, 21 Dec 2010 09:21:49 -0500

[Jairo Miranda]

Les envio un pequeño truco para que su computadora hable, solo habla en ingles

Quien lo hace hablar en español , que lo pase

 

jairo

 

*Excelente truco que utiliza el objeto COM SAPI que viene con WinXP el cual "pronuncia" lo que le escribas.

 

oVoz = CreateObject("SAPI.SpVoice")

 

oVoz.Speak("I sorry much this parameters no found")

 

oVoz.Speak("Correct this parameters please and new execute")

 

 

[lervys cuicas]

Al parecer es una tabla temporal xq al cerrarlo ya no puedo trabajar con ella asi que debo realizar los cambios que necesito en ese mismo formulario, ahora tengo un problema, intento hacer esta sentencia
SELECT DISTINCT  nombre  FROM xlResults BROWSE
pero me dice que no es valido para un campo memo, al darle el BROWSE a la tabla me muestra el campo nombre y otro que esta a su lado como memo... Como ago para realizar sentecias cuando el campo es memo...?

---

From: lm...@cclf.com.pe
To: publice...@googlegroups.com
Subject: Re: [vfp] Re: Importar datos de un excel con VFP 9 SP1

Date: Tue, 21 Dec 2010 09:21:49 -0500

[lm...@cclf.com.pe]

Ah claro, pero la idea era importarlo de XLS a DBF, xlResults no esta guardado físicamente en el disco sino es un cursor, ahora para poder pasarlo a otra tabla debes de crear un cursor.

 

digamos si tu XLS tiene los campos Nombre (caracter), edad (numerico) cuando lo pases de XLS a dbf pasara el campo nombre como memo, ahora para pasar a otro cursor debes de crear el cursor:

 

create cursor micursor(nombre c(50), edad n)

 

Luego

 

insert into micursor select * from xlResults

 

Y si quires guardarlo fisicamente en el disco:

 

select micursor

copy to c:\mitabla.dbf

 

ahora antes en el xls debes de dar los formatos que deseas que pasen al DBF

[lervys cuicas]

Muchisimas gracias, disculpa tanta pregunta, debi haberme fijado en eso porque no veia en el codigo que enviaras el dbf a algun
sitio en especifico. Feliz dia, hoy se celebra que baja el espiritu de la navidad....!

---

From: lm...@cclf.com.pe
To: publice...@googlegroups.com
Subject: Re: [vfp] Re: Importar datos de un excel con VFP 9 SP1

Date: Tue, 21 Dec 2010 10:10:47 -0500

[lm...@cclf.com.pe]

Muy Bueno

Luis Mata

 

From: Jairo Miranda

Sent: Tuesday, December 21, 2010 10:05 AM

To: publice...@googlegroups.com

[Miguel Canchas]

En Español…

 

oVoz = CreateObject("SAPI.SpVoice")

 

oVoz.Speak("Lo siento mucho estos parámetros no se encuentran ")

 

oVoz.Speak("Corregir estos parámetros por favor, y ejecutar de nuevo")

 

jejejejejejeje ¡!!!!

 

MK

[lm...@cclf.com.pe]

Veste con...

[David R@mírez]

Jajajajajajajja

Buenisimo brother

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Miguel Canchas
Enviado el: martes, 21 de diciembre de 2010 9:55
Para: publice...@googlegroups.com
Asunto: RE: [vfp] Re: Que se hable desde fox

 

En Español…

 

oVoz = CreateObject("SAPI.SpVoice")

 

oVoz.Speak("Lo siento mucho estos parámetros no se encuentran ")

 

oVoz.Speak("Corregir estos parámetros por favor, y ejecutar de nuevo")

 

jejejejejejeje ¡!!!!

 

MK

 

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Jairo Miranda
Enviado el: martes, 21 de diciembre de 2010 10:06
Para: publice...@googlegroups.com
Asunto: RE: [vfp] Re: Que se hable desde fox

 

Les envio un pequeño truco para que su computadora hable, solo habla en ingles

Quien lo hace hablar en español , que lo pase

 

jairo

 

*Excelente truco que utiliza el objeto COM SAPI que viene con WinXP el cual "pronuncia" lo que le escribas.

 

oVoz = CreateObject("SAPI.SpVoice")

 

oVoz.Speak("I sorry much this parameters no found")

 

oVoz.Speak("Correct this parameters please and new execute")

 

 

__________ Información de NOD32, revisión 5721 (20101221) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com

AVISO DE CONFIDENCIALIDAD: La información contenida en este mensaje es confidencial y solamente dirigido a la(s) persona(s) indicadas en dicho correo. Si el lector de este mensaje no es el interesado, favor de regresarlo al remitente, quedando estrictamente prohibido la difusión, distribución o reproducción de este comunicado.

CONFIDENTIALITY NOTICE: The information contained in this electronic message is privileged and confidential and is intended for the use of the individual(s) named above and others who have been specifically authorized to receive it. If you are not the intended recipient, you are hereby notified that any dissemination, distribution or copying of this message is strictly prohibited. If you have received this message by mistake, please destroy it immediately, and notify the sender.

 

---

 

 

 

 

 

AVISO DE CONFIDENCIALIDAD: La información contenida en este mensaje es confidencial y solamente dirigido a la(s) persona(s) indicadas en dicho correo. Si el lector de este mensaje no es el interesado, favor de regresarlo al remitente, quedando estrictamente prohibido la difusión, distribución o reproducción de este comunicado.

CONFIDENTIALITY NOTICE: The information contained in this electronic message is privileged and confidential and is intended for the use of the individual(s) named above and others who have been specifically authorized to receive it. If you are not the intended recipient, you are hereby notified that any dissemination, distribution or copying of this message is strictly prohibited. If you have received this message by mistake, please destroy it immediately, and notify the sender.

 

---

 

 

 

 

 

[JJ]

Te pasastes miguel jajajajajaja

El 21 de diciembre de 2010 12:01, David R@mírez <david....@intur.hn> escribió:

Jajajajajajajja

Buenisimo brother

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Miguel Canchas
Enviado el: martes, 21 de diciembre de 2010 9:55

Para: publice...@googlegroups.com
Asunto: RE: [vfp] Re: Que se hable desde fox

 

En Español…

 

oVoz = CreateObject("SAPI.SpVoice")

 

oVoz.Speak("Lo siento mucho estos parámetros no se encuentran ")

 

oVoz.Speak("Corregir estos parámetros por favor, y ejecutar de nuevo")

 

jejejejejejeje ¡!!!!

 

MK

 

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Jairo Miranda
Enviado el: martes, 21 de diciembre de 2010 10:06
Para: publice...@googlegroups.com
Asunto: RE: [vfp] Re: Que se hable desde fox

 

Les envio un pequeño truco para que su computadora hable, solo habla en ingles

Quien lo hace hablar en español , que lo pase

 

jairo

 

*Excelente truco que utiliza el objeto COM SAPI que viene con WinXP el cual "pronuncia" lo que le escribas.

 

oVoz = CreateObject("SAPI.SpVoice")

 

oVoz.Speak("I sorry much this parameters no found")

 

oVoz.Speak("Correct this parameters please and new execute")

 

 

__________ Información de NOD32, revisión 5721 (20101221) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com

AVISO DE CONFIDENCIALIDAD: La información contenida en este mensaje es confidencial y solamente dirigido a la(s) persona(s) indicadas en dicho correo. Si el lector de este mensaje no es el interesado, favor de regresarlo al remitente, quedando estrictamente prohibido la difusión, distribución o reproducción de este comunicado.

CONFIDENTIALITY NOTICE: The information contained in this electronic message is privileged and confidential and is intended for the use of the individual(s) named above and others who have been specifically authorized to receive it. If you are not the intended recipient, you are hereby notified that any dissemination, distribution or copying of this message is strictly prohibited. If you have received this message by mistake, please destroy it immediately, and notify the sender.

 

---

 

 

 

 

 

[Miguel Canchas]

Lo importante es que estoy seguro que le saque una sonrisa a Lucho Mata..jajajajajaja

 

MK

[lervys cuicas]

Jajajaja....... Excelente traductor....!

---

Date: Tue, 21 Dec 2010 11:59:10 -0400
Subject: Re: [vfp] Re: Que se hable desde fox
From: jeanette...@gmail.com
To: publice...@googlegroups.com

[Jairo Miranda]

La botaste ajajajajajajajajajajajajajaja

[Jairo Miranda]

No moleste con Jota, como seria en francés ¿ ¿ te la dejo ahí…….

[Jairo Miranda]

En serio .. por favor

 

¿ Como puedo evitar que los usuarios salgan de una formulario cuando se les olvida grabar los datos?  Utilizo el formulario normal de visual fox con la clase de barra de herramientas pictbnts  .

 

Jairo

No mas chistes

 

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de David R@mírez

Enviado el: Martes, 21 de Diciembre de 2010 11:02

[Ing.Daniel Bojorge]

Utilizá el evento Valid de los textbox (u otro control) donde necesitás que el usuario grabe (o digite) el valor.  Así hasta que llene ese no se puede salir.

Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)

[Jairo Miranda]

Para la gente del foxypreviewer

 

Al gaurdar muestra la ventana de Windows , ya sea xpm vista o win7

 

oDlg = CreateObject("safrcFileDlg.fileSave")

oDlg.fileName = "C:*.*"

oDlg.fileType = "Cualquier archivo"

oDlg.OpenFileSaveDlg()

? oDlg.fileName

 

pruebenlo

[Miguel Canchas]

Usa una variable y asignale un valor cuando graba y ese valor lo validas antes que salga.

[marcelobu...@gmail.com]

Hola

Te la podes rebuscar utilizando la fonetica

de las letras y palabras en ingles

(si las conoces)

Ejemplo...

Esto suena mas o menos a:

"Hola Marcelo"

oVoz = CreateObject("SAPI.SpVoice")

oVoz.Speak("O LAST MARK C L O")

Saludos
MarceloBuenosAires
_____________

[marcelobu...@gmail.com]

No utilices otro ASUNTO
Tenes que colocar el TUYO

_______

[Oscar Díaz]

Estimado Jairo:

 

Yo lo hago así en botón grabar:

 

if empty

(ThisForm.Text2.value)

??

chr(7)

messagebox("Identificación: Campo obligatorio",48,"Alerta:")

ThisForm.Text2.SetFocus

return

.f.

endif

y así con cada campo obligatorio.

 

Saludos desde Bogotá.co

[Yvan GMAIL]

Para evitar que el usuario cierre el form sin guardar (tal vez por error)..  tengo una variable que cambia cuando el usuario realiza algún cambio en algunos de los campos.

Y cuando quiere salir..  evalúo esa variable.. si ha cambiado le advierto que va a perder los cambios realizados.

Esto puede ser en Queyunload .. o en el botón salir.. dependiendo si él puede cerrar el form con el “x”

[hquinones]

Para español se tiene que instalar una voz en español, por ejemplo
Isabel de Balabolka o Carlos de Loquendo y debe haber otros.
HQD


On 21 dic, 10:55, "Miguel Canchas" <mcanc...@ximesa.com> wrote:
> En Español...

[Ing.Daniel Bojorge]

Creo que este hilo de conversación se están tratando dos temas al mismo tiempo... procuren (como sugerencia) iniciar otro hilo (cambiar el asunto) si van a escribir de otro tema.

Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)

[Jairo Miranda]

Creo que tiene mucho que ver con la configuración del fox es decir de la
librería

vfp9renu.dll que sesta en ingles

jairo

-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de hquinones
Enviado el: Martes, 21 de Diciembre de 2010 11:45
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Re: Que se hable desde fox

[Luis Maria Guayan]

Jairo, abre otro hilo nuevo para tu pregunta

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

 

[Luis Maria Guayan]

Jairo, debes abrir otro hilo nuevo si el tema en cuestión no tiene nada que ver con el de este hilo

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

 

[Luis Maria Guayan]

Se deben descargar las voces en español del Microsoft Agent, Loquendo o Balabolka. Yo utilizo la voz de Diego (Argentina) de Loquendo y va muy bien para mi país

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

 

[Jairo Miranda]

Lo siento no es otro hilo , solo mandaba algunos trucos y me salió la pregunta, gracias

De todos modos

Jairo

[Luis Maria Guayan]

... y contesta al mensaje correspondiente, no a otros ;-)

[marcelobu...@gmail.com]

Hola

Conoces algun sitio seguro para descargarlo
y que no tenga un troyano ?

Saludos
MarceloBuenosAires
____________

[Allan Raúl Acuña]

Estimados Colegas

Mis saludos 

Me es grato compartir con la comunidad Foxcera una clase que implementé para mis aplicaciones.

En esta ocasión para efectos en los Botones, todo depende del diseño que quieran darles.

Saludos y a la espera de sus comentarios o mejoras

Lic. Allan R. Acuña
Desarrollador Independiente
msn= allan...@hotmail.com
skype= niceasysoft
+(505) 8 831 8191
www.NicEasySoft.com

[Allan Raúl Acuña]

Marcelo te paso unas rutinas que uso en mi aplicación para Notarios (Abogados)

En cuanto a las Voces, puedes buscarte en Youtube algunos pasos 

para Bajarte Voces de Loquendo, las cuales son las que uso.

RUTINAS:

----------------------------------------------------------------------------

METODO INIT DEL COMBO 

Se cargan en un COMBO las Voces Instaladas en tu Equipo

-------------------------------------------------------------

Public loSpeak As SAPI.SPVoice

Local lnContador

lnContador = 0

loSpeak = Createobject("SAPI.SPVoice")

For ix = 0 To loSpeak.GetVoices().Count-1

lnContador = lnContador + 1

lcVoz = loSpeak.GetVoices().Item(m.ix).GetDescription

Thisform.cboVoces.AddItem(lcVoz)

Endfor

If lnContador>0

Thisform.cboVoces.ListIndex = 1

Endif

-------------------------------------------------

METODO CLICK PARA EL BOTON TEST

-------------------------------------------------

loSpeak.Voice = loSpeak.GetVoices().Item(Thisform.configuracion.voces.cboVoces.ListIndex-1)

loSpeak.Rate = Thisform.spnVelocidad.Value 

loSpeak.volume = Thisform.spnVolumen.Value 

loSpeak.Speak(Thisform.txtHablar.Value)

Saludos

Lic. Allan R. Acuña
Desarrollador Independiente
msn= allan...@hotmail.com
skype= niceasysoft
+(505) 8 831 8191
www.NicEasySoft.com

---

Date: Tue, 21 Dec 2010 16:57:58 -0300
Subject: Re: [vfp] Re: Que se hable desde fox
From: marcelobu...@gmail.com
To: publice...@googlegroups.com

[Oscar Díaz]

Estimado Allan:

 

Qué función tiene esta rutina con los notarios (abogados) ?

 

Podrías explicar un poco ?

 

Gracias de antemano.

 

Saludos desde Bogotá.co

[Walter R. Ojeda Valiente]

Hola Allan

Justamente esta mañana estaba viendo un sitio web que premia a los programas que tienen mejor UI (User Interface), de allí me surgieron algunas ideas para mis nuevas aplicaciones, quizás tus botones puedan ser utilizados para eso, ya los descargué pero aún no los miré.

Saludos.

Walter.

---

From: allan...@hotmail.com
To: publice...@googlegroups.com
Subject: [vfp] Comparto Una Clase para Efectos en los Botones
Date: Tue, 21 Dec 2010 20:00:49 +0000

[Allan Raúl Acuña]

Les permite a los Notarios cotejar los Escritos Legales (Escrituras)

En otras palabras la PC se las lee con las Voces, en mi caso con las de Loquendo que son bastantes naturales.

Estas las tengo Implementadas en 2 aplicaciones:

EasyFolio desarrollado en Visual Foxpro, el cual es un Editor de Textos para Redaccion e Impresion de Escritos Legales.

EasyDoc desarrollado en VBA , el cual permite configurar los Escritos Legales en Microsoft Word

Lic. Allan R. Acuña
Desarrollador Independiente
msn= allan...@hotmail.com
skype= niceasysoft
+(505) 8 831 8191
www.NicEasySoft.com

---

Date: Tue, 21 Dec 2010 15:43:36 -0500

Subject: Re: [vfp] Re: Que se hable desde fox

From: oscar...@gmail.com
To: publice...@googlegroups.com

[Miguel Canchas]

Seria interesante saber a que sitio web haces referencia.

 

MK

[Allan Raúl Acuña]

Muchas gracias

Seria bueno expongas el sitio web, para que todos se animen.

De mi parte te digo que el diseño depende de tu imaginación e ingenio, la clase es sencilla

Voy a preparar algunas ventanas en donde uso esta clase.

Atentamente;

Lic. Allan R. Acuña
Desarrollador Independiente
msn= allan...@hotmail.com
skype= niceasysoft
+(505) 8 831 8191
www.NicEasySoft.com

---

From: wr...@hotmail.com
To: publice...@googlegroups.com
Subject: RE: [vfp] Comparto Una Clase para Efectos en los Botones
Date: Tue, 21 Dec 2010 21:14:48 +0000

[Hernan Padilla]

Hola a todos, estoy probando la rutina de allan raul acuña

pero solo sale MICROSOFT ANNA -ENGLISH (ESTADOS UNIDOS)

donde puedo conseguir voz en español normal sin acentos

de antemano, gracias por la ayuda

 

[lm...@cclf.com.pe]

este codigo me funciona:

 

loSpeak.Voice = loSpeak.GetVoices().Item(1)

loSpeak.Rate = 1

loSpeak.volume = 30

loSpeak.Speak("¡Barcelona dejó de ganar!: el Athletic de Bilbao le sacó un 0-0 en la Copa del Rey")

 

Instale esto: quizas sea por eso.

descargue e instale Balabolka

 

From: Hernan Padilla

Sent: Tuesday, December 21, 2010 5:13 PM

To: publice...@googlegroups.com

Subject: Re: [vfp] Re: Que se hable desde fox

 

Hola a todos, estoy probando la rutina de allan raul acuña

[Luis Maria Guayan]

En mi caso para que hable Español (tengo instalada una voz en español de Loquendo)

LOCAL oVoz AS "SAPI.SpVoice"
oVoz = CREATEOBJECT("SAPI.SpVoice")
oVoz.Voice = oVoz.GetVoices().ITEM(1) && Diego
oVoz.Speak("Nada corre como un zorro")


Para ver las voces instaladas en la PC:

oVoz = CREATEOBJECT("SAPI.SpVoice")
FOR ln = 0 TO oVoz.GetVoices().COUNT - 1
  oVoz.Voice = oVoz.GetVoices().ITEM(ln)
  ? oVoz.Voice.ID
ENDFOR

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Henry Gutierrez Sanchez]

Estimado Hernan el año anterior diseñe una aplicacion para el control de asistencia de docentes mediante la huella daptilar.

Cuando el lector verificaba la huella y si era correcta el Pc lo saludaba con su nombre de pila y en caso de error envia 

el mensaje.

Los pasos que yo utilize fueron los siguientes espere te ayuden.

1.11.  Instalo Balabolka

2.   2.    Instalo archivo de voces.

3.     3.  Panel de Control (En Windows para modificar la voz por defecto )

4.      4.  Accesibilidad

5.      5. Reconocimiento de voz

6.       6.Texto a voz

7.       7.Selección de voz

La voz que instalo (Isabel en español)

8.       8.Aplicar , Aceptar

Y el código que utilize:

 

wfrases='Buenos Dias,'

wnombrepila=Hernan

Si existe docente

      *trae los datos del registro

      c=0

      wreg=RECNO()

      westado=estado

      wempleado=empleado

      wnombrepila=nombrepila 

      foto=ALLTRIM(notaco)

      a=SUBSTR(whora,1,2)

      b=SUBSTR(whora,4,2)

      c=a+'.'+b

      c=VAL(c)   

**********************

      local loVosVFP as "SAPI.SpVoice" of "SAPI.SpVoice"

      loVosVFP = CreateObject("SAPI.SpVoice")

      loVosVFP.Speak(wfrases)

      loVosVFP.Speak(wnombrepila)

      wsal=0

Si no existe docente

      local loVosVFP as "SAPI.SpVoice" of "SAPI.SpVoice"

      loVosVFP = CreateObject("SAPI.SpVoice")

      loVosVFP.Speak("No Existe este Registro,")

      loVosVFP.Speak("Inténtelo de Nuevo")

Fin Si

--
                     Henry Gutiérrez Sánchez
                web site: http://www.sian.net.co
------------------------------------------------------------------
      "Imprimir Solo Cuando sea Necesario"

[Jose Antonio]

Yo acabo de encontrar un modulo de instalación de la voz en español "Isabel".

Lo acabo de instalar y probar con el codigo de Luis Maria, y funciona bien.

¡Cuidado!, si accedeis al panel de control, voz, y seleccionais la voz "Isabel" como principal, entonces debeis cambiar esta linea

oVoz.Voice = oVoz.GetVoices().ITEM(1)

por esta

oVoz.Voice = oVoz.GetVoices().ITEM(0)

Como es un ejecutable, lo pongo en el servidor de la empresa para descargar.  !! Solo estará unos dias !!

Este es el enlace:

http://84.78.165.130/VozIsabel.exe

Un saludo.

Jose A. Blasco

Zaragoza - España

[Victor Espina]

Excelente truco... muy sencillo de implementar. Segun lo que encontre
en google, SAPI solo reconoce la voz en espanol con Windows 7 y la
version 5.1 de SAPI:

http://social.msdn.microsoft.com/Forums/es-ES/dotnetes/thread/6883b881-8d1a-4d95-91fd-1b7021778574

De todas formas, aqui les dejo un link desde donde pueden descargar
una version redistribuible del SAPI 5.1:

http://www.microsoft.com/downloads/en/details.aspx?FamilyID=5e86ec97-40a7-453f-b0ee-6583171b4530&displaylang=en

Saludos

Victor Espina

[lm...@cclf.com.pe]

Luis Maria

 

De donde bajo la voz de diego?

[Luis Maria Guayan]

La baje de Loquendo, allí puedes ecuchar todas las voces en español:

http://www.loquendo.com/es/demo-center/tts-demo/spanish

La voz de Diego es con entonación argentina

Puedes buscar en Google: http://goo.gl/NJraN

[Rudolf Johann Heiner]

Saludos y bendiciones, aqui te dejo un link donde puedes bajar diferentes voces espero te sirva: http://pumpadictos.obolog.com/textaloud-voces-incluye-loquendo-actualizado-84535

saludos,

rudolf heiner.

 

[Jairo Miranda]

Los estoy bajando .. gracias

jairo

-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de Victor Espina
Enviado el: Miércoles, 22 de Diciembre de 2010 07:03

Para: Comunidad de Visual Foxpro en Español

Asunto: [vfp] Re: Que se hable desde fox

[Jairo Miranda]

Funciona perfecto , muchas gracias por el aporte, podrías mantener el archivo un tiempo más mientras otros se benefician de el?

 

Atte

 

Jairo

      ¡Error! Nombre de archivo no especificado."Imprimir Solo Cuando sea Necesario"

[Jose Antonio]

Lo voy a intentar mantener por lo menos hasta final de navidades.

Un saludo.

El día 22 de diciembre de 2010 18:21, Jairo Miranda
<ja...@vidapanama.com> escribió:

--

[Jose Antonio]

Por cierto, acabo de comprobar el servidor de descargas, y os habeis
lanzado a descargar el archivo hasta el punto que llega a saturarse y
se cortan.

Tranquilos chicos que lo voy a dejar por lo menos 10 dias.

Un saludo.

El día 22 de diciembre de 2010 18:27, Jose Antonio
<jabl...@gmail.com> escribió:

[Aldo Valente]

La verdad que esta muy original
!Muy Bueno

-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de Jairo Miranda
Enviado el: miércoles, 22 de diciembre de 2010 01:43 p.m.
Para: publice...@googlegroups.com
Asunto: RE: [vfp] Re: Que se hable desde fox

jairo

http://social.msdn.microsoft.com/Forums/es-ES/dotnetes/thread/6883b881-8d1a-
4d95-91fd-1b7021778574

http://www.microsoft.com/downloads/en/details.aspx?FamilyID=5e86ec97-40a7-45
3f-b0ee-6583171b4530&displaylang=en

Saludos

Victor Espina

__________ Información de ESET NOD32 Antivirus, versión de la base de firmas
de virus 5725 (20101222) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com

__________ Información de ESET NOD32 Antivirus, versión de la base de firmas
de virus 5725 (20101222) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com

__________ Información de ESET NOD32 Antivirus, versión de la base de firmas
de virus 5725 (20101222) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com

[marcelobu...@gmail.com]

Hola

Como se puede utilizar lo que vimos antes...

oVoz = CreateObject("SAPI.SpVoice")

pero con VOZ ESPAÑOL de ARGENTINA ?

Saludos
MarceloBuenosAires
_______________________

[Luis Maria Guayan]

Puedes buscar en Google por la voz de Diego (Argentina) http://goo.gl/NJraN

[Gonzalo Marin]

Sinceramente te felicito. Muy bueno el aporte.

[Ing.Daniel Bojorge]

Gracias mi estimado amigo, ya mismo lo bajo...

Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)

[Ing.Daniel Bojorge]

Tremendo aporte, acá una captura de pantalla (espero no te moleste)

Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)

[Miguel Canchas]

Uyuyuyuyuyyy  ahora vienen los “   A MI TAMBIEN….”

 

 

PD. Lindos diseños….

 

 

MK

[David R@mírez]

Chavos

Alguno de ustedes me podrían enviar el Link a davi...@hotmail.com

Se los agradezco

 

Gracias de antemano

 

 

 

 

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Miguel Canchas

Enviado el: miércoles, 22 de diciembre de 2010 14:15
Para: publice...@googlegroups.com

Asunto: RE: [vfp] Comparto Una Clase para Efectos en los Botones

 

Uyuyuyuyuyyy  ahora vienen los “   A MI TAMBIEN….”

 

 

PD. Lindos diseños….

 

 

MK

 

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Ing.Daniel Bojorge
Enviado el: miércoles, 22 de diciembre de 2010 15:06
Para: publice...@googlegroups.com
Asunto: Re: [vfp] Comparto Una Clase para Efectos en los Botones

 

Tremendo aporte, acá una captura de pantalla (espero no te moleste)

 

Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)

El 22 de diciembre de 2010 13:47, Ing.Daniel Bojorge <debs....@gmail.com> escribió:

Gracias mi estimado amigo, ya mismo lo bajo...

 

Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)

El 22 de diciembre de 2010 13:30, Gonzalo Marin <gonzal...@gmail.com> escribió:

 

Sinceramente te felicito. Muy bueno el aporte.

 

 

 

__________ Información de NOD32, revisión 5725 (20101222) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com

AVISO DE CONFIDENCIALIDAD: La información contenida en este mensaje es confidencial y solamente dirigido a la(s) persona(s) indicadas en dicho correo. Si el lector de este mensaje no es el interesado, favor de regresarlo al remitente, quedando estrictamente prohibido la difusión, distribución o reproducción de este comunicado.

CONFIDENTIALITY NOTICE: The information contained in this electronic message is privileged and confidential and is intended for the use of the individual(s) named above and others who have been specifically authorized to receive it. If you are not the intended recipient, you are hereby notified that any dissemination, distribution or copying of this message is strictly prohibited. If you have received this message by mistake, please destroy it immediately, and notify the sender.

 

---

 

 

 

 

 

AVISO DE CONFIDENCIALIDAD: La información contenida en este mensaje es confidencial y solamente dirigido a la(s) persona(s) indicadas en dicho correo. Si el lector de este mensaje no es el interesado, favor de regresarlo al remitente, quedando estrictamente prohibido la difusión, distribución o reproducción de este comunicado.

CONFIDENTIALITY NOTICE: The information contained in this electronic message is privileged and confidential and is intended for the use of the individual(s) named above and others who have been specifically authorized to receive it. If you are not the intended recipient, you are hereby notified that any dissemination, distribution or copying of this message is strictly prohibited. If you have received this message by mistake, please destroy it immediately, and notify the sender.

 

---

 

 

 

 

 

[Hernan Padilla]

muchas gracias, 

[ZeRoberto]

Y si quiero con las voces de Evo Morales o Hugo Chavez donde los descargo?

 

XD

 

Saludos

2010/12/22 Hernan Padilla <hern...@gmail.com>

muchas gracias, 

[Yvan GMAIL]

Ja, ja

Que maleado.

 De wikileaks cuando hablando sentado en el  trono blanco.

[Jairo Miranda]

Porque no mejor la voz de Chaquira  es mas melodiosa y no tiene enemigos en gringolandia

[lm...@cclf.com.pe]

www.tonterias.com

 

From: ZeRoberto

Sent: Thursday, December 23, 2010 1:29 PM

To: publice...@googlegroups.com

Subject: Re: [vfp] Re: Que se hable desde fox

 

[Miguel Canchas]

Por dios..CHAQUIRA….no seas malooooooooooo tiene una voz HORRIBLEEEEEEEE…quien le habrá engañado a esa muchacha que canta ????

 

Cualquiera canta mejor….

 

MK

[Gustavo Baquero]

Ojala UD se ganara la Plata que se gana ella.

Los fans que tiene son muchos mas que su pobre comentario

[Miguel Canchas]

 

Por que te sientes aludido u ofendido, solo es un comentario y ES MIO…

[edgar suarez kummers]

Se escribe SHAKIRA .... la chica sí tiene buena voz, pero prefiere hacer la música adaptada a la época, de chapuza, a lo guarro.

Recientemente en el Mundial de Suráfrica, sin duda en ese continente habían artistas con mejores voces musicales, sin embargo no tienen ni el movimiento de caderas de Shakira ni son tan fotogénicas.

La foto adjunta explica ese fenómeno africano y arábigo, por favor mirarla en detalle.

Esta chica no tiene sitio para guardar el dinero que ha colectado en su carrera. Hace lo que recomendaba Sarita Montiel: "Solamente eres famoso si te pagan por ello".

Ya cantantes con muy buena voz no se escuchan, ni hombres ni mujeres, porque tienden a morirse pobres, o son maricones como el Luis Miguel.

Adicionalmente a Shakira le han adjudicado un IQ altísimo, parece que es supremamente inteligente.

Saludos

Edgar

---

De: Miguel Canchas <mcan...@ximesa.com>
Para: publice...@googlegroups.com
Enviado: jue,23 diciembre, 2010 14:23

Asunto: RE: [vfp] Re: Que se hable desde fox

[Jairo Miranda]

Te entiendo , no sabía que por cantar tan mal te paguen millones..

Me toco programar en fox porque tengo una voz de tarro.

 

Jairo

[lm...@cclf.com.pe]

Que les pasa caramba.. mientras mueva las caderas de esa forma a quien le importa si canta o no?

[Miguel Canchas]

Esa es la RESPUESTA ¡!!!!!!!!!!

Asi es ¡!!!!!!

[ZeRoberto]

Yo solo veo el rabo XD

[Victor Espina]

De aqui messsssmooo!!!

:)

Victor Espina

On 23 dic, 15:29, ZeRoberto <zeroha...@gmail.com> wrote:
> Y si quiero con las voces de Evo Morales o Hugo Chavez donde los descargo?
>
> XD
>
> Saludos
>

> 2010/12/22 Hernan Padilla <hernan...@gmail.com>
>
>
>
>
>
>
>
> >   muchas gracias,

[IVAN MARTINEZ]

Busquen videos de baile en africa para que vean como se mueven por alla.

Fue una injusticia haber seleccionado a Shakira para bailar como africana.

Esas africanas dejan a Shakira como paralitica.

 

 

http://www.youtube.com/watch?v=Pd6COxDKkGU&feature=related

 

http://www.youtube.com/watch?v=Rfg9bxdSTzE&feature=related

 

 

http://www.youtube.com/watch?v=90xRDYruyN8&feature=related

 

 

Ivan Martinez

---

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de edgar suarez kummers
Enviado el: Jueves, 23 de Diciembre de 2010 03:30 p.m.

[ZeRoberto]

No me gusta la voz de Shakira solo el rabo

 

XD

[Carlos Miguel FARIAS]

La Odio, La Odio,  pero que bien lo hace

[ibania blanco]

porque me dara este del codigo de don luis maria

SodelsCot Estándar 3.8.12

oVoz.Voice = oVoz.GetVoices().ITEM(1)
porque me da error esta linea, si ya baje el software de loquendo
me hace falfa algo mas

On 21 dic, 17:40, Luis Maria Guayan <luisma...@portalfox.com> wrote:
> En mi caso para que hable Español (tengo instalada una voz en español de Loquendo)
> LOCAL oVoz AS "SAPI.SpVoice"
> oVoz = CREATEOBJECT("SAPI.SpVoice")
> oVoz.Voice = oVoz.GetVoices().ITEM(1) && Diego
> oVoz.Speak("Nada corre como un zorro")
> Para ver las voces instaladas en la PC:
> oVoz = CREATEOBJECT("SAPI.SpVoice")
> FOR ln = 0 TO oVoz.GetVoices().COUNT - 1
>   oVoz.Voice = oVoz.GetVoices().ITEM(ln)
>   ? oVoz.Voice.ID
> ENDFOR
>
> Luis María Guayán
> Tucumán, Argentina

> _________________________http://www.PortalFox.com

> Nada corre como un zorro
> _________________________
>
>

> El 21/12/2010 16:30,lm...@cclf.com.peescribió:este codigo me funciona:

>
>  
>
> loSpeak.Voice = loSpeak.GetVoices().Item(1)
>
> loSpeak.Rate = 1
>
> loSpeak.volume = 30
>
> loSpeak.Speak("¡Barcelona dejó de ganar!: el Athletic de Bilbao le sacó un 0-0 en la Copa del Rey")
>
>  
>
> Instale esto: quizas sea por eso.
>
> descargue e instaleBalabolka
>
>  
>
> From:Hernan Padilla
>
> Sent:Tuesday, December 21, 2010 5:13 PM
>
> To:publice...@googlegroups.com
>

> Subject:Re: [vfp] Re: Que se hable desde fox
>
>  
>
> Hola a todos, estoy probando la rutina de allan raul acuñapero solo sale MICROSOFT ANNA -ENGLISH (ESTADOS UNIDOS)

[ibania blanco]

tambien a mi no me aprece diego si no pilar
no puede ser eso

[Gustavo Rojo]

Hola Luis, implemente la función que recomendaste, e instale el AccessDatabaseEngine, pero al ejecutar me muestra un mensaje de error "No se pudo importar el Archivo Verifique que el nombre del archivo sea igual al nombre de la hoja a importar.",48,"Erro al Intentar importar" me podrás indicar donde puede estar el error o si estoy omitiendo algún paso?

Desde ya muchas gracias.

El miércoles, 17 de noviembre de 2010 18:00:23 UTC-3, Luis Mata escribió:

?No tiene nada que ve el Sp debes de usar odbc

prueba esto:

FUNCTION importa_xls
arnuevo = getfile('xls,xlsx')
if arnuevo==''
 RETURN .f.
ELSE
nchar = LEN(arnuevo)
vaqui = 0
FOR e=1 TO nchar
 IF SUBSTR(arnuevo,e,1)=='\'
  vaqui = e
 endif
NEXT e
mileft = LEN(LEFT(arnuevo,vaqui))
milen = LEN(arnuevo)
mifilealt = SUBSTR(arnuevo,mileft+1,(milen-(mileft+1))-3)
*--abriendo el archivo xlsx
LOCAL lcXLBook AS STRING, lnSQLHand AS INTEGER, ;
lcSQLCmd AS STRING, lnSuccess AS INTEGER, ;
lcConnstr AS STRING
lcXLBook = arnuevo
mierrorx  = 0
 lcConnstr = [Driver=] + ;
     [{Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};] + ;
     [DBQ=] + lcXLBook

 IF !FILE( lcXLBook )
     MESSAGEBOX ([Archivo excel no encontrado],31,"Archivo no encontrado")
     RETURN .f.
 ENDIF
 lnSQLHand = SQLSTRINGCONNECT( lcConnstr )
 IF lnSQLHand < 0
  MESSAGEBOX("Error de Conexi�n , Verifique.",48,"Error")
  RETURN .f.
 ENDIF
 lcSQLCmd = 'Select * FROM "'+mifilealt+'$"'
 lnSuccess = SQLEXEC( lnSQLHand, lcSQLCmd, [xlResults] )
 IF lnSuccess < 0
     SQLDISCONNECT( lnSQLHand )
     MESSAGEBOX("No se pudo importar el Archivo Verifique que el nombre del
archivo sea igual al nombre de la hoja a importar.",48,"Erro al Intentar
importar.")
     RETURN .f.
 ENDIF
 SQLDISCONNECT( lnSQLHand )
endif
SELECT xlResults

Descarga e Instala esto antes:

http://www.microsoft.com/downloads/en/details.aspx?familyid=7554f536-8c28-4598-9b72-ef94e038c891&displaylang=en

Luis

----- Original Message -----
From: "fputignani" <fputi...@gmail.com>
To: "Comunidad de Visual Foxpro en Espa�ol"
<publice...@googlegroups.com>
Sent: Wednesday, November 17, 2010 3:24 PM
Subject: [vfp] Re: Importar datos de un excel con VFP 9 SP1

Voy a tratar de conseguir el SP2 para ver si es un problema de
compatibilidad.
Pero me gustar�a que alguno me comente si hay algo que no tuve en
cuenta, o si a alguien tambi�n le paso algo similar.

On 17 nov, 17:14, Trento <trento...@gmail.com> wrote:
> A mi no me da problemas... pero uso el SP2. T s�, con Office 2003.
>
> Saludos.
>
> On 17 nov, 14:06, fputignani <fputign...@gmail.com> wrote:
>
>
>
>
>
>
>
> > Bueno, intento importar una tabla de Excel modelo 2003 y VFP deja de
> > funcionar y se cierra.
>
> > Uso el siguiente c�digo en el evento clic de un bot�n:
>
> > IMPORT FROM GETFILE() TYPE XLS
>
> > - Intent� poner la direcci�n del archivo en lugar de getfile()
> > - Intent� con distintos archivos que esten ordenados diferente los
> > datos
> > - Prob� especificando el nombre de lahoja donde estan los datos
> > - Poniendo el nombre de una base de datos y de una tabla para donde
> > los guarde
> > Pero siempre pas� lo mismo y deja de funcionar el programa y se cierra
> > todo.
> > Alguna sugerencia ?
>
> > Uso el VFP9 SP1 y el archivo de excel es sumamente sencillo

[fputignani]

Voy a tratar de conseguir el SP2 para ver si es un problema de
compatibilidad.

Pero me gustaría que alguno me comente si hay algo que no tuve en
cuenta, o si a alguien también le paso algo similar.

On 17 nov, 17:14, Trento <trento...@gmail.com> wrote:

> A mi no me da problemas... pero uso el SP2. T sí, con Office 2003.

>
> Saludos.
>
> On 17 nov, 14:06, fputignani <fputign...@gmail.com> wrote:
>
>
>
>
>
>
>
> > Bueno, intento importar una tabla de Excel modelo 2003 y VFP deja de
> > funcionar y se cierra.
>

> > Uso el siguiente código en el evento clic de un botón:

>
> > IMPORT FROM GETFILE() TYPE XLS
>

> > - Intenté poner la dirección del archivo en lugar de getfile()
> > - Intenté con distintos archivos que esten ordenados diferente los
> > datos
> > - Probé especificando el nombre de lahoja donde estan los datos

> > - Poniendo el nombre de una base de datos y de una tabla para donde
> > los guarde

> > Pero siempre pasó lo mismo y deja de funcionar el programa y se cierra

[Dorian Ordonez]

el programa funciona perfecto.

solo ayudo a agregando una mejor 

------------------- quitar esto, TIENE PROBLEMAS CON XLSX solo funciona para xls ---------------------------

nchar = LEN(arnuevo)
vaqui = 0
FOR e=1 TO nchar
 IF SUBSTR(arnuevo,e,1)=='\'
  vaqui = e
 endif
NEXT e
mileft = LEN(LEFT(arnuevo,vaqui))
milen = LEN(arnuevo)
mifilealt = SUBSTR(arnuevo,mileft+1,(milen-(mileft+1))-3)

mas abajo esta

lcSQLCmd = 'Select * FROM "'+mifilealt+'$"'

------------------- por esto ---------------------------

hi = AT("\",arnuevo,OCCURS('\',arnuevo))+1
hf = AT(".",arnuevo,OCCURS('.',arnuevo)) - hi
hoja = substr(arnuevo,hi,hf)

mas abajo

lcSQLCmd = 'Select * FROM "'+hoja+'$"'

-------------------------------------------------------------------