Forums Últimos mensajes - Powered by IBM
 

Descargar una version nueva de archivo excel desde una web.

16/02/2007 - 21:40 por ~ jose ~ | Informe spam
Hola que tal?
Esto tiene tela!!! (creo!, jejeje)

Tengo una aplicación hecha en Excel que quisiera ponerla en mi web
para que la gente se la pueda descargar. Hasta ahí bien, lo que quiero
hacer es que el que esté utilzando el programa sepa de algún modo si
existe una nueva versión para podersela descargar. Se puede hacer esto
en VBE?, o haria falta programación web?. Si es así por si ahy algún
programador web por ahí os comento que mi servidor soporta php, asp,
asp.net, cgi-bi, perl y la base de datos seria de access.

Si hace falta algo mas de información comentais vale?
Venga, un saludo,
jose
 

Leer las respuestas

#1 ~ jose ~
17/02/2007 - 16:44 | Informe spam
Hola, que tal?
he estado probando el código y no funciona, no me descarga el archivo
pero si que en el contador web cuenta como descargado. Lo he buscado
por todo el PC (por si no lo dejaba en C:\) y no lo he encontrado.
Se puede probar con esta URL:

Sub Ejemplo()
DownloadFile "http://www.carpinjose.com/public/su...descargas/
index.php?file=Libro1.xls", "C:\"
End Sub

Y para ver el resultado del contador puedes verlo aquí, verás como va
sumando pero no lo descarga:
http://www.carpinjose.com/subidasyd...descargas/

He subido 3 archivos para ir haciendo pruebas.

Gracias y un saludo, vale?
jose

On 17 feb, 04:32, "Francisco Parrilla"
wrote:
Ups era dentro de el foro de VBA :)

Paso el codigo de la funcion para su revision...

Private Declare Function URLDownloadToFile Lib "urlmon" Alias
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String,
ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As
Long) As Long

Public Function DownloadFile(URL As String, LocalFilename As String) As
Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function

Sub Ejemplo()
DownloadFile "http://www.webserver/datos/file001....t;,"c:\"
End Sub

Atte.
?T Francisco T?http://groups.msn.com/ExcelVbaMacrosOffice

El verdadero buscador crece y aprende, y descubre que siempre es el principal responsable de lo que sucede.
Jorge Bucay

La oscuridad nos envuelve a todos, pero mientras el sabio tropieza en alguna pared, el ignorante permanece tranquilo en el centro de la estancia.
Anatole France

Preguntas similares