Conoscenza Informatica

Home Hardware Networking Programmazione Software Domanda Sistemi

* Conoscenza Informatica >> software >> Microsoft Access >> .

Come importare più di 65.536 righe in Excel 2003

In Microsoft Excel 2003 , è possibile ricevere il "File non caricato completamente " errore quando si tenta di aprire un file di grandi dimensioni di dati . Ciò si verifica se il file di dati contiene troppe righe . Per impostazione predefinita , Excel 2003 è solo in grado di importare fogli di calcolo contenenti 65.536 righe . Tuttavia, Microsoft ha messo a punto un modello di macro che si rompe grandi insiemi di dati in più fogli di lavoro , che consente agli utenti di importare i dati che altrimenti sarebbero superare limite di righe di Excel . Istruzioni
1

Clicca su "Strumenti ", selezionare " Macro " e scegliere " Macro ".
2

Digitare un nome per la macro nel campo "Nome" , come ad come " LargeFileImport , " e fare clic su "Crea ". Il Visual Basic Editor si aprirà automaticamente.
3

doppio clic su " (nome ) del modulo " nella finestra "Proprietà" e di tipo " LargeFileModule . "
4 <
6

Fare clic sull'icona " + " accanto a " Microsoft Office Excel Objects . "
5

doppio clic su " LargeFileModule " per aprire la finestra "Codice" . > Copia e incolla il seguente nella finestra "Codice" :

Sub LargeFileImport ( ) per

' Dimension Variabili

Dim ResultStr As String

Dim FileName As String Dim

FileNum As Integer

Dim Contatore As Double

' Chiedi utente per Nome

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

'Controlla alcuna voce

Se filename = " "Then End

' Get Avanti Disponibile File Number Maniglia

FileNum = FreeFile ( ) per

'Apri file di testo di input

Apri nome del file per input come # FileNum

' accende schermata Aggiornamento Off

Application . ScreenUpdating = False

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

modello Workbooks.Add : = xlWorksheet

' regolare il contatore a 1

contatore = 1

' loop fino alla fine del file viene raggiunta

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

' Display Importazione Numero fila Su di stato bar

Application.StatusBar = " Importazione Row " & _

Contatore & " del file di testo " & FileName

' Conservare una riga di testo da file a variabile

Linea di ingresso # FileNum , ResultStr

' Conservare i dati variabili nelle attività cellulare

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

Se ActiveCell.Row = 65536 Poi

' Se sull'ultima fila 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

' iniziare di nuovo in cima alla ' Do While ' Dichiarazione

loop

' chiudere il file di testo Apri

Chiudi

' Elimina Messaggio Da barra

Application.StatusBar = False

End Sub
7

Fare clic su " File " e selezionare " Chiudi" per chiudere l'editor di Visual Basic.
8

Clicca su "Strumenti ", selezionare " Macro " e scegliere " Macro ".
9

Selezionare " LargeFileImport " macro dalla " macro " finestra di dialogo e fare clic su " Esegui ".
10

Immettere il nome del file ( myhugedocument.txt , per esempio) nella finestra di dialogo che appare. Excel consente di importare i dati , dividendolo in più fogli di lavoro al fine di aggirare limite linea di Excel .