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.
