I Microsoft Excel 2003 , kan du få fejlen " Fil ikke helt indlæst ", når du forsøger at åbne en stor datafil. Dette sker, hvis datafilen indeholder for mange rækker . Som standard er Excel 2003 kun i stand til at importere regneark , der indeholder 65.536 rækker . Microsoft har dog udviklet en makro skabelon, der bryder op store datasæt i flere regneark , der giver brugerne mulighed for at importere data , der ellers ville overstige Excels rækkebegrænsning . Instruktioner
1
Klik på "Funktioner ", vælg " Macro " og vælg " Makroer ".
2
Skriv et navn til din makro i "Name " feltet , som som " LargeFileImport ", og klik på " Opret ". Visual Basic Editor åbnes automatisk.
3
Dobbeltklik på " (Navn) Module" i "Egenskaber" vindue og skriv " LargeFileModule ".
4 < p> Klik på "+ " ikonet ved siden af " Microsoft Office Excel Objects ".
5
Dobbeltklik på " LargeFileModule " for at åbne "Code " vinduet.
6
Kopier og indsæt følgende i " Code " vinduet : Hej
Sub LargeFileImport ()
' dimension variables
Dim ResultStr As String
Dim FileName As String
Dim FileNum As Integer
Dim Counter som dobbelt
' Spørg bruger for File navn
FileName = InputBox ( "Indtast venligst Tekstfil s navn , fx test.txt " )
'Tjek for ingen post
p Hvis FileName =" " Så End
' get Næste Tilgængelige File Handle Number
< p > FileNum = FreeFile ()
' Open Text File For Input
Open FileName For Input Som # FileNum
' Turn Screen Opdatering Off
Application . ScreenUpdating = False
'Opret en ny projektmappe med ét regneark In It
Workbooks.Add skabelon: = xlWorksheet
' Sæt The Counter til 1
tæller = 1
' Loop Indtil slutningen af filen er nået
Do While Seek ( FileNum ) < = LOF ( FileNum )
' Display Import Rækkenummer On status Bar
Application.StatusBar = " Importerer Row" & _
Counter & " af tekstfil " & FileName
' Store én tekstlinje fra fil til variabel < br >
Linie Input # FileNum , ResultStr
' Store Variable data til aktive Cell
p Hvis Venstre ( ResultStr , 1) = " =" Så
ActiveCell.Value = " ' " & ResultStr
Else
ActiveCell.Value = ResultStr
End If
»For Excel -versioner før Excel 97 , ændres 65.536-16.384
Hvis ActiveCell.Row = 65536 Så
»Hvis On The Last Row derefter tilføje et nyt ark
ActiveWorkbook.Sheets.Add
Else < br >
»Hvis ikke det sidste Row Så Go One Cell Down
ActiveCell.Offset (1, 0) . Vælg
End If
' Increment disken af 1
Tæller = Tæller + 1
'Start Again øverst på ' Do While ' Statement
Loop
' Close The Open Text File < br >
Luk
'Fjern Message From statuslinjen
Application.StatusBar = False
End Sub
7
Klik på " File" og vælg " Luk" for at lukke Visual Basic Editor.
8
Klik på "Funktioner ", vælg " Macro " og vælg " Makroer ".
9
Vælg " LargeFileImport "makro fra" makroer " dialogboksen, og klik på" Run ".
10
Indtast navnet på din fil ( myhugedocument.txt , for eksempel) i den dialogboks, der vises. Excel vil importere data , opdele det i flere regneark for at omgå Excel linje grænse.
