Πώς να εκτελέσει εντολές FTP με VBA

Visual Basic for Applications ή VBA , είναι μια έκδοση της γλώσσας Visual Basic της Microsoft , στο πλαίσιο της σουίτας Office εργαλείων λογισμικού παραγωγικότητας . Προγράμματα VBA τρέχει μέσα από ένα εργαλείο Office - για παράδειγμα, το Word - πρόσβαση και το χειρισμό των δεδομένων που διαχειρίζεται επί του παρόντος από το εν λόγω εργαλείο - για παράδειγμα , ένα έγγραφο του Word . Ένα πρόγραμμα VBA μπορεί να διαβάσει την είσοδο του από , ή να γράψετε τα αποτελέσματα του, σε αρχεία που φιλοξενούνται σε έναν απομακρυσμένο διακομιστή μέσω του πρωτοκόλλου μεταφοράς αρχείων , ή FTP . Μπορείτε να γράψετε κώδικα VBA που καθοδηγεί το λογισμικό FTP client - προεγκατεστημένο από προεπιλογή στον υπολογιστή σας - για να αλληλεπιδρούν με τους διακομιστές FTP . Οδηγίες
Η 1

Δημιουργήστε το αρχείο εντολών FTP με μία λίστα από εντολές που ο πελάτης FTP θα εκτελέσει . Το ακόλουθο τμήμα κώδικα VBA δημιουργεί ένα τέτοιο αρχείο :

Dim ftpFileHandle As Integer

ftpFileHandle = FreeFile

Άνοιγμα " ftpCommand.txt " Για την Έξοδο Καθώς # ftpFileHandle

Print # ftpFileHandle , " ανοιχτό ftpserver.com "

Print # ftpFileHandle , " userid "

Print # ftpFileHandle , "password "

Print # ftpFileHandle , " στείλετε localfile.xls "

Print # ftpFileHandle , " recv remotefile.doc "

Print # ftpFileHandle , " αντίο "

Close # ftpFileHandle

Αντικατάσταση " ftpserver.com "με το όνομα του διακομιστή FTP , " userid "με το όνομα του λογαριασμού σας σε αυτό το διακομιστή και " password " με τον κωδικό πρόσβασής σας . Το δείγμα κώδικα ανεβάζει ένα υπολογιστικό φύλλο που περιέχονται σε ένα αρχείο με το όνομα " localfile.xls » και κατεβάζει ένα έγγραφο που περιέχεται σε ένα αρχείο με το όνομα " remotefile.doc . " Μπορείτε να χρησιμοποιήσετε οποιαδήποτε από τις εντολές από το " Κατάλογος FTP εντολές » για την NSF ιστοσελίδα Εργαλεία πριν από το κλείσιμο της συνόδου με το " αντίο ". 2

Δημιουργήστε μια παρτίδα , ή εκτελέσιμο σενάριο , το αρχείο το οποίο καλεί ο πελάτης FTP για να έχουν εκτελέσει το αρχείο εντολών FTP . Το ακόλουθο τμήμα κώδικα VBA δημιουργεί ένα τέτοιο αρχείο :

Dim batFileHandle As Integer

batFileHandle = FreeFile

Άνοιγμα " doFtp.bat " Για την Έξοδο Καθώς # batFileHandle

Print # batFileHandle , " ftp - s : ftpCommand.txt "

Close # batFileHandle
εικόνων 3

Εκτελέστε το αρχείο δέσμης με την εξής γραμμή στον κώδικά σας VBA :

Shell ( " doFtp.bat " ) , vbHide '' , vbMinimizedNoFocus

Σημειώστε ότι η γραμμή περιέχει δύο μονά εισαγωγικά , χωρίς χαρακτήρα μεταξύ τους , αμέσως πριν από το δεύτερο κόμμα . Το πρόγραμμά σας VBA θα επικαλεστεί το αρχείο δέσμης που , με τη σειρά του , θα επικαλεστεί τον πελάτη FTP και να το εκτελέσει την ακολουθία εντολών από το Βήμα 1 .
Η
εικόνων