Πώς να ανοίξει μεγάλα αρχεία στο Excel 2003

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

Εκκίνηση του Excel , και να περιηγηθείτε στο μενού "Εργαλεία " . 2

Επιλέξτε το " μακρο " υπομενού και επιλέξτε το πρόγραμμα επεξεργασίας της Visual Basic .

Η

3 Επιλέξτε " ενότητα " από το μενού ένθετο
Η

4 Αντιγράψτε και επικολλήστε το ακόλουθο κείμενο : .

Sub LargeFileImport ( )

" Μεταβλητές Διάσταση

Dim ResultStr Όπως String Dim

FileName Όπως String Dim

FileNum As Integer

Dim Counter As Double

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

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

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

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

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

FileNum = FreeFile ( )

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

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

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

Application.ScreenUpdating = False

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

Τετράδια . Προσθέστε το πρότυπο : = xlWorksheet

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

Counter = 1

« Loop Μέχρι το τέλος του αρχείου επιτυγχάνεται

κάνετε Ενώ Επιδιώξτε ( FileNum ) <= ΤΤΣ ( FileNum )

'Εμφάνιση Εισαγωγή Row αριθμό στο Status Bar

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

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

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

εισόδου Line # 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 Τελευταία Row Στη συνέχεια, προσθέστε μια νέα Φύλλο

ActiveWorkbook.Sheets.Add

Else

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

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

End If

« Αύξησε τον μετρητή Έως την 1η

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

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

Loop

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

Κλείστε

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

Application.StatusBar = False

End Sub
5

Πιέστε το πλήκτρο F5 για να εκτελέσετε τη μακροεντολή .
Η
εικόνων