1
Haga clic en " Herramientas ", selecciona " Macro " y seleccione " Macros ".
2
Escriba un nombre para la macro en el campo " Nombre " , tales como " LargeFileImport ", y haga clic en " Crear". El Editor de Visual Basic se abrirá automáticamente.
3
Double -click " ( Name) del módulo" en la ventana de "Propiedades " y tipo " LargeFileModule . "
4 < p> Haga clic en el icono " +" al lado de " Microsoft Office Excel Objects. "
5
doble clic en " LargeFileModule " para abrir la ventana "Código" .
6
Copie y pegue el siguiente en la ventana "Código" :
Sub LargeFileImport ()
' Dimension variables
ResultStr Dim As String Dim NombreArchivo
As String
FileNum Dim As Integer
Contador Dim As Double
' Preguntar por nombre
el nombre de archivo del archivo = InputBox ("Escriba el archivo de texto nombre, por ejemplo test.txt " ' Comprobar si hay una entrada
Si filename = " Entonces End of
)
" ' Obtener disponible siguiente archivo Handle Número
< p > FileNum = FreeFile ()
' archivo de texto abierto para entrada
NombreArchivo abierto para entrada como # FileNum
' pantalla Turn Off Actualización
aplicación . ScreenUpdating = False
'Crear un nuevo libro con una hoja de cálculo en él
plantilla Workbooks.Add : = xlWorksheet
' poner el contador a 1
Contador = 1
' Loop hasta el final del archivo se alcanza
Do While Seek ( FileNum ) < = LOF ( FileNum )
' Display Importación Número Fila En estado Bar &
Application.StatusBar = " Importar Row" & _
contador & " del archivo de texto " & Archivo
' tienda una línea de texto de un archivo a variable
entrada de línea # FileNum , ResultStr
' Tienda de datos variables en activo celular
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 65536-16384
Si ActiveCell.Row = 65536 Después
' Si en la ú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 1
contador = contador + 1
' empezar de nuevo en Top Of ' Do While ' Declaración
Loop
' Cierra el archivo de texto abierto
Close to
"Eliminar mensaje del Estado Bar &
Application.StatusBar = False End Sub
7
Haga clic en" archivo " y seleccione " Cerrar " para cerrar el Editor de Visual Basic .
8
Haga clic en " Herramientas ", selecciona " Macro " y seleccione " Macros ".
9
Seleccione la opción " LargeFileImport "macro de la" macros " cuadro de diálogo y haga clic en" Ejecutar ".
10
Introduzca el nombre del archivo ( myhugedocument.txt , por ejemplo ) en el cuadro de diálogo que aparece. Excel importará los datos , dividiéndolo en varias hojas de cálculo con el fin de eludir la línea límite de Excel.