modificar esta macro de descarga de archivos

daniel avait soumis l'idée :
Mostrar la cita

hola a todos a ver si me pueden ayudar


tengo esta macro que aparece una ventana de descarga del archivo

'Función Api para abrir el cuadro de diálogo Descargar archivo Url
Private Declare Function DoFileDownload Lib "shdocvw.dll" _
(ByVal lpszFile As String) As Long
Private Sub auto_open()

' A la función Api solo devemos enviarle la dirección url
DoFileDownload StrConv("http://www.yahoo.com", vbUnicode)

End Sub


yo lo que queria es si se puede hacer para que automaticamente se guarde en
una ruta especifica
tambien que no aparezca el icono excel en ninguna de las ventanas de
descarga


un saludo y muchas gracias

Hola Daniel :-)

Pues bien ya me he informado sobre estas Apis :-)

Para tu necesidad el querer guardarlo en un rincon de tu PC especifico,
sera necesario que utilices la << Función de URLDownloadToFile >>

Descarga cosas de internet y los guarda en un archivo :

Su estructura es esta:

<<< URLDownloadToFile (pCaller [de indicador de interfaz de llamada],
szURL [indicador a una secuencia de la URL a descargar], szFileName
[secuencia que ocntine el nombre del archivo] , dwReserved [valor DWORD
fijado a 0], lpfnCB [indicador de interfaz de llegada] >>>>

Entonces nos quedaria asi la funcion:

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


Private Sub auto_open()

Call URLDownloadToFile(0, "http://www.yahoo.com", _
"C:\Documents and Settings\usuario\Escritorio\Yahoo.htm", 0, 0)



End Sub

'-
<<<<<<<<<<<<<<<<< que tambien funcionaria asi: >>>>>>>>>>>>>>>>



Private Sub auto_open()
' Call
URLDownloadToFile 0, "http://www.yahoo.com", _
"C:\Documents and Settings\usuario\Escritorio\Yahoo.htm", 0, 0

End Sub

'-

Bueno ya nos comentas ok? :-)

Saludos
Monica


¡Un Saludo! :-)
www.fermu.com
www.zorval.es

No se como ni porque se me ha colocado este ejecutable aqui, no es un
virus tranquilidad que no es ningun virus:

Este ejecutable lee ciertos valores de una clave del registro y aplica
politicas de grupo llama a la biblioteca de vinculos dinamicos
userenv.dll y como he estado trasteando con las DLL es tarde y estoy ya
cansada, pues no se que he hecho la verdad :-(

En fin nada un archivo del sistema operativo correspondiente al servicio
rsop .

Perdonarme de verdad :-(

Saludos
Monica


¡Un SAludo! :-)

www.fermu.com
www.zorval.es

hola Tux :-)

muchas gracias por tu ayuda me a servido de mucho

un saludo
"Tux" escribió en el mensaje
news:%
Mostrar la cita

No se como ni porque se me ha colocado este ejecutable aqui, no es un
virus tranquilidad que no es ningun virus:

Este ejecutable lee ciertos valores de una clave del registro y aplica
politicas de grupo llama a la biblioteca de vinculos dinamicos userenv.dll
y como he estado trasteando con las DLL es tarde y estoy ya cansada, pues
no se que he hecho la verdad :-(

En fin nada un archivo del sistema operativo correspondiente al servicio
rsop .

Perdonarme de verdad :-(

Saludos
Monica


¡Un SAludo! :-)

www.fermu.com
www.zorval.es