MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Erro execução 3434 ao exportar para excel

    avatar
    ClaudioGiroto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Erro execução 3434 ao exportar para excel Empty Erro execução 3434 ao exportar para excel

    Mensagem  ClaudioGiroto 3/6/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
    Uilson Brasil
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Uilson Brasil 3/6/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
    avatar
    ClaudioGiroto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ClaudioGiroto 5/6/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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 05:13