Αρχεία κειμένου που είναι μεγαλύτερα από 65.536 γραμμές δεν είναι δυνατό να εισαχθούν στο Excel 97, Excel 2000, Excel 2002 και Excel 2003

Σύνοψη

Στο Microsoft Excel 97 για Windows, το Microsoft Excel 2000, το Microsoft Excel 2002 και το Microsoft Office Excel 2003, δεν μπορεί να ανοίξει αρχεία κειμένου που περιέχουν περισσότερες από 65.536 γραμμές στο σύνολό τους. Δεν μπορείτε να ανοίξετε αυτά τα αρχεία, επειδή αυτές οι εκδόσεις του Microsoft Excel, περιορίζονται σε 65.536 γραμμές. Εάν ανοίξετε ένα αρχείο που περιέχει περισσότερα δεδομένα από αυτό, έχει περικοπεί στο αρχείο κειμένου στη γραμμή 65.536 και λαμβάνετε το ακόλουθο μήνυμα λάθους:
Το αρχείο δεν φορτώθηκε ολόκληρο.
Ωστόσο, μπορείτε να χρησιμοποιήσετε μια μακροεντολή για να ανοίξετε το αρχείο και αυτόματη αλλαγή του κειμένου σε πολλά φύλλα εργασίας


Σημειώσεις

Εκδόσεις του Excel παλαιότερες από το Excel 97 έχουν όριο 16.384 γραμμές.


Εκδόσεις νεότερες από το Excel 2003 έχουν όριο του 1.048.576 γραμμές.

Περισσότερες πληροφορίες

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


Σημειώστε ότι επειδή αυτή είναι μια μακροεντολή, χρησιμοποιώντας το ενδέχεται να είναι σημαντικά πιο αργή από κάνοντας κλικ στο κουμπί " Άνοιγμα " από το μενού αρχείο .
   'All lines that begin with an apostrophe (') are remarks and are not
'required for the macro to run.

   Sub LargeFileImport()
'Dimension Variables
Dim ResultStr As String
Dim FileName As String
Dim FileNum As Integer
Dim Counter As Double
'Ask User for File's Name
FileName = InputBox("Please enter the Text File's name, e.g. test.txt")
'Check for no entry
If FileName = "" Then End
'Get Next Available File Handle Number
FileNum = FreeFile()
'Open Text File For Input
Open FileName For Input As #FileNum
'Turn Screen Updating Off
Application.ScreenUpdating = False
'Create A New WorkBook With One Worksheet In It
Workbooks.Add template:=xlWorksheet
'Set The Counter to 1
Counter = 1
'Loop Until the End Of File Is Reached
Do While Seek(FileNum) <= LOF(FileNum)
'Display Importing Row Number On Status Bar
Application.StatusBar = "Importing Row " & _
Counter & " of text file " & FileName
'Store One Line Of Text From File To Variable
Line Input #FileNum, ResultStr
'Store Variable Data Into Active Cell
If Left(ResultStr, 1) = "=" Then
ActiveCell.Value = "'" & ResultStr
Else
ActiveCell.Value = ResultStr
End If

'For Excel versions before Excel 97, change 65536 to 16384
If ActiveCell.Row = 65536 Then
'If On The Last Row Then Add A New Sheet
ActiveWorkbook.Sheets.Add
Else
'If Not The Last Row Then Go One Cell Down
ActiveCell.Offset(1, 0).Select
End If
'Increment the Counter By 1
Counter = Counter + 1
'Start Again At Top Of 'Do While' Statement
Loop
'Close The Open Text File
Close
'Remove Message From Status Bar
Application.StatusBar = False

End Sub

Σημείωση Η μακροεντολή δεν να αναλύσει τα δεδομένα σε στήλες. Αφού χρησιμοποιήσετε τη μακροεντολή, ίσως χρειαστεί επίσης να χρησιμοποιήστε την εντολή Κείμενο σε στήλες από το
Μενού " δεδομένα " για να αναλύσετε τα δεδομένα όπως απαιτείται.
Όταν εκτελείτε αυτήν τη μακροεντολή σε συστήματα Macintosh και που προσπαθείτε να ανοίξετε ένα αρχείο που βρίσκεται στην επιφάνεια εργασίας, θα πρέπει να προηγείται του ονόματος αρχείου με το ακόλουθο
Σκληρός δίσκος: φάκελος της επιφάνειας εργασίας:
Όταν ο σκληρός δίσκος είναι το όνομα του σκληρού σας δίσκου. Σημειώστε ότι υπάρχει κενό διάστημα ανάμεσα στις λέξεις επιφάνειας εργασίας και των φακέλων.
Ιδιότητες

Αναγνωριστικό άρθρου: 120596 - Τελευταία αναθεώρηση: 10 Ιαν 2017 - Αναθεώρηση: 1

Σχόλια