Πώς να χρησιμοποιήσετε το FTP Από VBA

πρωτόκολλο μεταφοράς αρχείων είναι μια τεχνολογία που χρησιμοποιείται για τη μεταφορά αρχείων μεταξύ υπολογιστών μέσω του Διαδικτύου . VBA είναι μια γλώσσα προγραμματισμού που αναπτύχθηκε από τη Microsoft . VBA βασίζεται στο Component Object Model της Microsoft , που του επιτρέπει να αναφέρεται σε αντικείμενα και να κάνουν χρήση των ιδιοτήτων και των μεθόδων τους για να δημιουργήσουν προγράμματα . Ένα τέτοιο αντικείμενο μπορείτε να αναφερθείτε σε VBA είναι το αντικείμενο Microsoft Internet Transfer ελέγχου . Αυτό το αντικείμενο χειρίζεται τη μεταφορά αρχείων σε πλατφόρμες Windows. Χρησιμοποιώντας το αντικείμενο Microsoft Internet Transfer ελέγχου , οι προγραμματιστές μπορούν να δημιουργήσουν και να χρησιμοποιήσετε FTP στο πλαίσιο των προγραμμάτων τους . Η απόκτηση του αντικειμένου του Microsoft Internet Transfer Control για να χρησιμοποιήσει τις υπηρεσίες του FTP είναι απλό για έναν αρχάριο προγραμματιστή VBA και διαρκεί μόνο λίγα βήματα . Οδηγίες
Η

1 Ανοίξτε το Microsoft Excel . 2

Κάντε κλικ στο " Εργαλεία ", " Macro " και στη συνέχεια " Visual Basic ". Αυτό θα ανοίξει το περιβάλλον προγραμματισμού VBA .
Εικόνων 3

Κάντε κλικ στο " Εργαλεία" και " Αναφορά ". Μετακινηθείτε προς τα κάτω και επιλέξτε το "Control Microsoft Μεταφορά στο Internet" και κάντε κλικ στο "OK".
Η

4 Κάντε κλικ στο κουμπί "Εισαγωγή" και " ενότητα ". Είστε τώρα σε μια λειτουργική μονάδα κώδικα προγραμματισμού

Πληκτρολογήστε ή αντιγράψτε και επικολλήστε τον παρακάτω στην ενότητα κώδικα : .

Λειτουργία UploadFile ( ByVal Όνομα_κεντρικού_υπολογιστή As String , _

ByVal UserName Όπως String , _

ByVal κωδικό As String , _

ByVal LocalFileName As String , _

ByVal RemoteFileName Όπως String ) Όπως Boolean

Dim FTP Όπως inet

Set FTP = Νέα Inet

Με FTP

. πρωτόκολλο = icFTP

. RemoteHost = Όνομα_κεντρικού_υπολογιστή

. UserName = UserName

. Κωδικός = Κωδικός

. Execute . URL , "Βάλε " + LocalFileName + " " + RemoteFileName

Do While . StillExecuting

DoEvents

Loop

UploadFile = ( . ResponseCode = 0 )

End With

Set FTP = Τίποτα

Function End


εικόνων