Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte aplikáciu Microsoft Excel .
2
Kliknite na " Nástroje " , " Makro " a potom " Visual Basic " . Tým sa otvorí programovacie prostredie VBA .
3
Kliknite na " Nástroje " a " referenčnou " . Prejdite nadol a vyberte " Microsoft Internet Transfer Control " a kliknite na " OK " .
4
Kliknite na " Vložiť " a " modul " . Teraz ste v programovacom module kóde
Zadajte alebo skopírujte a vložte nasledujúci do modulu kódu : .
Funkcia uploadfile ( ByVal hostname As String , _ ByVal
UserName as String , _ byVal
Heslo as String , _ byVal
LocalFileName as String , _ byVal
RemoteFileName as String ) as Boolean
Dim FTP as inet
Set FTP = New inet
s FTP
. Protocol = icFTP
. remoteHost = Hostname
. username = meno_používateľa
. Password = Heslo
. Execute . adresu , " Put " + LocalFileName + " " + RemoteFileName
robiť , keď . StillExecuting
DoEvents
Loop
uploadfile = ( . ResponseCode = 0 )
End With
Set FTP = Nothing
End Function