Ako otvoriť veľké súbory v programe Excel 2003

Časté používatelia programu Excel sú zvyknutí na pravidelné vstupe a manipuláciu s veľkými objemami dát . V skutočnosti , schopnosť aplikácie Excel pre spracovanie veľkých objemov dát je z veľkej časti zodpovedné za svoje popularite s podnikmi aj domácich užívateľov . S týmito faktami na mysli , je prekvapujúce , Excel sa snaží otvoriť veľké súbory s viac ako 65536 riadkov . Našťastie , oprava na problém existuje vo forme makra poskytované spoločnosťou Microsoft . Návod dovolená 1

spustení programu Excel , a prejdite do menu " Nástroje " .
2

Vyberte submenu " makro " , a vyberte editore jazyka Visual Basic .

3

zvoľte " modul " z menu Vložiť
4

skopírujte a vložte nasledujúci text : .

Sub LargeFileImport ( )

' Rozmery Premenné

Dim ResultStr As String

Dim názov súboru , ako String

Dim STRANA As Integer

Dim Counter ako Double

"Opýtajte sa užívateľa na súbor , meno

fileName = InputBox ( " Zadajte názov textového súboru je napr test.txt " )

" Skontrolujte , či zákaz vstupu

Keď filename = " " Tak End

" Get Next dispozícii popisovač súboru Počet

STRANA = FreeFile ( )

" Open Text File Pre vstup

Otvoriť FileName vstupné ako # STRANA

" Turn Off Screen Aktualizácia

Application.ScreenUpdating = False

" vytvorte nový zošit s jedného listu v tom

zošitov . Pridať šablóny : = xlWorksheet

" počítadlo 1

Counter = 1

" Loop až do konca súboru je dosiahnuté

robiť , keď Seek ( STRANA ) < = LOF ( STRANA )

" Zobraziť Import Číslo riadka V stavovom riadku

Application.StatusBar = " Import riadok " & _

Counter & " textového súboru " & FileName

" Obchod jeden riadok textu zo súboru do premennej

Linkový vstup # STRANA , ResultStr

" Uloženie premenných dát do aktívnej bunky

Ak Ľavá ( ResultStr , 1 ) = " = " Potom

ActiveCell.Value = " ' " & ResultStr

Else

ActiveCell.Value = ResultStr

End If

" Pre verzie programu Excel do programu Excel 97 , zmeňte 65536-16384

Ak ActiveCell.Row = 65536 Potom

" Ak je na posledný riadok potom Pridať nový list

ActiveWorkbook.Sheets.Add

Else

" Keď nie v poslednom rade potom ísť o jednu bunku nadol

ActiveCell . offset ( 1 , 0 ) . Vyberte

End If

" Zvýšiť čítač o 1

Counter = Counter + 1

Start Again Na začiatok z ' robiť , keď " Vyhlásenie

Loop

" Zavrite The Open Text File

Zatvorte

" Odstrániť správu zo Status Bar

Application.StatusBar = False

End Sub
5

Stlačením klávesu F5 spustiť makro .

• Predchádzajúca strana: Ako kombinovať Obsah dvoma radmi buniek v programe Excel 2007 
• Ďalšia strana: Ako nastavím, aby knihu Ledger šablónu v programe Excel for Mac ?