Cómo abrir archivos de gran tamaño en Excel 2003

Los usuarios frecuentes de Excel están acostumbrados a entrar y manipular regularmente grandes cantidades de datos. De hecho , la capacidad de Excel para manejar grandes cantidades de datos es responsable en gran parte de su popularidad entre los usuarios domésticos y de negocios por igual. Con estos hechos en mente , es sorprendente Excel lucha para abrir archivos de gran tamaño con más de 65.536 filas. Afortunadamente , una solución para el problema existe en la forma de una macro proporcionada por Microsoft . Instrucciones
1

lanzamiento de Excel , y vaya al menú " herramientas " .
2

Elija el submenú "macro " y seleccione el editor de Visual Basic .

3

Elija "módulo" en el menú Insertar
4

Copia y pega el siguiente texto : .

Sub LargeFileImport ()
< p > ' Dimension variables

ResultStr dévil como secuencia

NombreArchivo As String Dim

FileNum Dim As Integer

Contador Dim As Double
< p > ' Preguntar por nombre

el nombre de archivo del archivo = InputBox ("Escriba el nombre del archivo de texto , por ejemplo test.txt " )

' Check for ninguna entrada

Si nombre_archivo = "" Then End of

'Obtener disponible siguiente archivo Handle Número

FileNum = FreeFile ()

' archivo de texto abierto para entrada

NombreArchivo abierto para entrada como # FileNum

' pantalla Turn Off Actualización

Application.ScreenUpdating = False

' Crear un nuevo libro con una hoja de cálculo en ella

libros . Añadir plantilla: = xlWorksheet

' poner el contador a 1

Contador = 1

' Loop hasta el final del archivo se alcanza

Do While Buscar ( FileNum ) < = LOF ( FileNum )

'Display Importación Número Fila En Status Bar &

Application.StatusBar = " Importar Row " & _

Contador y " archivo de texto" & Archivo

' tienda una línea de texto de un archivo a variable

entrada de línea # FileNum , ResultStr

' Almacén de datos variables en la celda activa

Si izquierda ( ResultStr , 1 ) = " =" Entonces

ActiveCell.Value = " " "& ResultStr

demás

ActiveCell.Value = ResultStr

End If

' Para las versiones de Excel antes de Excel 97 , cambie 65.536-16.384

Si ActiveCell.Row = 65536 Después

' si por el Última Fila Luego agregar una hoja nueva

ActiveWorkbook.Sheets.Add

demás

' Si no la última fila y luego ir una celda abajo

ActiveCell . Offset ( 1 , 0). Seleccione

End If

'Incrementa el contador en 1

contador = contador + 1

' empezar de nuevo en Top De ' Do While ' Declaración

Loop

' cerrar el actual texto del archivo

Close to

' Eliminar Mensaje De Estado Bar &

Application.StatusBar = False End Sub

5

Presione la tecla F5 para ejecutar la macro.