Momentálne ste offline a čaká sa, kým sa znova pripojíte na internet

Textové súbory, ktoré sú väčšie ako 65 536 riadkov sa nedajú importovať do programu Excel 97, program Excel 2000, Excel 2002 a Excel 2003

DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.

Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:120596
SUHRN
V programe Microsoft Excel 97 pre Windows, program Microsoft Excel 2000, Microsoft Excel 2002 a Microsoft Office Excel 2003,textové súbory, ktoré obsahujú viac ako 65 536 riadkov sa nedá otvoriť v ichcelistvosti. Tieto súbory nie je možné otvoriť, pretože tieto verzie programuProgram Microsoft Excel sa obmedzuje na 65 536 riadkov. Ak otvoríte súbor ktorýobsahuje viac údajov ako táto, textový súbor je skrátený na riadok 65,536 a zobrazí nasledujúce chybové hlásenie:
Súbor sa nepodarilo načítať úplne.
Avšak, môžete použiťmakro otvoriť súbor a automaticky rozdeliť text na viacerýchpracovné hárky

Poznámky

Verziách programu Excel starších ako Excel 97 majú limit 16 384 riadkov.

Verzie programu Excel neskôr než Excel 2003 majú limit 1,048,576 riadkov.
DALSIE INFORMACIE
Spoločnosť Microsoft poskytuje príklady programovacieho kódu len ako názornú ukážku bez ľubovoľnej vyjadrenej alebo implicitnej záruky. Toto zahŕňa, okrem iného, implicitné záruky obchodovateľnosti a vhodnosti pre konkrétny účel. Úroveň odbornosti článku predpokladá, že ovládate predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci oddelenia technickej podpory spoločnosti Microsoft vám môžu objasniť funkciu určitej konkrétnej procedúry. Publikované príklady však neupravia, aby zaistili požadovanú pridanú funkčnosť alebo pridali ďalšie konštrukčné procedúry zohľadňujúce vaše konkrétne požiadavky. Nasledovné makro vzorky zobrazí výzvu na zadanie textu názov súboru a potom otvorísúbor do pamäte. Ak počet riadkov je väčšia ako programu Excelhárok limitu z 65,536, makro prestávky súbor do viacerýchpracovné hárky. Toto makro sa vzťahuje len na súbory uložené ako textové súbory anevzťahuje sa do iných formátov súborov. Makro nefunguje sdatabázu formáty súborov.

Poznámka, že pretože je makro, pomocou to môže byť podstatne pomalšíako kliknutím na Otvorené na Súbor ponuka.
   'All lines that begin with an apostrophe (') are remarks and are not   'required for the macro to run.				
   Sub LargeFileImport()      'Dimension Variables      Dim ResultStr As String      Dim FileName As String      Dim FileNum As Integer      Dim Counter As Double      'Ask User for File's Name      FileName = InputBox("Please enter the Text File's name, e.g. test.txt")      'Check for no entry      If FileName = "" Then End      'Get Next Available File Handle Number      FileNum = FreeFile()      'Open Text File For Input      Open FileName For Input As #FileNum      'Turn Screen Updating Off      Application.ScreenUpdating = False      'Create A New WorkBook With One Worksheet In It      Workbooks.Add template:=xlWorksheet      'Set The Counter to 1      Counter = 1      'Loop Until the End Of File Is Reached      Do While Seek(FileNum) <= LOF(FileNum)         'Display Importing Row Number On Status Bar          Application.StatusBar = "Importing Row " & _             Counter & " of text file " & FileName          'Store One Line Of Text From File To Variable          Line Input #FileNum, ResultStr          'Store Variable Data Into Active Cell          If Left(ResultStr, 1) = "=" Then             ActiveCell.Value = "'" & ResultStr          Else             ActiveCell.Value = ResultStr          End If                    'For Excel versions before Excel 97, change 65536 to 16384          If ActiveCell.Row = 65536 Then             'If On The Last Row Then Add A New Sheet             ActiveWorkbook.Sheets.Add          Else             'If Not The Last Row Then Go One Cell Down             ActiveCell.Offset(1, 0).Select          End If          'Increment the Counter By 1          Counter = Counter + 1      'Start Again At Top Of 'Do While' Statement      Loop      'Close The Open Text File      Close      'Remove Message From Status Bar      Application.StatusBar = False   End Sub				
Poznámka: Makro neanalyzuje údaje do stĺpcov. Po použitímakro, môže tiež musíte použiť Text na stĺpce príkaz naÚdaje ponuky analyzovať údaje podľa potreby.Keď toto makro spustiť na počítači Macintosh, a ktorý sa pokúšate otvoriťže je súbor na pracovnej ploche, musí predchádzať názov súboru snasledujúce
Pevný disk: Priečinok pracovnej plochy:
kde Pevný disk je názov disku. Všimnite si, že existujemedzery medzi slová Desktop a priečinok.
97 8.00 5.00a 5.00 c dovozné ascii xl97 xl7 xl5 XL XL2007 Excel2007
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Upozornenie: Tento článok bol preložený automaticky.

Vlastnosti

ID článku: 120596 – Posledná kontrola: 10/10/2011 12:43:00 – Revízia: 2.0

Microsoft Excel 97 Standard Edition, Microsoft Excel 2000 Standard Edition, Microsoft Excel 2002 Standard Edition, Microsoft Office Excel 2007

  • kbimport kbhowto kbcode kbmt KB120596 KbMtsk
Pripomienky