Reparar uma pasta de trabalho corrompida

Recuperar dados quando uma pasta de trabalho estiver aberta no Excel

• Reverta a pasta de trabalho para a última versão salva    Se você estiver editando uma pasta de trabalho e ela se tornar corrompida antes que as alterações sejam salvas, poderá recuperar a pasta de trabalho original revertendo-a para a última versão salva:

  1. Clique em Arquivo e Abrir.

  2. Clique duas vezes no nome da pasta de trabalho aberta no Excel.

  3. Clique em Sim para reabrir a pasta de trabalho.

     A pasta de trabalho é aberta sem as alterações realizadas que podem ter causado a corrupção da pasta de trabalho.

Recuperar dados quando você não puder abrir a pasta de trabalho no Excel

• Defina a opção de cálculo no Excel como manual    Tente alterar a configuração de cálculo de automática para manual. Como a pasta de trabalho não será recalculada, talvez ela seja aberta.

  1. Clique em ArquivoNovo.

  2. Em Novo, clique em Pasta de trabalho em branco.

  3. Clique em Arquivo e Opções.

  4. Na categoria Fórmulas , clique em Opções de Cálculo, selecione Manual e clique em OK.

  5. Clique em Arquivo e Abrir.

  6. Localize e clique duas vezes na pasta de trabalho corrompida para abrí-la.

• Use referências externas para se vincular à pasta de trabalho corrompida.    Para recuperar somente os dados e não as fórmulas ou os valores calculados da pasta de trabalho, tente usar referências externas para vincular à pasta de trabalho corrompida.

  1. Clique em Arquivo e Abrir.

  2. Acesse a pasta que contém a pasta de trabalho corrompida.

  3. Clique com o botão direito do mouse no nome do arquivo da pasta de trabalho corrompida, clique em Copiar e, em seguida, em Cancelar.

  4. Clique em Arquivo e Novo.

  5. Em Novo, clique em Pasta de trabalho em branco.

  6. Na célula A1 da nova pasta de trabalho, digite =Nome do Arquivo!A1, onde o Nome do Arquivo é o nome da pasta de trabalho corrompida que você copiou na etapa 3 e pressione Enter.

     Observação:  Você precisa apenas inserir o nome da pasta de trabalho—não é necessário digitar a extensão do nome do arquivo.

  7. Se a caixa de diálogo Atualizar Valores for exibida, selecione a pasta de trabalho corrompida e clique em OK.

  8. Se a caixa de diálogo Selecionar Planilha for exibida, selecione a planilha adequada e clique em OK.

  9. Selecione a célula A1.

  10. Clique em Página Inicial e Copiar ou pressione Ctrl+C.

  11. Selecione uma área, iniciando na célula A1, aproximadamente do mesmo tamanho que o intervalo de células que contém os dados da pasta de trabalho corrompida.

  12. Clique em Página Inicial e Colar ou pressione Ctrl+V.

  13. Com o intervalo de células ainda selecionado, clique em Página Inicial e Copiar novamente ou pressione Ctrl+C.

  14. Clique em Página Inicial e na seta ao lado de Colar e em Colar Valores, clique em Valores.

      A colagem de valores remove os vínculos para a pasta de trabalho corrompida e deixa somente os dados.

• Use uma macro para extrair dados de uma pasta de trabalho corrompida.    Se o gráfico estiver vinculado à pasta de trabalho corrompida, tente usar um macro para extrair os dados de origem do gráfico.

  1. Copie o seguinte código de macro e cole-o em uma planilha de módulo:

     Sub GetChartValues()

     Dim NumberOfRows As Integer

     Dim X As Object

     Counter = 2

     ' Calcular o número de linhas de dados.

     NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values)

     Worksheets("ChartData").Cells(1, 1) = "X Values"

     ' Escrever os valores do eixo x na planilha.

     With Worksheets("ChartData")

     .Range(.Cells(2, 1), _

     .Cells(NumberOfRows + 1, 1)) = _

     Application.Transpose(ActiveChart.SeriesCollection(1).XValues)

     End With

     ' Percorrer todas as séries no gráfico e escrever os valores

     ' na planilha.

     For Each X In ActiveChart.SeriesCollection

     Worksheets("ChartData").Cells(1, Counter) = X.Name

     With Worksheets("ChartData")

     .Range(.Cells(2, Counter), _

     .Cells(NumberOfRows + 1, Counter)) = _

     Application.Transpose(X.Values)

     End With

     Counter = Counter + 1

     Next

     End Sub

  2. Insira ou exclua uma planilha na sua pasta de trabalho clicando com o botão direito do mouse na guia da planilha e a renomeie como ChartData.

  3. Selecione o gráfico do qual você deseja extrair os valores dos dados subjacentes.

     Observação: O gráfico pode ser incorporado em uma planilha ou em uma planilha de gráfico separada.

  4. Execute a macro.

  5. Os dados do gráfico são incluídos na planilha ChartData.

Início da página