Gli utenti frequenti di Excel sono abituati a entrare regolarmente e manipolare grandi quantità di dati . Infatti, la capacità di Excel per gestire grandi quantità di dati è responsabile in gran parte per la sua popolarità tra gli utenti domestici sia per affari e simili . Con questi fatti in mente , è sorprendente Excel lotta per aprire file di grandi dimensioni con più di 65.536 righe . Fortunatamente, una correzione al problema esiste nella forma di una macro fornito da Microsoft . Istruzioni
1

avvio di Excel , e navigare nel menu "Strumenti".
2

scegliere il sottomenu " macro " , e selezionare l'editor di Visual Basic .

3

Scegliere " modulo" dal menu Inserisci
4

Copia e incolla il seguente testo : .

Sub LargeFileImport ( ) per < p > 'Dimension variables

Dim ResultStr As String

Dim FileName As String Dim

FileNum As Integer

Dim Contatore As Double
< p > ' Chiedi utente per nome

FileName del File = InputBox ( "Inserire il nome del file di testo , ad esempio test.txt" ) per

' Controlla alcuna voce

FileName = "" Then End

'Get Avanti Disponibile File Handle Numero

FileNum = FreeFile ( ) per

' Apri file di testo per l'immissione

Apri nome di file per Input As # FileNum

' accende schermata Aggiornamento Off

Application.ScreenUpdating = False

"Crea nuova cartella di lavoro con un foglio di lavoro in IT

cartelle di lavoro . Aggiungi template: = xlWorksheet

' regolare il contatore a 1

Contatore = 1

' Ciclo fino alla fine del file viene raggiunta

Do While Seek ( FileNum ) < = LOF ( FileNum ) per

'Display Importazione Numero fila Su barra

Application.StatusBar = "Riga importazione" & _

Contatore & "del file di testo " & FileName

' Conservare una riga di testo da file per variabile

Linea Input # FileNum , ResultStr

' Conservare i dati variabili nelle cella attiva

Se sinistra ( ResultStr , 1 ) = " = " Allora

ActiveCell.Value = "' " & ResultStr

Else

ActiveCell.Value = ResultStr

End If

' Per le versioni di Excel prima di Excel 97 , cambia 65.536-16.384

ActiveCell.Row = 65536 Poi

' se da Ultimo Row quindi aggiungere un nuovo foglio

ActiveWorkbook.Sheets.Add

Else

'se non l'ultima fila quindi andare basso di una cella

ActiveCell . Offset ( 1 , 0 ) . Selezionare

End If

' Incrementa il contatore di 1

contatore = contatore + 1

' ricominciare Top di ' fare mentre ' Dichiarazione

loop

' chiudere la Open Text File

Chiudi

' Rimuovi Message From barra

Application.StatusBar = False

End Sub

5 Premere il tasto F5 per eseguire la macro .