Hyppige brugere af Excel er vant til regelmæssigt at komme ind og manipulere store mængder data. Faktisk er Excel evne til at håndtere store mængder data ansvarlige for en stor del for sin popularitet med både virksomheder og hjemmebrugere ens. Med disse kendsgerninger i tankerne, er det overraskende Excel kæmper for at åbne store filer med mere end 65.536 rækker . Heldigvis et fix på problemet eksisterer i form af en makro fra Microsoft. Instruktioner
1

Launch Excel , og navigere til " Funktioner".
2

Vælg "makro" undermenuen og vælge Visual Basic Editor .

3

Vælg " modul " fra menuen Indsæt
4

Kopier og indsæt følgende tekst : .

Sub LargeFileImport ()
< p > ' dimension variables

Dim ResultStr As String

Dim FileName As String

Dim FileNum As Integer

Dim Counter Som Double
< p > ' Spørg bruger for File navn

FileName = InputBox ( "Indtast venligst Tekstfil navn , fx test.txt " )

' Tjek for ingen post
p Hvis FileName = "" Så End

'get Næste Tilgængelige File Handle Number

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

projektmapper . Tilføj 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 statuslinjen

Application.StatusBar = " Importerer Row" & _

Counter & «af tekstfil " & FileName

' Store én tekstlinje fra fil til variabel

linjeindgangs # FileNum , ResultStr

' Store Variable data til aktive celle < br >

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
p Hvis ActiveCell.Row = 65536 Så

» Hvis On The sidste Row derefter tilføje et nyt ark

ActiveWorkbook.Sheets.Add

Else

»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 igen på toppen af ' Må Mens ' Statement

Loop

' Close The Open Text File

Luk

' Fjern Message From statuslinjen

Application.StatusBar = False

End Sub
5

Tryk F5 for at køre makroen .