ubiquitour.com

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

Los usuarios frecuentes de Excel están acostumbrados a entrar regularmente y manipular grandes cantidades de datos. De hecho, la capacidad de Excel para manejar grandes cantidades de datos es responsable en gran parte de su popularidad con negocios y usuarios por igual. Con estos hechos en mente, sorprende Excel lucha para abrir archivos de grandes 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 Inicie Excel y navegar por el menú "herramientas".

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

3 Elija "módulo" en el menú Insertar.

4 Copiar y pegar el siguiente texto:

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

5 Presione la tecla F5 para ejecutar la macro.