No Microsoft Excel 2003 , você pode receber o "Arquivo não carregado completamente " erro ao tentar abrir um arquivo de dados de grande porte. Isso ocorre se o arquivo de dados contém muitas linhas. Por padrão, o Excel 2003 só é capaz de importar planilhas contendo 65.536 linhas . No entanto , a Microsoft desenvolveu um modelo macro que rompe-se grandes conjuntos de dados em várias planilhas , permitindo aos usuários importar dados que poderiam exceder limite de linhas do Excel. Instruções
1
Clique em " Ferramentas ", selecione " Macro " e escolha " Macros ".
2
Digite um nome para a macro no campo "Nome" , como como " LargeFileImport " e clique em " Criar". O Editor do Visual Basic irá abrir automaticamente.
3
Clique duas vezes "(Nome) Module" na janela "Propriedades" e digite " LargeFileModule ".
4
Clique no ícone "+" ao lado de " Objetos do Microsoft Office Excel . "
5
duplo clique em " LargeFileModule " para abrir a janela "Código" .
6
Copie e cole o seguinte no "Código" janela :
Sub LargeFileImport ()
'Dimension variables
Dim ResultStr as String
Dim FileName as String Dim
FileNum as Integer
Dim Contador as Double
"Pergunte para usuário de File Name
FileName = InputBox ( " Por favor insira o arquivo de texto nome, 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 para Input As # FileNum
' virar tela Atualizando Off
Aplicação . ScreenUpdating = False
'Criar um novo livro com uma planilha nele
modelo Workbooks.Add : = xlWorksheet
' Set The Counter 1
Contador = 1
'Loop até o final do arquivo é alcançado
do While Seek ( FileNum ) <= LOF ( FileNum )
' Mostrar Importando fileiras Número no Estado bar
Application.StatusBar = " Importar Row" & _
Contador & " de arquivo de texto " & FileName
' loja uma linha de texto do arquivo para variável < br > entrada de Linha
# 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 65536-16384
Se ActiveCell.Row = 65536 Então
"Se na última linha seguida adicionar uma nova folha
ActiveWorkbook.Sheets.Add
Else < br >
' If Not The Last Row Então Vá uma célula para baixo
ActiveCell.Offset (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 o arquivo de texto Abrir < br > Feche
'Remover Mensagem do Estado Bar
Application.StatusBar = False End Sub
7
Clique em "Arquivo " e selecione " close" para fechar o Editor do Visual Basic.
8
Clique em " Ferramentas ", selecione " Macro " e escolha " Macros ".
9
Selecione a opção " LargeFileImport " macro do " Macros " caixa de diálogo e clique em" Executar ".
10
Digite o nome do seu arquivo ( myhugedocument.txt , por exemplo) na caixa de diálogo que aparece. Excel irá importar os dados, dividindo-o em várias folhas de cálculo , a fim de contornar a linha do limite do Excel.
