Al momento sei offline in attesa che la connessione Internet venga ristabilita

I file di testo maggiori di 65.536 righe non possono essere importati in Excel 97, Excel 2000, Excel 2002 ed Excel 2003

Il presente articolo è stato tradotto tramite il software di traduzione automatica di Microsoft e non da una persona. Microsoft offre sia articoli tradotti da persone fisiche sia articoli tradotti automaticamente da un software, in modo da rendere disponibili tutti gli articoli presenti nella nostra Knowledge Base nella lingua madre dell’utente. Tuttavia, un articolo tradotto in modo automatico non è sempre perfetto. Potrebbe contenere errori di sintassi, di grammatica o di utilizzo dei vocaboli, più o meno allo stesso modo di come una persona straniera potrebbe commettere degli errori parlando una lingua che non è la sua. Microsoft non è responsabile di alcuna imprecisione, errore o danno cagionato da qualsiasi traduzione non corretta dei contenuti o dell’utilizzo degli stessi fatto dai propri clienti. Microsoft, inoltre, aggiorna frequentemente il software di traduzione automatica.

Clicca qui per visualizzare la versione originale in inglese dell’articolo: 120596
Sommario
In Microsoft Excel 97 per Windows, Microsoft Excel 2000, Microsoft Excel 2002 e Microsoft Office Excel 2003, è Impossibile aprire file di testo contenenti più di 65.536 righe nella loro interezza. Non è possibile aprire questi file poiché queste versioni di Microsoft Excel sono limitate a 65.536 righe. Se si apre un file che contiene più dati di più, il file di testo viene troncato in corrispondenza della riga 65.536 ed è visualizzato il seguente messaggio di errore:
File non caricato completamente.
Tuttavia, è possibile utilizzare una macro per aprire il file e separa automaticamente il testo in più fogli di lavoro

note

Versioni di Excel precedenti a Excel 97 esiste un limite di 16.384 righe.

Le versioni di Excel successive a Excel 2003 esiste un limite di 1.048.576 righe.
Informazioni
Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia espressa o implicita. Questo include, ma non è limitato a, le garanzie implicite di commerciabilità o idoneità per uno scopo specifico. Questo articolo si presuppone che conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug di procedure. Tecnici del supporto Microsoft possono spiegare la funzionalità di una particolare procedura. Tuttavia, non modificherà questi esempi per fornire funzionalità aggiuntive o creare procedure per soddisfare specifiche esigenze. La macro di esempio riportata di seguito richiede di specificare un nome di file di testo e quindi apre il file in memoria. Se il numero di righe è supera al limite del foglio di lavoro di Excel di 65.536, la macro suddivide il file in più fogli di lavoro. Questa macro si applica solo ai file salvati come file di testo e non si applica a qualsiasi altro formato di file. La macro non funziona con i formati di file di database.

Si noti che poiché si tratta di una macro, utilizzarlo può essere notevolmente inferiore scegliere Apri dal menu file .
   'All lines that begin with an apostrophe (') are remarks and are not   'required for the macro to run.				
   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				
Nota la macro non analizza i dati in colonne. Dopo aver utilizzato la macro, sarà inoltre necessario utilizzare il comando di Testo in colonne dal menu dati per analizzare i dati in base alle esigenze. Quando si esegue questa macro in un computer Macintosh e si sta tentando di aprire un file sul desktop, è necessario fare precedere al nome del file con quanto riportato di seguito
Hard diskCartella: desktop:
in cui il Hard disk è il nome del disco rigido. Si noti che non vi è uno spazio tra le parole desktop e cartella.
97 8.00 5.00a 5.00 importazione c ascii xl97 xl7 xl5 XL XL2007 Excel2007

Avviso: questo articolo è stato tradotto automaticamente

Proprietà

ID articolo: 120596 - Ultima revisione: 05/07/2007 20:43:09 - Revisione: 4.2

Microsoft Excel 97 Standard Edition, Microsoft Excel 2000 Standard Edition, Microsoft Excel 2002 Standard Edition, Microsoft Office Excel 2003, Microsoft Office Excel 2007

  • kbmt kbimport kbhowto kbcode KB120596 KbMtit
Feedback
hild(m);