Mandar a un sitio web un archivo o mas de excel

04/09/2006 - 05:24 por Jonathan Milla | Informe spam
Hola, se puede enviar archivos al web, para que se hospeden en una direccion
ya sea por ftp u otro medio????
Gracias
 

Leer las respuestas

#1 Héctor Miguel
04/09/2006 - 07:08 | Informe spam
hola, Jonathan !

... se puede enviar archivos al web, para que se hospeden en una direccion ya sea por ftp u otro medio????



[hasta donde se]... manejar una transferencia de archivos a sitios web...
NO esta 'tan disponible' como [si estuviera en] tu disco duro :-((
existe un comando interno del sistema operativo que 'se encarga' de ese tipo de transferencias [ftp.exe] ->requiere<-:
- 'abrir' el sitio/dominio
- 'proveer' un nombre de usuario y [seguramente] una contraseña
- 'poner' un archivo en una ubicacion [dentro del sitio]
- 'cerrar' la sesion de transferencia
[todo 'esto'...] como si estuvieras tecleando las instrucciones en una sesion de d.o.s.
que puedes 'simular'... creando un archivo de proceso por lotes [.bat] y usar el comando 'Shell'
[obviamente]... el archivo que se va a enviar YA debe de 'existir' [en tu pc?]

si crees que lo anterior pudiera apegarse a tu objetivo :))
pongo al final un ejemplo de situaciones 'similares' para transferir un archivo GIF a una pagina web por excel-vba
obviamente con direcciones inventadas [modifica donde corresponda]

saludos,
hector.
en un modulo de codigo 'normal' ==Sub FTP_Rango_GIF()
Dim DirOrigen As String, ArchivoGIF As String, Batch As Integer, _
Dominio As String, Destino As String, Proceso As String, _
Izq As Single, Arr As Single, Ancho As Single, Alto As Single
DirOrigen = ThisWorkbook.Path & "\"
ArchivoGIF = DirOrigen & "miArchivoGIF.gif"
Dominio = "100.65.10.218" ' o... http://www.misitioweb.com '
Destino = "/images/"
Proceso = DirOrigen & "EnviaFTP.bat"
With Range("a1:i29")
Izq = .Left: Arr = .Top: Ancho = .Width: Alto = .Height: .CopyPicture
End With: Application.DisplayAlerts = False
With ActiveSheet.ChartObjects.Add(Izq, Arr, Ancho, Alto)
.Chart.Paste: .Chart.Export ArchivoGIF: .Delete
End With: Application.DisplayAlerts = True
Batch = FreeFile: Open Proceso For Output As #Batch
Print #Batch, "open " & Dominio
Print #Batch, "usuario" ' <- PON aqui la ID del usuario '
Print #Batch, "password" ' <- PON aqui la contrseña '
Print #Batch, "put " & ArchivoGIF & " " & Destino
Print #Batch, "quit": Close #Batch
Shell "cmd /c ftp -s:" & Proceso & " del " & Proceso, vbHide
End Sub

Preguntas similares