Arquivos de texto maiores do que 65.536 linhas não podem ser importados para o Excel 97, Excel 2000, Excel 2002 e Excel 2003

Traduções deste artigo Traduções deste artigo
ID do artigo: 120596 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Sumário

No Microsoft Excel 97 para Windows, Microsoft Excel 2000, Microsoft Excel 2002 e Microsoft Office Excel 2003, os arquivos de texto que contêm mais de 65.536 linhas não podem ser abertos em sua totalidade. Você não pode abrir esses arquivos porque essas versões do Microsoft Excel estão limitadas a 65.536 linhas. Se você abrir um arquivo que contém mais dados que isso, o arquivo de texto será truncado na linha 65,536 e você receber a seguinte mensagem de erro:
Arquivo não carregado completamente.
No entanto, você pode usar uma macro para abrir o arquivo e quebrar automaticamente o texto em várias planilhas

anotações

Versões do Excel anteriores ao Excel 97 têm um limite de 16.384 linhas.

As versões posteriores do Excel que o Excel 2003 têm um limite de 1.048.576 linhas.

Mais Informações

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades. A macro de exemplo a seguir solicita um nome de arquivo de texto e, em seguida, abre o arquivo na memória. Se o número de linhas for maior do que o limite de planilha do Excel de 65.536, a macro divide o arquivo em várias planilhas. Essa macro se aplica somente a arquivos salvos como arquivos de texto e não se aplica a outros formatos de arquivo. A macro não funciona com formatos de arquivo de banco de dados.

Observe que como esta é uma macro, usá-lo pode ser significativamente mais lento do que clicando em Abrir no menu arquivo .
   '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
				
Observação A macro não analisa os dados em colunas. Depois de usar a macro, talvez também seja necessário usar o comando Texto para colunas no menu dados para analisar os dados conforme necessário. Quando você executa esta macro em um Macintosh, e você está tentando abrir um arquivo que está na área de trabalho, você deve preceder o nome de arquivo com o seguinte
Hard diskPasta: desktop:
onde o Hard disk é o nome do seu disco rígido. Observe que há um espaço entre as palavras a área de trabalho e pasta.

Propriedades

ID do artigo: 120596 - Última revisão: segunda-feira, 7 de maio de 2007 - Revisão: 4.2
A informação contida neste artigo aplica-se a:
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Office Excel 2003
  • Microsoft Office Excel 2007
Palavras-chave: 
kbmt kbimport kbhowto kbcode KB120596 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 120596

Submeter comentários

 

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