Você está offline; aguardando reconexão
Entrar

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

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.

120596
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.
97 8.00 5.00a 5,00 importação c ascii xl97 xl7 xl5 XL XL2007 Excel2007

Aviso: Este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 120596 - Última Revisão: 05/07/2007 20:43:09 - Revisão: 4.2

  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Office Excel 2003
  • Microsoft Office Excel 2007
  • kbmt kbimport kbhowto kbcode KB120596 KbMtpt
Comentários