Πώς να αντιγράψετε περιεχόμενο από ένα αρχείο κειμένου σε ένα φύλλο χαρτιού Διαδώστε Χρησιμοποιώντας VBA

μακροεντολές του Microsoft Excel μπορεί να σας βοηθήσει να αυτοματοποιήσετε σχεδόν οποιοδήποτε είδος της εργασίας , την αύξηση της παραγωγικότητας και βελτίωση της αποτελεσματικότητας σας . Γράφει σε VBA , μακροεντολές μπορούν να δημιουργήσουν , να χειριστούν και να καταργήσετε τα δεδομένα μέσα σε κάθε φύλλο . Επιπλέον , μπορείτε να χρησιμοποιήσετε μακροεντολές για να αρπάξει τις πληροφορίες από μια εξωτερική βάση δεδομένων ή αρχείο. Για να εισαγάγετε δεδομένα από ένα αρχείο κειμένου με το χέρι , θα πρέπει να ανοίξετε το αρχείο σε έναν επεξεργαστή κειμένου , να αντιγράψετε το περιεχόμενό του και το να τις επικολλήσετε σε Excel . Αν έχουμε να κάνουμε με πολλά αρχεία κειμένου , η μέθοδος αυτή μπορεί να φαίνεται τρομακτικό και επίπονη . Μια απλή συνάρτηση VBA μπορεί να σας βοηθήσει να αυτοματοποιήσετε . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Excel . Πατήστε το πλήκτρο " Ctrl + N " για να δημιουργήσετε ένα νέο βιβλίο εργασίας . Για να χρησιμοποιήσετε ένα από τα βιβλία εργασίας σας, αντί , πατήστε το πλήκτρο " Ctrl + O ", επιλέξτε το αρχείο και στη συνέχεια κάντε κλικ στο "Άνοιγμα ". 2

Πατήστε το " Alt + F8 " για να ανοίξετε το παράθυρο διαλόγου Μακροεντολές . Πληκτρολογήστε " GetFromTextFile " στο πλαίσιο Όνομα μακροεντολής και στη συνέχεια κάντε κλικ στο "Δημιουργία ".
Εικόνων 3

Πληκτρολογήστε τον ακόλουθο κώδικα στο πρόγραμμα επεξεργασίας VBA . Αντικαταστήστε το " C : \\ YOURTEXTFILE.txt " . Με την ακριβή τοποθεσία του αρχείου κειμένου που θέλετε να εισαγάγετε

Sub GetFromTextFile ( )

Δημ. sFile , WholeLine Όπως String

Dim startCell Όπως Σειρά

Dim c As Integer

Σεπτέμβριο = Chr ( 13 )

Application.ScreenUpdating = False

sFile = " C : \\ YOURTEXTFILE.txt "

Open sFile Για πρόσβαση στο Input Διαβάστε Όπως # 1

While Not EOF ( 1 )

Γραμμή Input # 1 , WholeLine

Αν δεξιά ( WholeLine , 1 ) <> Σεπτέμβριος τότε

WholeLine = End WholeLine & ΣΕΠ

Αν

ActiveCell.NumberFormat = " @ "

ActiveCell.Value = WholeLine

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

Wend

Close # 1

End Sub

4

Πατήστε το πλήκτρο " Alt + Q " για να κλείσει το πρόγραμμα επεξεργασίας VBA και να επιστρέψετε στο βιβλίο εργασίας σας .
5

Πατήστε " Shift + F11 " για να δημιουργήσετε ένα κενό φύλλο .
Η 6

Πατήστε το πλήκτρο " Alt + F8 " για να ανοίξετε ξανά το παράθυρο διαλόγου Μακροεντολές . Επιλέξτε "Get FromTextFile " και στη συνέχεια κάντε κλικ στο " Run". Αυτό αντιγράφει τα περιεχόμενα του αρχείου σας στο κενό φύλλο .
Η
εικόνων