Πώς να γράψετε Βασικά στοιχεία διάταξης Visual σε ένα αρχείο κειμένου στο Excel

Microsoft Visual Basic for Applications ( VBA ) αναπτύχθηκε από τη Microsoft και είναι συνήθως χρησιμοποιούνται για να αυτοματοποιήσουν εργασίες ρουτίνας μέσα από τις εφαρμογές του Microsoft Office . Μια σειρά δεδομένων στον προγραμματισμό είναι μια μεταβλητή που μπορεί να έχει πολλά στοιχεία για να κρατήσει τις πληροφορίες . Ένας πίνακας είναι χρήσιμο όταν θέλετε να αποθηκεύσετε 100 σημεία δεδομένων - αντί της δημιουργίας 100 διαφορετικές μεταβλητές που μπορείτε να αποθηκεύσετε τα σημεία δεδομένων σε μια μεταβλητή πίνακα . Σε μερικά βήματα μπορείτε να αποθηκεύσετε τις πληροφορίες από το Excel σε μια σειρά και να το γράψετε σε ένα αρχείο κειμένου . Οδηγίες
Η 1

Εκκίνηση του Microsoft Office Excel και πληκτρολογήστε " 1 " σε " A1 ". Πληκτρολογήστε " 2 " σε " A2 ", " 3 " σε " A3" και " 4 " σε " Α4 ". 2

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

Τύπος " Private Sub saveDataArray ( ) " για να δημιουργήσετε μια υπορουτίνα και πατήστε το πλήκτρο " Enter".
Η Φτηνές 3

Πληκτρολογήστε το παρακάτω για να δηλώσετε τις μεταβλητές σας :

Dim txtFileNum As Integer

Dim DataArray ( 5 ) Όπως String Dim

xLoop As Integer
Φτηνές 4

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε ένα νέο αρχείο κειμένου :

Άνοιγμα " C : \\ myTextFile.txt " για Προσάρτηση Όπως # txtFileNum

Αντικαταστήστε το " C : \\ myTextFile . . txt "με το όνομα του αρχείου της επιλογής σας
5

Πληκτρολογήστε το παρακάτω, για να βρόχο μέσω των δεδομένων στο Excel και να το αποθηκεύσετε σε σειρά σας :

για xLoop = 1 να 4

Range ( "A" & xLoop ) . Επιλέξτε

DataArray ( xLoop ) = Range ( " A " & xLoop ) . Αξία

Επόμενο xLoop

6

Πληκτρολογήστε το παρακάτω, για να βρόχο μέσω του πίνακα και να αποθηκεύσετε τα δεδομένα στο αρχείο κειμένου :

για xLoop = 1 να 4

Print # txtFileNum , DataArray ( xLoop )

Επόμενο xLoop
Η 7

Πληκτρολογήστε το παρακάτω, για να κλείσει το αρχείο κειμένου :

Close # txtFileNum

Πατήστε το πλήκτρο " F5 " για να τρέξει υπορουτίνα σας .
Η
εικόνων