I Microsoft Excel 2003 , kan felmeddelandet "Filen laddas inte helt " när du försöker öppna en stor datafil . Detta inträffar om datafilen innehåller för många rader . Som standard är Excel 2003 endast kan importera kalkylblad som innehåller 65.536 rader . Däremot har Microsoft utvecklat ett makro mall som bryter upp stora datamängder i flera kalkylblad , så att användarna kan importera data som annars skulle överskrida Excel rad gränsen . Instruktioner
1
Klicka på " Verktyg " välja " Macro " och välj " Makron . "
2
Skriv ett namn för makrot i " Namn "-fältet , t.ex. som " LargeFileImport , " och klicka på " Skapa ". Visual Basic Editor öppnas automatiskt .
3
Dubbelklicka på " ( namn ) modul " i " Egenskaper " fönster och skriv " LargeFileModule . "
4
Klicka på " + " bredvid " Microsoft Office Excel- objekt . "
5
Dubbelklicka på " LargeFileModule " för att öppna " Code "-fönstret .
6
Kopiera och klistra in följande i " Code "-fönstret :
Sub LargeFileImport ( ) katalog
" Dimension Variabler
Dim ResultStr As String
Dim FileName As String
Dim FILNUM As Integer
Dim Counter som Double
"Fråga Användare för filens namn
filename = InputBox ( " Ange text fil namn , t.ex. test.txt " ) katalog
'Kontrollera ingen post
p Om filename = " " Då End
" Get Next Tillgänglig File
Handtag Number
FILNUM = FreeFile ( ) katalog
" Open Text indatafil
Open filnamn för Input Som # FILNUM
" Turn Screen Uppdatering av
Application . ScreenUpdating = False
"Skapa en ny arbetsbok med ett kalkylblad i det
Workbooks.Add mall : = 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
linjeingång # FILNUM , ResultStr
' Store Variabeldatamenyn till aktiva Cell
p 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
Om ActiveCell.Row = 65536 Då
" Om på sista v sedan till en ny
Sheet
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
" Start Again överst på " Do While " Statement
Loop
" Close Open Text File
Stäng
'Ta bort meddelande från Status Bar
Application.StatusBar = False
End Sub
7
Klicka på " File " och välj " Stäng " för att stänga Visual Basic Editor .
8
Klicka på " Verktyg " välja " Macro " och välj " Makron . "
9
Välj " LargeFileImport " makro från " Makron " i dialogrutan och klicka på " Kör ".
10
Ange namnet på din fil ( myhugedocument.txt , till exempel ) i dialogrutan som visas . Excel kommer att importera data , dela upp det i flera kalkylblad i syfte att kringgå Excel linje gräns .
