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

    Enviar Exportações Salvas através de VBA

    Compartilhe

    athenas1200
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/03/2011

    Enviar Exportações Salvas através de VBA

    Mensagem  athenas1200 em Sex 12 Jun 2015, 12:17

    Bom Dia,

    Tenho um macro que apenas abre Gerenciar Tarefas de Dados
    Gostaria de SCRIPT em VBA, ao click no botão ele enviar direto para
    C:\exportar\Enviar.csv
    O nome da exportação salvar é Enviar1
    igual a imagem.


    [Você precisa estar registrado e conectado para ver esta imagem.]

    Obrigado

    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 315
    Registrado : 14/02/2011

    Enviar Exportações Salvas através de VBA

    Mensagem  daniloreiis em Sex 12 Jun 2015, 14:33

    Bom dia Jovem da uma olhadinha neste post

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------
    [Você precisa estar registrado e conectado para ver este link.]

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

    athenas1200
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/03/2011

    Está dando erro

    Mensagem  athenas1200 em Sex 12 Jun 2015, 16:03

    Onde estou errado...

    Private Sub Comando7_Click()
    DoCmd.TransferText acOutputTable, "Qyr_Enviar", acFormatXLSX, "C:\exportar\Enviar.csv"
    End Sub

    athenas1200
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/03/2011

    Está dando erro....

    Mensagem  athenas1200 em Sex 12 Jun 2015, 16:27

    Está dando erro....

    Alguém me ajude onde estou errado.

    Private Sub Comando7_Click()
    DoCmd.SetWarnings False

    DoCmd.TransferText acExportFixed, "Enviar1", "Qyr_Enviar", "C:\exportar\Enviar.csv"
    DoCmd.SetWarnings True
    MsgBox "Arquivo Enviado para Pasta C:\exportar Favor conferir ", 64, "Atenção"
    End Sub

    athenas1200
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/03/2011

    Resolvido

    Mensagem  athenas1200 em Sex 12 Jun 2015, 17:27

    resolvi assim.
    Estava procurando pela função que faltava RunSavedImportExport, pois toda a configuração estava salva e só precisava enviar pelo vba.

    Private Sub Comando7_Click()
    DoCmd.SetWarnings False
    DoCmd.RunSavedImportExport "Enviar1"
    DoCmd.SetWarnings True
    MsgBox "Arquivo exportado com sucesso", 64, "Informação"
    End Sub

      Data/hora atual: Sex 09 Dez 2016, 11:29