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

Traduções de Artigos Traduções de Artigos
Artigo: 120596 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Sumário

No Microsoft Excel 97 para Windows, Microsoft Excel 2000, Microsoft Excel 2002 e Microsoft Office Excel 2003, não não possível abrir ficheiros de texto que contêm mais de 65.536 linhas na sua totalidade. Não consegue abrir estes ficheiros porque estas versões do Microsoft Excel estão limitados a 65.536 linhas. Se abrir um ficheiro que contém dados mais do que isso, o ficheiro de texto é truncado na linha 65 536 e recebe a seguinte mensagem de erro:
Ficheiro não carregado completamente.
No entanto, pode utilizar uma macro para abrir o ficheiro e dividir automaticamente o texto em várias folhas de cálculo

notas

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

Versões posteriores do Excel 2003 Excel têm um limite de 1.048.576 linhas.

Mais Informação

A Microsoft fornece exemplos de programação apenas, para fins sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, as garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas que são utilizadas para criar e depurar procedimentos. Os técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador. A macro de exemplo seguinte pede-lhe um nome de ficheiro de texto e, em seguida, abre o ficheiro na memória. Se o número de linhas for maior que o limite de folha de cálculo do Excel de 65.536, a macro divide o ficheiro em várias folhas de cálculo. Esta macro só se aplica a ficheiros guardados como ficheiros de texto e não se aplica a quaisquer outros formatos de ficheiro. A macro não funciona com formatos de ficheiro de base de dados.

Repare que como se trata de uma macro, utilizá-lo pode ser significativamente mais lenta do que clicando em Abrir no menu ficheiro .
   '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
				
Nota A macro não analisa os dados em colunas. Depois de utilizar a macro, pode também terá de utilizar o comando de Texto para colunas no menu dados para analisar os dados conforme necessário. Quando executar esta macro num Macintosh e que está a tentar abrir um ficheiro que está no ambiente de trabalho, tem de preceder o nome do ficheiro com o seguinte
Hard diskPasta: pessoal:
em que o Hard disk é o nome do disco rígido. Tenha em atenção que existe um espaço entre as palavras, o ambiente de trabalho e pastas.

Propriedades

Artigo: 120596 - Última revisão: 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 revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes 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