Frequente gebruikers van Excel zijn gewend om regelmatig het invoeren en manipuleren van grote hoeveelheden data . In feite , het vermogen van Excel om grote hoeveelheden gegevens te verwerken is verantwoordelijk voor een groot deel voor zijn populariteit met zowel zakelijke als thuisgebruikers . Met deze feiten in het achterhoofd , is het verrassend Excel worstelt om grote bestanden te openen met meer dan 65.536 rijen . Gelukkig is een oplossing voor dit probleem bestaat in de vorm van een macro van Microsoft. Instructies
1 Launch Excel , en ga naar het menu "Extra " . Kopen van 2 Kies de " macro " submenu en selecteer de Visual Basic editor.
3 Kies " module " in het menu invoegen
Kopieer 4 en plak de volgende tekst : . Sub LargeFileImport
( ) op ' Dimension Variabelen Dim ResultStr
als Koord Dim bestandsnaam
als Koord Dim FileNum
als Geheel Dim teller
As Double
' Gebruiker vragen voor de File Name FileName
= InputBox ( " Geef de naam van het tekstbestand 's , bijvoorbeeld test.txt " ) op Twitter ' Controleer op geen vermelding
Als FileName = " " dan End of 'Get Volgende Beschikbaar Bestand Handle Aantal FileNum = FreeFile ( )
' Open Text File For Input Open FileName
Voor Input Zoals # FileNum
' Turn scherm updaten Uit
Application.ScreenUpdating = False
' Maak een nieuwe werkmap met een werkblad In Het werkmappen
. Voeg template : = xlWorksheet
' Set The Counter tot 1 Teller 1
= ' Loop tot het einde van het bestand is bereikt
Do While Seek ( FileNum ) = LOF ( FileNum ) op 'Display importeren Rijnummer Op statusbalk Application.StatusBar
= " Rij importeren " & _ Counter & <
" van het tekstbestand " FileName
' Store een regel tekst uit bestand om variabele Line Input # FileNum
, ResultStr
' & Store Variable Data Into Actief Cell < > Als Left ( ResultStr , 1 ) = " = " ActiveCell.Value = " ' " & ResultStr
Else
ActiveCell.Value = br dan
ResultStr End
Als
' Voor Excel -versies vóór Excel 97 , veranderen 65.536-16.384
Als ActiveCell.Row = 65536 dan
' Als On The laatste Row dan Voeg een nieuwe sheet
ActiveWorkbook.Sheets.Add
Else
' If Not The Last Row dan ga One Cell Omlaag ActiveCell
. offset ( 1 , 0 ) . Kies End
Als
' Increment de teller op 1 teller
= Counter + 1
' Start Again At Top van 'Do Terwijl ' Verklaring
Loop
' Close The Open Text File item op
' Verwijder Bericht van Status Bar & Application.StatusBar = False End of Sub
5 Druk op F5 om de macro uit te voeren .
|
