Πώς να το Excel Διαβάστε έναν κατάλογο & Δημιουργία υπολογιστικού φύλλου

Γνωρίζοντας πώς να χρησιμοποιήσετε το Excel για να διαβάσετε έναν κατάλογο και να δημιουργήσετε ένα υπολογιστικό φύλλο επιχείρηση περιεχομένων του καταλόγου σας επιτρέπει να χρησιμοποιήσετε το Excel ως μια εφαρμογή διαχείρισης αρχείων . Για παράδειγμα , θα μπορούσε να προσφέρει ένα χρήστη με μια λίστα καταλόγων από την οποία μπορεί να επιλέξει έναν πίνακα βάσης δεδομένων της Access για την εισαγωγή στο τρέχον βιβλίο εργασίας του Excel . Έργο αυτού του άρθρου βασίζεται στην γλώσσα προγραμματισμού του Excel , Visual Basic for Applications ή VBA για συντομία . Μπορείτε να χρησιμοποιήσετε αυτή τη γλώσσα για να αυτοματοποιήσει οποιαδήποτε εργασία του Excel που δεν απαιτεί παρέμβαση του χρήστη . Ένας αποτελεσματικός τρόπος για την εκμάθηση αυτής της γλώσσας είναι να χρησιμοποιήσετε το "Record μακρο " εντολή του Excel στην καρτέλα του "Προγραμματιστής " . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί " Επιλογές" του κουμπί του Office και, στη συνέχεια , κάντε κλικ στο "Προβολή του έργου " κουτάκι για να αποκαλύψει την καρτέλα "Προγραμματιστής " . Αυτή η καρτέλα κατέχει πλήκτρα για μακροεντολές της Visual Basic . Θα χρησιμοποιήσετε μια μακροεντολή VBA για να εμφανιστούν τα αρχεία σε έναν κατάλογο και να αποθηκεύσετε τον κατάλογο σε ένα νέο υπολογιστικό φύλλο . 2

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

Επικολλήστε τον ακόλουθο πρόγραμμα στο παράθυρο προγραμματισμού . Αυτό το πρόγραμμα χρησιμοποιεί τη συνάρτηση VBA " Dir" να διαβάσει έναν κατάλογο . Η έξοδος αυτής της λειτουργίας είναι ένα ενιαίο αρχείο από αυτόν τον κατάλογο .

Option Explicit

Δημόσια ListFiles Sub ( )

Dim d

d = Dir ( "c : \\ windows \\ * " )

MsgBox d

End Sub
Η 4

Κάντε κλικ σε οποιαδήποτε από τις δηλώσεις του προγράμματος , και στη συνέχεια κάντε κλικ στο "Run " μενού "Run" εντολή για να εκτελέσετε το πρόγραμμα . Το Excel θα εμφανίσει ένα πλαίσιο μηνύματος που αναφέρει το όνομα του αρχείου στο φάκελο " C : \\ Windows. "
5

Επικολλήστε τον ακόλουθο πρόγραμμα μετά το " End sub" δήλωση του πρώτου προγράμματος . Αυτό το πρόγραμμα δημιουργεί ένα νέο βιβλίο εργασίας και εισάγει μια τιμή σε ένα από τα κελιά του . Τελικό πρόγραμμα σας που απαριθμεί τα αρχεία ενός καταλόγου θα χρησιμοποιήσει τις δηλώσεις σε αυτό το πρόγραμμα για να εισάγετε ονόματα σε ένα νέο βιβλίο εργασίας .

Option Explicit

Public Sub MakeNewWorkbook ( )

Τετράδια . Προσθήκη

ActiveCell = " Γεια σας "

End Sub
Η 6

Εκτελέστε το πρόγραμμα που κάναμε την προηγούμενη , και στη συνέχεια κάντε κλικ στο εικονίδιο " Excel " στην η γραμμή εργασιών των Windows για να επιστρέψετε στο Excel . Το πρόγραμμά σας θα προσθέσει ένα νέο βιβλίο εργασίας του οποίου η τρέχουσα φύλλο εμφανίζει το κείμενο " Γεια σου " στο κελί A1 .
Η 7

Χρησιμοποιήστε το βήμα 2 για οδηγίες για να επιστρέψουν στο περιβάλλον προγραμματισμού VBA , και στη συνέχεια επικολλήστε το ακόλουθο πρόγραμμα μετά το " End Sub" δήλωση του προηγούμενου προγράμματος . Αυτό το πρόγραμμα χρησιμοποιεί τη λειτουργία " Dir" για να συγκεντρώσει όλα τα αρχεία στο " C : \\ Windows " φάκελο . Τα καταστήματα του προγράμματος κάθε αρχείου στην δική του σειρά σε ένα υπολογιστικό φύλλο του ένα νέο βιβλίο εργασίας .

Option Explicit

Public Sub ListOneFile ( )

Dim d

d = Dir ( "c : \\ windows \\ * " )

Workbooks.Add

Κάντε Μέχρι d = " "

ActiveCell = d

' μετακινηθείτε προς τα κάτω

ActiveCell.Offset ( 1 ) . Επιλέξτε

d = Dir

Loop

End Sub
8

Εκτελέστε το πρόγραμμα όπως κάνατε τα προηγούμενα , και στη συνέχεια να επιστρέψετε στο Excel χρησιμοποιώντας τις οδηγίες βήμα 6 του . Θα δείτε ένα νέο υπολογιστικό φύλλο του οποίου τα κύτταρα εμφανίσει μια λίστα από όλα τα αρχεία στο " C : \\ windows " . Κατάλογο
Η
εικόνων