Πώς να εξαγάγετε Σταθερό πλάτος Αρχείο κειμένου για έναν πίνακα σε Visual Basic Access

Microsoft Access παρέχει διάφορες μεθόδους για την παρασκευή τους χρήστες διαχειρίζονται τα δεδομένα με αυτό διαθέσιμο σε άλλες εφαρμογές . Μία από αυτές τις μεθόδους είναι η εξαγωγή των δεδομένων σε ένα αρχείο κειμένου . Μπορείτε να χρησιμοποιήσετε το Visual Basic for Applications ( VBA ) , η γλώσσα προγραμματισμού χτισμένο στην Access , να εκτελέσετε την εντολή εξαγωγής κειμένου . Με αυτόν τον τρόπο , μπορείτε να καθορίσετε ότι η VBA εξαγάγετε έναν πίνακα ως σταθερού πλάτους όχι οριοθετημένο ( π.χ. , διαχωρισμένες με κόμμα στήλες ) . Χρησιμοποιώντας VBA για την εξαγωγή ενός σταθερού πλάτους αρχείο κειμένου σας επιτρέπει να επιταχύνει σημαντικά τη διαδικασία χειροκίνητης εξαγωγής του κειμένου διαθέσιμο σε στάνταρ ( μη - VBA ) interface του Access . Οδηγίες
Η 1

Ανοίξτε οποιοδήποτε υπάρχον αρχείο Access και επιλέξτε ένα από τα τραπέζια του, κάνοντας κλικ στο εικονίδιο στο παράθυρο περιήγησης στα αριστερά της οθόνης . 2

Πατήστε το " Ctrl " + " C , "τότε" Ctrl " + " V " για να κάνει ένα αντίγραφο του πίνακα . Πληκτρολογήστε " Πίνακας 1 " για το όνομα του πίνακα , στη συνέχεια, πατήστε το κουμπί " OK " για να ολοκληρωθεί η επικάλυψη πίνακα . Είσαι επανάληψη του πίνακα για να κρατήσει τον αρχικό πίνακα ασφαλή και ονομάζοντάς την " Πίνακας 1 " ώστε να είναι εύκολο να ακολουθήσει τα επόμενα οδηγίες αυτού του άρθρου , το οποίο όλοι αναφέρονται στο « Πίνακας 1 ».
Εικόνων 3

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

Τύπος " C : \\ table1.txt " . Για το " Όνομα αρχείου " πεδίο του οδηγού των εξαγωγών , και κάντε κλικ στο "OK". Στην επόμενη οθόνη του οδηγού , κάντε κλικ στην επιλογή " Σταθερό πλάτος " , στη συνέχεια, κάντε κλικ στο κουμπί "Για προχωρημένους " .
5

Κάντε κλικ στο " Αποθήκευση ως " κουμπί στην οθόνη " Πίνακας 1 Εξαγωγή Προδιαγραφές " , στη συνέχεια, κάντε κλικ στο κουμπί " OK" στο παράθυρο που επιβεβαιώνει το όνομα προδιαγραφή " Πίνακας 1 Εξαγωγή προδιαγραφές ". Κάντε κλικ στο " Finish" για να ολοκληρώσετε τον οδηγό κατά την εξαγωγή .
Η 6

Ανοίξτε το περιβάλλον προγραμματισμού Visual Basic πατώντας το πλήκτρο " Alt " + " F11 ". Κάντε κλικ στο " Ενότητα " κάτω από το μενού "Εισαγωγή" για να εμφανιστεί ένα παράθυρο για την εισαγωγή του πηγαίου κώδικα του προγράμματός σας .
Η 7

Κολλήστε ή πληκτρολογήστε την ακόλουθη υπορουτίνα στο παράθυρο κώδικα . Αυτό το σύντομο πρόγραμμα χρησιμοποιεί τη μέθοδο " TransferText " της συνάρτησης DoCmd να εκτελέσει το κείμενο την εξαγωγή . Αυτή η μέθοδος χρησιμοποιεί την προδιαγραφή εξαγωγής που δημιουργήσατε με το εγχειρίδιο του οδηγού κατά την εξαγωγή στο Βήμα 5 .

Public Sub ExportFixedWidth ( )

Dim specName Όπως String

specName = " Πίνακας 1 Εξαγωγή Προδιαγραφές "

DoCmd.TransferText acExportFixed , specName , " Πίνακας 1 " , " C : \\ table1.txt "

End Sub
8

Εκτελέστε το πρόγραμμα κάνοντας κλικ ένα γραμμή μεταξύ « Public Sub " του και τις γραμμές " End Sub" , στη συνέχεια, πατώντας το πλήκτρο " F5 ".
Η

9 Κάντε κλικ στο Παράθυρο "Start" κουμπί , στη συνέχεια, κάντε κλικ στο " Documents" για να ανοίξετε τον Windows Explorer. Πλοηγηθείτε στο " C : " φάκελο , στη συνέχεια, κάντε διπλό κλικ στο αρχείο " table1.txt » , η οποία δημιούργησε το πρόγραμμα σας . Το αρχείο θα εμφανιστεί ένας πίνακας κείμενο, του οποίου οι στήλες έχουν χαραχτεί σε τακτά χρονικά διαστήματα ( δηλαδή , η ίδια από μία γραμμή στην επόμενη) .
Η
εικόνων