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à con affari e gli utenti domestici 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 un macro fornito da Microsoft.

istruzione

1 Avviare Excel e passare al 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 ()

'Dimension Variables

Dim ResultStr As String

Dim FileName As String

Dim filenum As Integer

Dim contatore come doppio

'Chiedi dell'utente per il nome del file

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

'Verificare la presenza di alcuna voce

Se filename = "" Allora End

'Get successivo numero di handle di file

Filenum = FreeFile ()

'File Open Text per ingresso

Apri Nome file in lettura in #FileNum

'Girare Aggiornare Schermo Off

Application.ScreenUpdating = False

'Crea una nuova cartella con un foglio di lavoro In Esso

modello Workbooks.Add: = xlWorksheet

'Regolare il contatore a 1

Contatore = 1

'Loop fino alla fine del file viene Raggiunto

Non Mentre Seek (filenum) & lt; = LOF (filenum)

'Display Importazione Numero Riga Sulla barra di stato

Application.StatusBar = "Importazione Row" & amp; _

Contatore & amp; "Di file di testo" & amp; Nome del file

'Conservare una riga di testo da file a variabile

Line Input #FileNum, ResultStr

'archivio dati variabile in cella attiva

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

ActiveCell.Value = " '" & amp; ResultStr

Altro

ActiveCell.Value = ResultStr

Finisci se

'Per le versioni di Excel precedenti di Excel 97, cambiare 65.536-16.384

Se ActiveCell.Row = 65536 Poi

'Se sull'ultima fila Poi aggiungere un nuovo foglio

ActiveWorkbook.Sheets.Add

Altro

'Se non l'ultima riga poi andare una cella di Down

ActiveCell.Offset (1, 0) .Select

Finisci se

'Incrementare il contatore da 1

Contatore = contatore + 1

'Start Again in cima alla' Do While 'Statement

Ciclo continuo

'Chiudere Open file di testo

Vicino

'Rimuovere Message From Barra di stato

Application.StatusBar = False

End Sub

5 Premere il tasto F5 per eseguire la macro.