Ako importovať viac ako 65.536 riadkov v programe Excel 2003

V aplikácii Microsoft Excel 2003 , môže sa zobraziť chyba " Súbor nebol načítaný celý " pri pokuse o otvorenie veľkého dátového súboru . K tomu dochádza v prípade , že dátový súbor obsahuje príliš veľa riadkov . V predvolenom nastavení program Excel 2003 je schopný len import tabuliek obsahujúcich 65536 riadkov . Spoločnosť Microsoft však vyvinula makro šablónu , ktorá rozbije až veľkých dátových súborov do viacerých listov , ktorý umožňuje užívateľom importovať dáta , ktorá by inak prekračovať hranice riadku aplikácie Excel . Návod dovolená 1

Kliknite na " Nástroje " , vyberte " makro " a vyberte " makrá . "
2

Zadajte názov makra v poli " Meno " , ako ako " LargeFileImport , " a kliknite na " Vytvoriť " . Visual Basic Editor sa otvorí automaticky .
3

Dvakrát kliknite " ( name ) modul " v okne " Vlastnosti " a typu " LargeFileModule . "
4

kliknite na ikonu " + " vedľa " Objekty programu Microsoft Office Excel . "
5

Double - kliknite na " LargeFileModule " otvorte okno " CODE " .
6

skopírujte a vložte nasledujúci do okna " Kód " :

Sub LargeFileImport ( )

" Dimension Premenné

Dim ResultStr As String Dim

FileName as String Dim

STRANA as Integer

Dim Counter Ako Double

"Opýtajte sa užívateľ na súbore Meno

FileName = InputBox ( " Zadajte text súboru je názov , napr test.txt " )

" Skontrolujte , či zákaz vstupu

Ak FileName = " " Tak End

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

STRANA = FreeFile ( )

" Open Text File pre vstup

Otvoriť súboru pre vstup ako # STRANA

" Turn Off Screen Aktualizácia klipart

aplikácie . ScreenUpdating = False

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

Workbooks.Add šablóny : = xlWorksheet

" počítadlo 1

counter = 1

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

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

" Zobraziť Import riadok číslo na postavenie bar

Application.StatusBar = " Import riadok " & _

Counter & " z 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 sa na poslednom rade potom pridať nový hárok

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č 1

Counter = Counter + 1

Start Again v hornej časti " robiť , keď " Vyhlásenie

Loop

" Close Open Text < br súbor >

Zavrite

" Odstrániť správu zo Status Bar

Application.StatusBar = false

End Sub
7

Kliknite na " Súbor " a vyberte možnosť " Close " zatvorte Editor jazyka Visual Basic .
8

Kliknite na " Nástroje " , vyberte " makro " a vyberte " makrá . "
9

Vyberte " LargeFileImport " makro od " makrá " v dialógovom okne a kliknite na tlačidlo " Spustiť " .
10

Zadajte názov súboru ( myhugedocument.txt , napríklad) v dialógovom okne , ktoré sa objavia . Excel importovať dáta , rozdeliť ich do niekoľkých listoch s cieľom obísť limity riadku programu Excel .

• Predchádzajúca strana: Ako načítať obrázok do programu Excel na AutoOpen čas pomocou jazyka Visual Basic 
• Ďalšia strana: VBA Excel Školenia