I Microsoft Excel 2003 , kan du få feilmeldingen " Filen ble ikke lastet helt " når du forsøker å åpne en stor datafil. Dette skjer hvis dataene filen inneholder for mange rader . Som standard er Excel 2003 bare i stand til å importere regneark som inneholder 65.536 rader . Microsoft har imidlertid utviklet en makro mal som bryter opp store datasett i flere regneark , slik at brukerne kan importere data som ellers ville overstige Excel rad grensen. Instruksjoner
en

Klikk på " Verktøy ", velg "Macro " og velg " Makroer ".
2

Skriv inn et navn for makroen i "Navn "-feltet , slik som " LargeFileImport , " og klikk " Opprett". Visual Basic-redigering åpnes automatisk.
3

Dobbeltklikk på " (navn) Module" i "Properties " vinduet og skriv " LargeFileModule . "
4 < p> Klikk på " + "-ikonet ved siden av " Microsoft Office Excel- objekter . "
5

Dobbeltklikk på " LargeFileModule " for å åpne " Code" -vinduet .
6

Kopier og lim inn følgende i " Code" -vinduet : en

Sub LargeFileImport ( )

' Dimension Variabler

Dim ResultStr As String

Dim FileName som String

Dim FileNum As Integer

Dim Counter som Double

"Spør Bruker for File navn

FileName = InputBox ( " Skriv inn tekst filens navn , f.eks test.txt " )

'Sjekk ingen oppføring
p Hvis filename = " "Then End

" Get Neste tilgjengelige File Håndtak Antall
< p > 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 In It

Workbooks.Add mal: = xlWorksheet

' sette telleren til en

teller = 1

' Loop Frem til slutten av filen er nådd

Mens Seek ( FileNum ) < = LOF ( FileNum )

' Vis Importerer Row Antall On Status Bar

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 Last 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 the Counter By 1

Counter = Counter + 1

"Start Again på toppen av ' Do While ' Statement

Loop

' Close The Open Text File

Lukk

"Fjern Message From Status Bar

Application.StatusBar = False

End Sub
7

Klikk på" File " og velg " Close " for å lukke Visual Basic-redigering .
8

Klikk på " Verktøy ", velg "Macro " og velg " Makroer ".
9

Velg " LargeFileImport "makro fra" Makroer "i dialogboksen og klikk" Run . "
10

Skriv inn navnet på filen ( myhugedocument.txt , for eksempel) i dialogboksen som vises. Excel vil importere data , dele den inn i flere regneark for å omgå Excel linje grense .