1
Abrir Excel.
2 Haga clic en " Herramientas " de Microsoft "Macro " y luego en "Visual Basic " . Esto abrirá el entorno de programación VBA.
3
Haga clic en " Herramientas" y "Referencia ". Desplácese hacia abajo y seleccione la opción " Internet Transfer Control Microsoft " y haga clic en " Aceptar".
4 Haga clic en " Insertar" y " módulos". Ahora se encuentra en un módulo de código de programación
Escriba o copie y pegue el siguiente código en el módulo : .
Función UploadFile ( HostName ByVal As String , _ ByVal
Nombre de usuario As String , _ ByVal
Contraseña As String , _
LocalFilename ByVal As String , _
RemoteFileName ByVal As String ) As Boolean Dim
FTP Como inet
Configurar FTP = inet Nueva
FTP
. Protocolo = icFTP
. RemoteHost = HostName
. username = Nombre de usuario
. Password = Contraseña
. Ejecutar. URL , " Put " LocalFilename + + " " + RemoteFileName
Do While. StillExecuting
DoEvents
Loop
UploadFile = ( . ResponseCode = 0 )
extremo con
Configurar FTP = Nothing
Función End of