Aperte .
2
Clicca su "Strumenti " Microsoft Excel "macro " e poi " Visual Basic ". Si aprirà l'ambiente di programmazione VBA .
3
Clicca su "Strumenti " e " Riferimento ". Scorrere verso il basso e selezionare l'opzione " Internet Transfer Control Microsoft " e fare clic su " OK ".
4
Fare clic su " Inserisci" e "Modulo ". Si è ora in un modulo di codice di programmazione
Digitare o copiare e incollare il seguente codice nel modulo : .
Funzione UploadFile ( ByVal NomeHost As String , _ ByVal
UserName String, _
ByVal password As String , _
LocalFilename ByVal As String , _
RemoteFileName ByVal come stringa) come booleano
Dim FTP come inet
FTP = New inet
Con FTP
. protocollo = icFTP
. RemoteHost = hostname
. UserName = NomeUtente
. password = password
. Esegui . URL , " Put " + LocalFilename + " " + RemoteFileName
Do While . StillExecuting
DoEvents
loop
UploadFile = ( . risposta = 0 ) per
End With
FTP = Nothing End Function
Programmazione © www.354353.com