Πώς να χρησιμοποιήσετε τη μέθοδο OpenText στο Excel

VBA χρησιμοποιείται στο Excel για να δημιουργήσετε μακροεντολές που αυτοματοποιούν εργασίες που κανονικά θα έπρεπε να γίνει με το χέρι . Η διεξαγωγή αυτών των εργασιών με το χέρι μπορεί να είναι χρονοβόρες και δυσκίνητες . Πολλές φορές οι χρήστες πρέπει να αντιγράψετε και να επικολλήσετε τα δεδομένα στο Excel από αρχεία κειμένου . Απλά αντιγραφή και επικόλληση τα δεδομένα από ένα αρχείο κειμένου στο Excel δεν θα οδηγήσει σε κατάλληλα διαμορφωμένο δεδομένων. Η μέθοδος OpenText χρησιμοποιείται για να φορτώσει ένα αρχείο κειμένου και να αναλύσει αυτό . Ένα λογιστικό φύλλο έχει δημιουργηθεί με τα δεδομένα που αναλύονται . Η μέθοδος αυτή εξαλείφει την ανάγκη για τον χρήστη να εισάγει χειροκίνητα το αρχείο κειμένου και να περάσουν από το " Οδηγός εισαγωγής κειμένου " . Οδηγίες
Η

1 Ανοίξτε ένα νέο βιβλίο εργασίας . Πατήστε Alt και F11 στο πληκτρολόγιό σας για να ανοίξετε το πρόγραμμα επεξεργασίας VBA . Κάντε κλικ στο μενού Αρχείο και επιλέξτε "New " . Κάντε διπλό κλικ στο Φύλλο ( Φύλλο1 ) με το Microsoft Excel αντικείμενα στο τζάμι του παραθύρου Project- VBAProject . 2

Υπο Τύπος , ακολουθούμενο από το όνομα της μακροεντολής στην πρώτη γραμμή , όπως Sub Open ( ) . Μπορείτε να δώσετε στο μακρο οποιοδήποτε όνομα που θα θέλατε
εικόνων 3

Προσθέστε τη μέθοδο OpenText , διευκρινίζοντας τα ακόλουθα στοιχεία : .

1 . Κατάλογος το αρχείο βρίσκεται in.2 . Αριθμό σειράς που θα θέλατε να αρχίσει την εισαγωγή των δεδομένων in Το αρχείο προέλευσης είναι 437 : OEM Ηνωμένες Πολιτείες από προεπιλογή , εάν είστε σε Η.Π.Α.3 . Επιλέξτε αν θέλετε να αναλύσει το αρχείο σε μια οριοθετημένη σχέση με σταθερό πλάτος . Με οριοθετημένη, πρέπει να καθορίσετε ποιο είναι το διαχωριστικό είναι να αναλύσει το αρχείο , όπως καρτέλα , ερωτηματικό, το κόμμα , το χώρο , ή μια προσαρμοσμένη οριοθέτησης . Ρυθμίστε το διαχωριστικό που θα θέλατε να χρησιμοποιήσετε την τιμή TRUE , και το υπόλοιπο των delimiters σε FALSE .

Για παράδειγμα , αν θέλουμε να αναλύσει ένα αρχείο κειμένου που βρίσκεται στην επιφάνεια εργασίας του χρήστη John Smith , που χωρίζονται από καρτέλες , θα χρησιμοποιήσει τον ακόλουθο κώδικα :

Workbooks.OpenText αρχείου : = _ " C : \\ Documents and Settings \\ JSmith \\ Desktop \\ info.txt " , Προέλευση : = 437 , StartRow _ : = 1 , Τύπος δεδομένων : = xlDelimited , TextQualifier : = xlDoubleQuote , _ConsecutiveDelimiter : = False , Tab : = True , τελεία : = False , Comma : = False _ , Space : = False , Άλλα : = False , FieldInfo : = Array ( 1 , 1 ) , _TrailingMinusNumbers : = True
Η

4 Τερματίστε την μακρο πληκτρολογώντας "End Sub" . Αποθηκεύστε τη μακροεντολή κάνοντας κλικ στο κουμπί Αποθήκευση στη γραμμή εργαλείων . Κλείστε το παράθυρο της Visual Basic .
5

Εκτελέστε τη μακροεντολή κάνοντας κλικ στην καρτέλα Προβολή στη γραμμή εργαλείων . Κάντε κλικ για μακροεντολές , και επιλέξτε τη μακροεντολή . Κάντε κλικ στο κουμπί " Run" .
Η
εικόνων