modificar esta macro de descarga de archivos

daniel avait soumis l'idée :

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