Mensagem de erro ao executar uma macro Visual Basic for Applications no Excel: "Método 'SaveAs' do objeto '_Worksheet' falhou"

Sintomas

Ao executar uma macro Visual Basic for Applications no Microsoft Excel, você pode receber a seguinte mensagem de erro ou semelhante:

Causa

Esse comportamento pode ocorrer quando ambas as condições a seguir são verdadeiras:

• Você está usando uma Visual Basic for Applications para salvar uma planilha.
  
  -and-

• Você especifica o formato de arquivo como a constante xlWorkbookNormal.

Por exemplo, o código a seguir faz com que esse erro ocorra:

Sub A()
   Dim myNewSheet As Worksheet
   Set myNewSheet = ActiveSheet
   FileNameBin = "c:\ABC"
   myNewSheet.SaveAs Filename:=FileNameBin, FileFormat:=xlWorkbookNormal
End Sub

Solução alternativa

A Microsoft fornece exemplos de programação apenas para fins ilustrativos, sem garantia explícita ou implícita, incluindo, mas sem se limitar a, garantias de comercialização e/ou adequação para uma finalidade específica. Este artigo pressupõe que você conhece a linguagem de programação demonstrada e as ferramentas usadas para criar e depurar os procedimentos. A equipe de suporte da Microsoft pode ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificará estes exemplos para fornecer funcionalidades adicionais ou construir procedimentos a fim de atender às necessidades específicas.
Se você tiver uma experiência de programação limitada, talvez você queira entrar em contato com um Parceiro Certificado da Microsoft ou serviços de consultoria da Microsoft. Para obter mais informações, visite estes sites microsoft:

Microsoft Certified Partners - https://partner.microsoft.com/global/30000104 Microsoft Advisory Services - http://support.microsoft.com/gp/advisoryservice Para obter mais informações sobre as

opções de suporte disponíveis e sobre como entrar em contato com a

Microsoft, visite o seguinte site da Microsoft:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Para resolver esse comportamento, altere a especificação de formato de arquivo da constante xlWorkbookNormal para 1. O código de exemplo funciona normalmente se alterado para:

Sub A()
   Dim myNewSheet As Worksheet
   Set myNewSheet = ActiveSheet
   FileNameBin = "c:\ABC"
   myNewSheet.SaveAs Filename:=FileNameBin, FileFormat:=1
End Sub

OBSERVAÇÃO Mesmo que você está salvando uma planilha, todas as planilhas na pasta de trabalho selecionada são salvas quando o formato de arquivo é definido como xlWorkbookNormal ou 1.

Status

A Microsoft confirmou que esse é um problema que ocorre nos produtos Microsoft listados no início deste artigo.