In Microsoft Excel 2003 , kunt u de fout " File is niet volledig geladen ' ontvangen bij een poging om een groot bestand te openen . Dit gebeurt als het bestand bevat te veel rijen . Standaard , Excel 2003 is alleen geschikt voor het importeren van spreadsheets met 65.536 rijen . Microsoft heeft echter een macro sjabloon die breekt grote datasets in meerdere werkbladen , zodat gebruikers data die anders rijlimiet Excel's zouden overschrijden importeren ontwikkeld . Instructies
1 Klik op " Extra ", selecteer " Macro " en kies " Macro's . "
Type 2 een naam voor uw macro in het veld "Naam" , zoals als " LargeFileImport , " en klik op "Create . " De Visual Basic Editor wordt automatisch geopend .
3 Dubbelklik op " ( Naam ) Module " in het venster "Eigenschappen " en type " LargeFileModule . "
4 Klik op de " + " naast " Microsoft Office Excel Objects . "
5 Dubbelklik op " LargeFileModule " om het venster "Code" te openen .
6 Kopieer en plak het volgende in het venster " Code " : Sub LargeFileImport
( ) op ' Dimension Variabelen Dim ResultStr
als Koord Dim bestandsnaam
As String Dim FileNum
als Geheel Dim teller
As Double
'Ask Gebruiker voor de File Name FileName
= InputBox ( " Vul de tekst File 's naam , bijvoorbeeld test.txt " ) op Twitter 'Controleer op geen vermelding
Als filename = " " dan End of ' Get Volgende Beschikbaar Bestand Handvat nummer
' Open Text File For Input
Open bestandsnaam For Input Zoals # FileNum
' > FileNum = FreeFile ( ) Turn scherm updaten Uit Application
. ScreenUpdating = False
' Maak een nieuwe werkmap met een werkblad In Het Workbooks.Add template
: = xlWorksheet
' Set The Counter tot 1
teller = 1
' Loop tot het einde van het bestand is bereikt
doen terwijl Seek ( FileNum ) = LOF ( FileNum ) op < ' Display importeren Rijnummer On Status Bar Application.StatusBar
= " Rij importeren " & _ teller
& " van tekstbestand " FileName
' Store One Line & van tekst uit bestand om Variable < br > Line Input # FileNum , ResultStr
' Store Variable Data Into Actief Cell
Als Left ( ResultStr , 1 ) = " = " ActiveCell.Value dan
= " ' " & ResultStr
Else ActiveCell.Value Einde
= ResultStr
Als
' Voor Excel -versies vóór Excel 97 , veranderen 65536-16384
Als ActiveCell.Row = 65536 dan
' Als On The Last Row dan Voeg een nieuwe sheet
ActiveWorkbook.Sheets.Add
Else < br > ' If Not The Last Row Ga dan een cel omlaag ActiveCell.Offset
( 1 , 0 ) . Kies End
Als
' Increment de teller Door 1 teller
= Counter + 1
' Start Again At Top Of ' Do While ' Verklaring Loop
' Close The Open Text File < br > item op ' Verwijder Bericht van Status Bar & Application.StatusBar = False End Sub
7
Klik op " Bestand " en selecteer " Sluiten" om de Visual Basic -editor te sluiten .
8 Klik op " Extra ", selecteer " Macro " en kies " Macro's . "
9 Selecteer de " LargeFileImport " macro van de " macro "dialoogvenster en klik op ' Uitvoeren '.
10 Voer de naam van het bestand ( myhugedocument.txt , bijvoorbeeld) in het dialoogvenster dat verschijnt . Excel zal de gegevens , splitsen importeren in meerdere werkbladen om Excel 's lijn limiet te omzeilen .
|
