Frekventa användare av Excel är vana att regelbundet in och manipulera stora mängder data . I själva verket är Excel förmåga att hantera stora mängder data som ansvarar till stor del för dess popularitet med både företag och hemanvändare . Med dessa fakta i åtanke , är det förvånande Excel kämpar för att öppna stora filer med mer än 65.536 rader . Lyckligtvis finns ett en fix på problemet i form av ett makro som tillhandahålls av Microsoft. Instruktioner
1
Launch Excel , och navigera till " Verktyg".
2
Välj " macro " undermeny och välj Visual Basic Editor .
3
Välj " modul " i menyn Infoga
4
Kopiera och klistra in följande text : .
Sub LargeFileImport ( ) katalog
' Dimension Variabler
Dim ResultStr As String
Dim filnamnet som String
Dim FILNUM As Integer
Dim Counter Som Double
" Fråga användaren efter filens namn
filename = InputBox ( " Ange textfil namn , t.ex. test.txt " ) katalog
'Kontrollera ingen post
p Om FileName = " " Då End
"Get Next Tillgänglig filskaft Number
FILNUM = FreeFile ( ) katalog
" Open Text indatafil
Open filnamn för ingång Som # FILNUM
" Turn Screen Uppdaterar Off
Application.ScreenUpdating = False
" Skapa en ny arbetsbok med ett kalkylblad i den
arbetsböcker . Lägg mallen : = xlWorksheet
" ställa räkneverket på 1
Counter = 1
" Loop fram till slutet av filen har nåtts
Do While Seek ( FILNUM ) < = LOF ( FILNUM ) katalog
'Display Importera Rad nummer på Status Bar
Application.StatusBar = " Importera Row " & _
Counter & " av textfil " & Filnamn
' Store en textrad från fil till Variabel
Linjeinmatning # FILNUM , ResultStr
' Store Variable Data till aktiv cell
Om Vänster ( ResultStr , 1 ) = " = " Då
ActiveCell.Value = " ' " & ResultStr
Else
ActiveCell.Value = ResultStr
End If
" För Excel -versioner före Excel 97 , ändra 65.536-16.384
p Om ActiveCell.Row = 65536 Då
" Om å Senaste Row Lägg sedan ett nytt ark
ActiveWorkbook.Sheets.Add
Else
" Om inte den sista raden sedan gå en cell ned
ActiveCell . offset ( 1 , 0 ) . Välj
End If
" Tillväxt disk av 1
Counter = Räknare + 1
" börja om Top av " Do While " Statement
Loop
" Close Open Text File
Stäng
'Ta bort meddelande från Status Bar
Application.StatusBar = False
End Sub
5
Tryck på F5 -tangenten för att köra makrot .
