Πώς να εισάγουμε περισσότερα από 65.536 γραμμές στο Excel 2003

Στο Microsoft Excel 2003 , ενδέχεται να λάβετε το σφάλμα "Το αρχείο δεν φορτώνεται πλήρως ", όταν προσπαθείτε να ανοίξετε ένα μεγάλο αρχείο δεδομένων . Αυτό συμβαίνει όταν το αρχείο δεδομένων περιέχει πάρα πολλές σειρές . Από προεπιλογή , το Excel 2003 είναι μόνο σε θέση εισαγωγής υπολογιστικών φύλλων που περιέχει 65.536 γραμμές . Ωστόσο, η Microsoft έχει αναπτύξει μια μακροεντολή πρότυπο που σπάει μεγάλα σύνολα δεδομένων σε πολλά φύλλα εργασίας , επιτρέποντας στους χρήστες να εισάγουν δεδομένα που διαφορετικά θα υπερβαίνει το όριο γραμμών του Excel . Οδηγίες
Η

1 Κάντε κλικ στο " Εργαλεία ", επιλέξτε " Macro " και επιλέξτε " Μακροεντολές ". 2

Πληκτρολογήστε ένα όνομα για τη μακροεντολή σας στο πεδίο "Όνομα" , όπως ως " LargeFileImport , " και κάντε κλικ στο κουμπί " Δημιουργία ". Η Visual Basic Editor θα ανοίξει αυτόματα .
Εικόνων 3

διπλό κλικ στο " ( Name ) Ενότητα " στο παράθυρο "Ιδιότητες" και πληκτρολογήστε " LargeFileModule . "
Η 4

κάντε κλικ στο εικονίδιο " + " δίπλα στο " αντικειμένων του Microsoft Office Excel . "
5

διπλό κλικ στο " LargeFileModule " για να ανοίξετε το παράθυρο " κώδικας " .
Η 6

Αντιγράψτε και επικολλήστε το ακόλουθο κείμενο "Κώδικα " παράθυρο :

Sub LargeFileImport ( )

« μεταβλητές Διάσταση

Dim ResultStr Όπως String Dim

FileName Όπως String Dim

FileNum As Integer

Dim Counter As Double

«Ρωτήστε τον χρήστη αρχείου Όνομα

FileName = InputBox ( " Παρακαλώ εισάγετε το αρχείο κειμένου του όνομα , π.χ. test.txt " )

'Έλεγχος για καμία καταχώρηση

Εάν το όνομα αρχείου = " " τότε Τέλος

« Πάρτε Επόμενη Διαθέσιμος αριθμός λαβή αρχείου

FileNum = FreeFile ( )

« Άνοιγμα Αρχείου κειμένου Για Input

Open όνομα αρχείου για Input Όπως # FileNum

« Οθόνη Turn Off Ενημέρωση

Application . ScreenUpdating = False

' Δημιουργήστε ένα νέο βιβλίο με ένα Φύλλο εργασίας σε αυτό

Workbooks.Add πρότυπο : = xlWorksheet

' ρυθμίσετε το μετρητή σε 1

Μετρητής = 1

« Loop Until the End Of File επιτευχθεί

κάνετε Ενώ Seek ( FileNum ) <= ΤΤΣ ( FileNum )

'Εμφάνιση Εισαγωγή Αριθμός Row την Κατάσταση Bar

Application.StatusBar = " Εισαγωγή γραμμής " & _

Counter & " του αρχείου κειμένου " & Όνομα αρχείου

» Κατάστημα μία γραμμή κειμένου από αρχείο Για Μεταβλητή
Input

Γραμμή # FileNum , ResultStr

« Κατάστημα μεταβλητά δεδομένα Into Active τηλέφωνα

Εάν Αριστερά ( ResultStr , 1 ) = " = " τότε

ActiveCell.Value = " " & ResultStr

Else

ActiveCell.Value = ResultStr

End If

« Για τις εκδόσεις του Excel πριν από το Excel 97 , αλλάξτε 65536-16384

Αν ActiveCell.Row = 65536 Στη συνέχεια

«Αν On The Last Row συνέχεια να προσθέσετε ένα νέο φύλλο

ActiveWorkbook.Sheets.Add

Else

« If Not The Last Row Στη συνέχεια Πηγαίνετε κάτω κατά ένα κελί

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

End If

« μεγαλώσει ο μετρητής Με 1

Μετρητής = Μετρητής + 1

« Ξεκινήστε πάλι στην κορυφή του « Do While « Δήλωση

Loop

« Κλείστε το Open αρχείο κειμένου

Κλείστε

' αφαιρέσει το μήνυμα Από Status Bar

Application.StatusBar = False

End Sub
Η 7

Κάντε κλικ στο " Αρχείο" και επιλέξτε " Κλείσιμο" για να κλείσετε το Visual Basic Editor.
8

Κάντε κλικ στο " Εργαλεία ", επιλέξτε " Macro " και επιλέξτε " Μακροεντολές ".
Η 9

Επιλέξτε το " LargeFileImport " μακροεντολή από το " Μακροεντολές " παράθυρο διαλόγου και κάντε κλικ στο " Run ".
Η 10

Πληκτρολογήστε το όνομα του αρχείου σας ( myhugedocument.txt , για παράδειγμα) στο παράθυρο διαλόγου που εμφανίζεται . Το Excel θα εισαγάγει τα δεδομένα , χωρίζοντας την σε πολλαπλά φύλλα εργασίας , προκειμένου να παρακάμψει τον περιορισμό γραμμή του Excel .
Η
εικόνων