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

Preklady článku Preklady článku
ID článku: 120596 - Zobraziť produkty, ktorých sa tento článok týka.
Rozbaliť všetko | Zbaliť všetko

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 ich celistvosti. Tieto súbory nie je možné otvoriť, pretože tieto verzie programu Program 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ých pracovné 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 Excel hárok limitu z 65,536, makro prestávky súbor do viacerých pracovné hárky. Toto makro sa vzťahuje len na súbory uložené ako textové súbory a nevzťahuje sa do iných formátov súborov. Makro nefunguje s databá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 s nasledujúce
Pevný disk: Priečinok pracovnej plochy:
kde Pevný disk je názov disku. Všimnite si, že existuje medzery medzi slová Desktop a priečinok.
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.

Vlastnosti

ID článku: 120596 - Posledná kontrola: 10. októbra 2011 - Revízia: 2.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Office Excel 2007
Kľúčové slová: 
kbimport kbhowto kbcode kbmt KB120596 KbMtsk
Strojovo preložené
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

Odošlite odozvu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com