Los archivos de texto mayores que 65.536 filas no pueden importarse a Excel 97, Excel 2000, Excel 2002 y Excel 2003

Seleccione idioma Seleccione idioma
Id. de artículo: 120596 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

Resumen

En Microsoft Excel 97 para Windows, Microsoft Excel 2000, Microsoft Excel 2002 y Microsoft Office Excel 2003, los archivos de texto que contienen más de 65.536 filas no se puede abrir en su totalidad. No puede abrir estos archivos porque estas versiones de Microsoft Excel están limitadas a 65.536 filas. Si abre un archivo que contiene más datos que esto, el archivo de texto se trunca en la fila 65.536 y recibir el siguiente mensaje de error:
El archivo no está totalmente cargado.
Sin embargo, puede utilizar una macro para abrir el archivo y divida automáticamente el texto en varias hojas de cálculo

notas

Versiones anteriores a Excel 97 tienen un límite de 16.384 filas.

Las versiones posteriores a Excel 2003 tienen un límite de 1.048.576 filas.

Más información

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. Este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y con las herramientas que se utilizan para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento. Sin embargo, no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos que cumplan sus requisitos específicos. La siguiente macro de ejemplo le solicitará un nombre de archivo de texto y a continuación, abre el archivo en la memoria. Si el número de filas es mayor que el límite de hoja de cálculo de Excel de 65.536, la macro divide el archivo en varias hojas de cálculo. Esta macro se aplica sólo a los archivos guardados como archivos de texto y no se aplica a otros formatos de archivo. La macro no funciona con formatos de archivo de base de datos.

Tenga en cuenta que como se trata de una macro, usando puede ser considerablemente más lenta que haciendo clic en Abrir en el menú archivo .
   '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 la macro no analiza los datos en columnas. Después de utilizar la macro, también deberá utilizar el comando de Columnas de texto en el menú datos para analizar los datos según sea necesario. Cuando ejecuta esta macro en un equipo Macintosh y está intentando abrir un archivo que está en el escritorio, debe ir el nombre de archivo con el siguiente
Hard diskCarpeta: escritorio:
en el Hard disk es el nombre de su disco duro. Observe que hay un espacio entre las palabras de escritorio y carpeta.

Propiedades

Id. de artículo: 120596 - Última revisión: lunes, 7 de mayo de 2007 - Versión: 4.2
La información de este artículo se refiere a:
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Office Excel 2003
  • Microsoft Office Excel 2007
Palabras clave: 
kbmt kbimport kbhowto kbcode KB120596 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 120596

Enviar comentarios

 

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