Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Vytvorte súbor príkazov FTP so zoznamom príkazov , ktoré klient FTP sa vykonávajú . Nasledujúci fragment kódu VBA vytvorí taký súbor :
Dim ftpFileHandle As Integer
ftpFileHandle = FreeFile
Otvorte " ftpCommand.txt " Pre výstup ako # ftpFileHandle
Print # ftpFileHandle , " open ftpserver.com "
Print # ftpFileHandle , " userid "
Print # ftpFileHandle , " heslo "
Print # ftpFileHandle , " odoslať localfile.xls "
Print # ftpFileHandle , " recv remotefile.doc "
Print # ftpFileHandle , " bye "
Close # ftpFileHandle
Nahradiť " ftpserver.com " s názvom FTP servera , " userid " s názvom vášho účtu na tomto serveri a " heslo " s vašim heslom . Ukážkový kód nahrá tabuľky obsiahnuté v súbore s názvom " localfile.xls " a stiahne dokument obsiahnutý v súbore s názvom " remotefile.doc . " Pred uzavretím relácie s môžete použiť niektorý z príkazov zo " zoznamu FTP príkazy " na NSF Nástroje internetových stránkach " Dovidenia . "
2
vytvoriť dávkový alebo spustiteľný skript , súbor , ktorý vyvolá FTP klient , aby to spustiť príkazový súbor FTP . Nasledujúci fragment kódu VBA vytvorí taký súbor :
Dim batFileHandle As Integer
batFileHandle = FreeFile
Otvorte " doFtp.bat " Pre výstup ako # batFileHandle
Print # batFileHandle , " ftp - s : ftpCommand.txt "
Close # batFileHandle
3
spustite dávkový súbor zahrnutím nasledujúci riadok v kóde jazyka VBA :
Shell ( " doFtp.bat " ) , vbHide '' , vbMinimizedNoFocus
Všimnite si , že riadok obsahuje dva apostrofy , bez akéhokoľvek charakteru medzi nimi , bezprostredne pred druhým čiarkou . Váš program VBA vyvolá dávkový súbor , ktorý , podľa poradia , bude vyvolanie FTP klienta a majú to vykonať postupnosť príkazov od kroku 1.