Αυτό το σεμινάριο θα δείξει πώς να διαβάσετε ένα αρχείο κειμένου σε μια συμβολοσειρά στο VBA.
Μπορούμε είτε να διαβάσουμε το αρχείο κειμένου γραμμή προς γραμμή είτε ως ολόκληρο αρχείο.
Διαβάστε ολόκληρο αρχείο κειμένου σε συμβολοσειρά
Το κείμενο σε ένα αρχείο κειμένου αποτελείται συνήθως από πολλές γραμμές, χωρισμένες με οριοθέτες. Αυτά μπορεί να είναι ένα κόμμα (","), ένα κόμμα με κενό (","), ένα ερωτηματικό (";"), ένα ερωτηματικό με κενό (";"), ένα κενό (""), μια καρτέλα (vbTab ) ή σε σπάνιες περιπτώσεις οποιοσδήποτε άλλος χαρακτήρας, όπως μια tilde (). Οι γραμμές χωρίζονται κανονικά με διακοπή γραμμής (vbCRLF).
Ο ευκολότερος τρόπος για να διαβάσετε ένα ολόκληρο αρχείο κειμένου σε VBA είναι να εκτελέσετε τον ακόλουθο κώδικα ο οποίος θα τοποθετήσει ολόκληρο το περιεχόμενο του αρχείου κειμένου σε μια μεταβλητή συμβολοσειράς. Αυτή η διαδικασία χρησιμοποιεί τη δήλωση VBA Open και τη συνάρτηση VBA FreeFile.
12345678910 | Υποδιαβάσιμο αρχείο ()Dim iTxtFile ως ακέραιοςDim strFile As StringDim strFileText As StringstrFile = "C: \ Test \ TestFile.txt"iTxtFile = FreeFileΑνοίξτε το strFile για είσοδο ως FreeFilestrFileText = Είσοδος (LOF (iTxtFile), iTxtFile)Κλείσιμο iTxtFileΤέλος υπο |
Μπορούμε επίσης να διαβάσουμε ένα αρχείο κειμένου σε VBA χρησιμοποιώντας το FileSystemObject. Στον παρακάτω κώδικα χρησιμοποιήσαμε την καθυστερημένη δέσμευση με το αντικείμενο συστήματος συστήματος.
1234567891011 | Sub ReadTextFile ()Dim strText As StringDim FSO ως αντικείμενοDim TSO Ως αντικείμενοΟρισμός FSO = CreateObject ("Scripting.FileSystemObject")Ορισμός TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllΔΣΜ. ΚλείσιμοΟρισμός ΔΣΜ = ΤίποταΡύθμιση FSO = ΤίποταΤέλος υπο |
Μπορούμε επίσης να χρησιμοποιήσουμε την έγκαιρη δέσμευση στον κώδικα και να δηλώσουμε το αντικείμενο συστήματος συστήματος δημιουργώντας μια αναφορά στο έργο μας Excel στο αντικείμενο συστήματος συστήματος.
1234567891011 | Sub ReadTextFile ()Dim strText As StringDim FSO ως νέο FileSystemObjectDim TSO Ως αντικείμενοΟρισμός FSO = CreateObject ("Scripting.FileSystemObject")Ορισμός TSO = FSO.OpenTextFile ("C: \ Test \ TestFile.txt")strText = TSO.ReadAllΔΣΜ. ΚλείσιμοΟρισμός ΔΣΜ = ΤίποταΡύθμιση FSO = ΤίποταΤέλος υπο |