[RESOLVIDO] Método SaveAs Excel

Rogério,

Tentei com a dica do Eriuton e funcionou, só pedi pra ele do que se trata este parâmetro.

at
Gustavo Vanin

Boa Tarde meu nobre!!

Então como te falei... questão de versão!


ver isso!!

Código:

  With Destwb
        If Val(Application.Version) < 12 Then
            'You use Excel 97-2003
            FileExtStr = ".xls": FileFormatNum = -4143
        Else
            'You use Excel 2007-2010
            'We exit the sub when your answer is NO in the security dialog that you
            'only see when you copy a sheet from a xlsm file with macro's disabled.
            If Sourcewb.Name = .Name Then
                With Application
                    .ScreenUpdating = True
                    .EnableEvents = True
                End With
                MsgBox "Your answer is NO in the security dialog"
                Exit Sub
            Else
                Select Case Sourcewb.FileFormat
                Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
                Case 52:
                    If .HasVBProject Then
                        FileExtStr = ".xlsm": FileFormatNum = 52
                    Else
                        FileExtStr = ".xlsx": FileFormatNum = 51
                    End If
                Case 56: FileExtStr = ".xls": FileFormatNum = 56
                Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
                End Select
            End If
        End If
    End With

Vais precisar testar se o -4143 funciona pra todas, inclusive a 2010 em diante.... Se funcionar, legal pq serve tanto pras versões anteriores como para as mais atuais. Caso não funcione, põe uma padronização na tua empresa... põe uma versão só e programa de acordo com este código ai!
Um Grande Abraço!
Eriuton Charles

Blz...

Vlw pela ajuda, estou concluindo uns testes pois temos mais que uma versão do office rodando na empresa, mas a princípio esta tudo certo.

Obrigado.

at
Gustavo Vanin