MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Erro execução 3434 ao exportar para excel

    Compartilhe

    ClaudioGiroto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 03/09/2011

    Erro execução 3434 ao exportar para excel

    Mensagem  ClaudioGiroto em Qua 03 Jun 2015, 21:08

    Gente,
    boa tarde

    Estou com um sistema que fiz já há um bom tempo (acho que uns 2 anos) e até o momento não havia apresentado esse problema (nem em faze de desenvolvimento)...

    Não consegui identificar facilmente o que causa e uma possível solução.

    O erro que ocorre é o "3434 - Não é possível expandir um intervalo nomeado".

    Usando: Windows 7 e Access 2007

    Alguém possui uma luz ?

    Abraços

    Claudio

    PS: Tinha aberto em macros erroneamente, por isso apaguei e criei aqui por acredicar ser correto.

    Uilson Brasil
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 999
    Registrado : 23/04/2013

    Re: Erro execução 3434 ao exportar para excel

    Mensagem  Uilson Brasil em Qua 03 Jun 2015, 21:10

    Claudio,

    Disponibilize o seu projeto ou a parte que interessa ou nos dê mais detalhes a respeito. código utilizado, etc... ajudará no entendimento.



    Abraços,


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access

    ClaudioGiroto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 03/09/2011

    Re: Erro execução 3434 ao exportar para excel

    Mensagem  ClaudioGiroto em Sex 05 Jun 2015, 13:07

    Uilson
    bom dia

    A parte do código que está dando erro é essa:
    Código:
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel7, "Dados_Agencias", Caminho & "\Cadastro-Agencias-BKUP.xls", True

    Caso necessário, segue abaixo o código inteiro:


    Código:
    'procedimento para salvar as principais tabelas em arquivos do excel
    'On Error GoTo DeuErro
    Dim Caminho As String
    Caminho = Application.CurrentProject.Path
    MsgBox "Este procedimento irá efetuar o backup dos principais dados cadastrais.", vbInformation, "SARV Informa:"

    If MsgBox("Deseja continuar?", vbQuestion + vbYesNo + vbDefaultButton2, "SARV Questiona:") = vbNo Then Exit Sub 'questiona se deseja continuar
    'efetua backup da tabela Dados_Agencias
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel7, "Dados_Agencias", Caminho & "\Cadastro-Agencias-BKUP.xls", True
        MsgBox "Cadastro das agências salvo." & Chr(13) & "Arquivo: Cadastro-Agencias-BKUP.xls", vbInformation, "SARV Informa:" 'mensagem confirmando a gravação
    'efetua backup da tabela Liderança
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel7, "Dados_EmailLider", Caminho & "\Cadastro-Lideranca-BKUP.xls", True
        MsgBox "Cadastro da liderança salvo." & Chr(13) & "Arquivo: Cadastro-Lideranca-BKUP.xls", vbInformation, "SARV Informa:"  'mensagem confirmando a gravação
    'efetua backup da tabela Corretores
    '    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel7, "Dados_Corretores", "G:\Renovação\Cadastro-Corretores-BKUP.xls", True
    '    MsgBox "Cadastro dos corretores salvo." & Chr(13) & "Arquivo: Cadastro-Corretores-BKUP.xls", vbInformation, "SARV Informa:"  'mensagem confirmando a gravação
        
    MsgBox "Procedimento de Backup realizado com sucesso.", vbExclamation, "SARV Informa:"

    Obrigado,

    Claudio Giroto

      Data/hora atual: Qui 08 Dez 2016, 00:07