Os utilizadores frequentes do Excel estão acostumados a entrar e manipular grandes quantidades de dados regularmente. Na verdade , a capacidade do Excel para lidar com grandes quantidades de dados é responsável , em grande parte para a sua popularidade com as duas empresas e usuários domésticos. Com estes fatos em mente , é surpreendente Excel luta para abrir arquivos grandes , com mais de 65.536 linhas . Felizmente , uma solução para o problema de existir sob a forma de uma macro fornecida pela Microsoft . Instruções
1

lançamento Excel, e navegue até o menu " Ferramentas".
2

Escolha a opção " macro " submenu e selecione o editor Visual Basic.

3

Escolha " módulo " do menu insert
4

Copie e cole o seguinte texto: .

Sub LargeFileImport ()

' Variáveis ​​Dimensão

Dim ResultStr As String

Dim FileName As String Dim

FileNum As Integer

Dim Contador As Double

"Pergunte usuário para o nome de arquivo

FileName = InputBox ( " Por favor, insira o nome do arquivo de texto , por exemplo teste.txt " )

'Verificar nenhuma entrada

Se FileName = "" Then End of

' Get Next Disponível Handle do arquivo Número

FileNum = FreeFile ()

' Abrir arquivo de texto para entrada

Aberto nome de arquivo para input As # FileNum

' virar tela Atualizando Off

Application.ScreenUpdating =
Falso

' Criar um novo livro com uma planilha nele

pastas de trabalho . Adicionar modelo : = xlWorksheet

'Set The Counter 1

Contador = 1

' Loop até o final do arquivo é alcançado

do While Buscai ( FileNum ) <= LOF ( FileNum )

'Mostrar Importar número de linha na barra de status

Application.StatusBar = " Importar Row" & _

Contador & "do arquivo de texto " & FileName

' loja uma linha de texto do arquivo para variável

Linha de Entrada # FileNum , ResultStr

" Armazenar dados variáveis ​​nos atividade celular

Se Esquerda ( ResultStr , 1) = "=" Depois

ActiveCell.Value = " '" & ResultStr

Else

ActiveCell.Value = ResultStr

End If

' Para as versões do Excel antes Excel 97 , mude 65.536-16.384

Se ActiveCell.Row = 65536 Então

' If On A Última linha seguida adicionar uma nova folha

ActiveWorkbook.Sheets.Add

Else

' If Not The Last Row Então Vá uma célula para baixo

ActiveCell . Deslocamento (1 , 0). Selecione

End If

' incrementar o contador por 1

contador = contador + 1

' começar de novo em Top Of ' do While ' Declaração

loop

'Fecha The Open Text File

Feche

' Remover Mensagem da barra de status

Application.StatusBar = False End Sub

5

Pressione a tecla F5 para executar a macro.