Populære brukere av Excel er vant til regelmessig inn og manipulere store mengder data . Faktisk er Excel evne til å håndtere store mengder data ansvaret i stor grad for sin popularitet med både forretnings-og hjemmebrukere alike. Med disse fakta i tankene , er det overraskende Excel sliter med å åpne store filer med mer enn 65.536 rader . Heldigvis finnes en løsning på problemet i form av en makro som leveres av Microsoft . Instruksjoner
en
Launch Excel , og naviger til " Verktøy"-menyen .
2
Velg " makro " undermenyen , og velg Visual Basic-redigering .
3
Velg "modul" fra menyen Sett inn
4
Kopier og lim inn følgende tekst: .
Sub LargeFileImport ( )
< p > ' Dimension Variabler
Dim ResultStr As String
Dim FileName As String
Dim FileNum As Integer
Dim Counter Som Double
< p > ' Be Brukt i filnavnet
FileName = InputBox ( "Skriv inn tekstfil navn, f.eks test.txt " )
' Sjekk ingen oppføring
p Hvis FileName = "" Then End
"Get Neste tilgjengelige File Håndtak Antall
FileNum = FreeFile ( )
' Open Text File For Input
åpne filnavn For Input As # FileNum
' Turn Screen Oppdatere Off
Application.ScreenUpdating = False
"Opprett en ny arbeidsbok med ett regneark i IT
arbeidsbøker . Legg mal: = xlWorksheet
' sette telleren til en
Counter = 1
' Loop Frem til slutten av filen er nådd
Mens Seek ( FileNum ) < = LOF ( FileNum )
'Vis Importerer Row Antall På statuslinjen
Application.StatusBar = " Importerer Row " & _
Counter & " av tekstfil " & FileName
' butikk En tekstlinje fra fil til variabel
Linje Input # FileNum , ResultStr
' sexy Variable data til Aktiv Cell
p Hvis Venstre ( ResultStr , 1 ) = "= " Da
ActiveCell.Value = " ' " & ResultStr
Else
ActiveCell.Value = ResultStr
End If
'For Excel-versjoner før Excel 97 , endre 65536-16384
p Hvis ActiveCell.Row = 65536 Da
' Hvis On The Siste Row Deretter Legg et nytt ark
ActiveWorkbook.Sheets.Add
Else
' If Not The Last Row Så gå en celle ned
ActiveCell . offset ( 1 , 0 ) . Velg
End If
' Increment telleren ved en
Counter = Counter + 1
"Start igjen på topp av "Bruk Mens ' Statement
Loop
' Close The Open Text File
Lukk
" Fjern Message From Status Bar
Application.StatusBar = False
End Sub
5
Trykk F5 for å kjøre makroen .
