Grabar libro en un servidor remoto

23/01/2008 - 10:59 por Eva | Informe spam
Saludos al grupo.
Tengo un libro de excel en un servidor ftp al cual me deja acceder sin
ningún problema y realizar cambios.
En dicho libro existe una macro que intenta guardar los cambios del libro y
salir de excel.
Cuando la probé en local funcionaba bien, el problema es que al intentar
graba en remoto me da un error diciendo que el archivo está bloqueado.

Como puedo hacer para que me deje grabar en remoto?

Gracias al grupo: Eva

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
23/01/2008 - 21:25 | Informe spam
hola, Eva !

Tengo un libro de excel en un servidor ftp al cual me deja acceder sin ningun problema y realizar cambios.
En dicho libro existe una macro que intenta guardar los cambios del libro y salir de excel.
Cuando la probe en local funcionaba bien, el problema es que al intentar graba en remoto
me da un error diciendo que el archivo esta bloqueado.
Como puedo hacer para que me deje grabar en remoto?



(para empezar)... podrias exponer el codigo (o al menos la parte) donde "grabas en remoto a sitios web" -???-

(hasta donde se)... manejar una transferencia de archivos a sitios web...
NO esta tan disponible como (si estuvieras) grabando 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 contrasena
- 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 contrsena '
Print #Batch, "put " & ArchivoGIF & " " & Destino
Print #Batch, "quit": Close #Batch
Shell "cmd /c ftp -s:" & Proceso & " del " & Proceso, vbHide
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida