Häufige Nutzer von Excel werden regelmäßig Eingabe und Bearbeitung von großen Datenmengen gewöhnt . In der Tat ist die Excel- Fähigkeit, große Mengen von Daten verarbeiten zu einem großen Teil verantwortlich für seine Beliebtheit bei Geschäfts-und Heimanwender gleichermaßen. Mit diesen Fakten im Hinterkopf , ist es überraschend, Excel kämpft, um große Dateien mit mehr als 65.536 Zeilen öffnen. Glücklicherweise gibt es eine Lösung für das Problem in Form von einem Makro von Microsoft. Anleitung
1
Starten Sie Excel, und navigieren Sie zum Menü "Extras" .
2
Wählen Sie den "Makro"- Untermenü , und wählen Sie den Visual Basic -Editor.
3
Wählen Sie "Modul" aus dem Menü Einfügen
4
kopieren und fügen Sie den folgenden Text: .
Sub LargeFileImport ()
< p> ' Dimension variables
Dim ResultStr As String Dim FileName
As String Dim
FileNum As Integer Dim
Zähler As Double
< p > ' Benutzer fragen für Dateinamen
FileName = InputBox ( "Bitte geben Sie die Textdatei den Namen, zB test.txt " )
' Check ohne Eintrag
Wenn FileName = "" Then End
'Get Next erhältlich Feilenheft Anzahl
FileNum = FreeFile ()
' Open Textdatei für Eingabegeräte Service
öffnen FileName For Eingang As # FileNum
'Turn Off Bildschirm aktualisiert
Application.ScreenUpdating = False
' eine neue Arbeitsmappe mit einem Arbeitsblatt in Es
Arbeitsmappen erstellen . Vorlage hinzufügen : = xlWorksheet
' setzen den Zähler auf 1
Zähler = 1
' Loop bis zum Ende der Datei erreicht ist
Do While Suche ( FileNum ) <= LOF ( FileNum )
'Display Importieren Row Anzahl der Statusleiste
Application.StatusBar = "Importieren von Row" & _
Zähler & " der Textdatei " & FileName
'Store eine Textzeile aus der Datei in Variable
line Input # FileNum , ResultStr
' Store Variable Daten in aktive Zelle
If Left ( ResultStr , 1) = "=" Dann
ActiveCell.Value = " '" & ResultStr
Else
ActiveCell.Value = ResultStr
End If
' Für Excel -Versionen vor Excel 97 , ändern 65536-16384
Wenn ActiveCell.Row = 65536 Dann
' If On The Letzte Zeile fügen Sie dann ein neues Blatt
ActiveWorkbook.Sheets.Add
Else
' If Not The Last Row Dann gehen eine Zelle nach unten
ActiveCell . Offset (1 , 0). Wählen
End If
' Erhöhe den Zähler um 1
Zähler = + 1
' Again Start am Anfang von ' Do While ' Statement
