Copiar planilha programaticamente causa o erro de tempo de execu��o 1004 no Excel

ID do artigo: 210684 - Exibir os produtos aos quais esse artigo se aplica.

No Microsoft Excel, voc� executa uma macro que copia planilhas e, em seguida, coloca as planilhas na mesma pasta de trabalho na qual elas foram originadas. Ao fazer esse procedimento, uma mensagem de erro semelhante �s seguintes � exibida:

Erro em tempo de execu��o '1004':
"O m�todo de c�pia da classe de planilhas falhou"

Erro em tempo de execu��o '1004':
Erro definido por objeto ou definido por aplicativo

Voltar para o in�cio | Submeter coment�rios

Causa

A Microsoft fornece exemplos de programa��o apenas por quest�es ilustrativas, sem garantias expressas ou impl�citas. Isto inclui, mas n�o est� limitado a, garantias impl�citas de comercializa��o ou adequa��o a um determinado prop�sito. Este artigo pressup�e que voc� conhece a linguagem de programa��o demonstrada e tamb�m as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajud�-lo, fornecendo a explica��o da funcionalidade de um determinado procedimento. Mas n�o modificar�o estes exemplos para fornecer funcionalidades adicionais ou construir procedimentos espec�ficos para atender �s suas necessidades espec�ficas.

Esse problema pode ocorrer quando voc� d� um nome definido para a pasta de trabalho e a copia v�rias vezes sem salv�-la e fech�-la, como no c�digo de exemplo a seguir:

Sub CopySheetTest()
    Dim iTemp As Integer
    Dim oBook As Workbook
    Dim iCounter As Integer
    
    ' Create a new blank workbook:
    iTemp = Application.SheetsInNewWorkbook
    Application.SheetsInNewWorkbook = 1
    Set oBook = Application.Workbooks.Add
    Application.SheetsInNewWorkbook = iTemp
    
    ' Add a defined name to the workbook
    ' that RefersTo a range:
    oBook.Names.Add Name:="tempRange", _
        RefersTo:="=Sheet1!$A$1"
            
    ' Save the workbook:
    oBook.SaveAs "c:\test2.xls"
    
    ' Copy the sheet in a loop. Eventually,
    ' you get error 1004: Copy Method of
    ' Worksheet class failed.
    For iCounter = 1 To 275
        oBook.Worksheets(1).Copy After:=oBook.Worksheets(1)        
    Next
End Sub

Voltar para o in�cio | Submeter coment�rios

Resolu��o

Para resolver esse problema, salve e feche a pasta de trabalho periodicamente enquanto o processo de c�pia estiver sendo realizado, como no c�digo de exemplo a seguir:

Sub CopySheetTest()
    Dim iTemp As Integer
    Dim oBook As Workbook
    Dim iCounter As Integer
    
    ' Create a new blank workbook:
    iTemp = Application.SheetsInNewWorkbook
    Application.SheetsInNewWorkbook = 1
    Set oBook = Application.Workbooks.Add
    Application.SheetsInNewWorkbook = iTemp
    
    ' Add a defined name to the workbook
    ' that RefersTo a range:
    oBook.Names.Add Name:="tempRange", _
        RefersTo:="=Sheet1!$A$1"
            
    ' Save the workbook:
    oBook.SaveAs "c:\test2.xls"
    
    ' Copy the sheet in a loop. Eventually,
    ' you get error 1004: Copy Method of
    ' Worksheet class failed.
    For iCounter = 1 To 275
        oBook.Worksheets(1).Copy After:=oBook.Worksheets(1)
        'Uncomment this code for the workaround:
        'Save, close, and reopen after every 100 iterations:
        If iCounter Mod 100 = 0 Then
            oBook.Close SaveChanges:=True
            Set oBook = Nothing
            Set oBook = Application.Workbooks.Open("c:\test2.xls")
        End If
    Next
End Sub

Observa��o O n�mero de vezes que voc� pode copiar uma planilha, antes de salvar a pasta de trabalho, varia de acordo com o tamanho da planilha.

Voltar para o in�cio | Submeter coment�rios

Como Contornar

Para resolver esse problema, insira uma nova planilha a partir de um modelo em vez de copiar uma planilha existente. Para fazer isso, siga essas etapas de acordo com a vers�o do Excel que est� sendo utilizada.

Microsoft Office Excel 2007

Crie uma nova pasta de trabalho, deixe somente uma planilha e exclua todas as outras.
Formate a pasta de trabalho e, em seguida, adicione qualquer texto, dados e gr�ficos que voc� precisa ter no modelo por padr�o.
Clique no Bot�o do Microsoft Office e em Salvar como.
Na caixa Nome do arquivo, digite o nome desejado para o modelo do Excel.
Na lista Salvar como tipo, clique em Modelo do Excel (*.xltx) e clique em Salvar.
Para inserir o modelo programaticamente, use o seguinte c�digo:
Sheets.Add Type:=caminho\nome_do_arquivo
Nesse c�digo, caminho\nome_do_arquivo � uma seq��ncia que cont�m o caminho e o nome de arquivo completo do modelo de planilha.

Microsoft Office Excel 2003 e vers�es anteriores do Excel

Crie uma nova pasta de trabalho, deixe somente uma planilha e exclua todas as outras.
Formate a pasta de trabalho e, em seguida, adicione qualquer texto, dados e gr�ficos que voc� precisa ter no modelo por padr�o.
Clique em Arquivo e clique em Salvar como.
Na caixa Nome do arquivo, digite o nome desejado para o modelo do Excel.
Na lista Salvar como tipo, clique em Modelo (*.xlt) e clique em Salvar.
Para inserir o modelo programaticamente, use o seguinte c�digo:
Sheets.Add Type:=caminho\nome_do_arquivo
Nesse c�digo, caminho\nome_do_arquivo � uma seq��ncia que cont�m o caminho e o nome de arquivo completo do modelo de planilha.