Mandar a un sitio web un archivo o mas de excel

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

visite esta direccion y mire como lo hayo yo, si acaso eso es lo que busca.

http://esnips.com/web/Raigosa

luego se registrara para obtener el lugar de almacenamiento WEB

Gabriel Raigosa


http://esnips.com/web/ForoExcel
"Jonathan Milla" escribió en el mensaje
news:
| Hola, se puede enviar archivos al web, para que se hospeden en una
direccion
| ya sea por ftp u otro medio????
| Gracias
|
|

No funciona, se queda en el comando ftp


"Héctor Miguel" escribió en el mensaje
news:e$aplA%

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

hola, Jonathan !

No funciona, se queda en el comando ftp

que parte del codigo es lo que no esta funcionando ?... podrias exponer el codigo 'real' que estas usando ?
y/o las condiciones/situaciones/... que se trata de resolver 'realmente' ?
y [de pasadita] comentar bajo que version de windows corres las pruebas ?
y/o algun otro detalle mas... 'descriptivo' ?

saludos,
hector.

__ las consultas anteriores __

... 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

La version que trae el windows xp sp2 5.1.2600 y se queda en el prompt de
ftp, en el comando por lotes...

"Héctor Miguel" escribió en el mensaje
news:%23gxYa%

hola, Jonathan !

No funciona, se queda en el comando ftp

que parte del codigo es lo que no esta funcionando ?... podrias exponer el
codigo 'real' que estas usando ?
y/o las condiciones/situaciones/... que se trata de resolver 'realmente' ?
y [de pasadita] comentar bajo que version de windows corres las pruebas ?
y/o algun otro detalle mas... 'descriptivo' ?

saludos,
hector.

__ las consultas anteriores __

... 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