MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]exportar x excel

    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 273
    Registrado : 13/03/2011

    [Resolvido]exportar x excel Empty [Resolvido]exportar x excel

    Mensagem  msilveir em 15/7/2019, 19:09

    ola Pessoal

    tenho esse codigo para exportar de uma caixa de listagem abaixo
    funciona de boa so uma pergunta nao consegui incluir uma caixa para colocar o nome a ser salvo
    gostaria de clicar no botao ele abrir uma caixa para colocar o nome quero salvar em vez de teste.xls

    If MsgBox("Voce esta Pretes Gerar Embarque", vbYesNo, "Atenção") = vbYes Then

    DoCmd.TransferSpreadsheet acExport, , "Cs_Falso2", "C:\SysControle\Nova Versao Almox\teste"

    MsgBox "Excel Gerado com Sucesso!!!", vbInformation, "Gerado"


    Me.ListaFalse.Requery

    End If
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 993
    Registrado : 13/12/2016

    [Resolvido]exportar x excel Empty Re: [Resolvido]exportar x excel

    Mensagem  Alexandre Fim em 15/7/2019, 20:23

    Olá Márcio,

    Faça assim:
    Código:


    Dim strArquivo As String

    strArquivo = "Dados_" & Format(Date, "yyyymmdd") & Format(Time(), "hhmmss") & ".xls"

    If MsgBox("Voce esta Pretes Gerar Embarque", vbYesNo, "Atenção") = vbYes Then
        DoCmd.TransferSpreadsheet acExport, , "Cs_Falso2", "C:\SysControle\Nova Versao Almox\" & strArquivo
        MsgBox "Excel Gerado com Sucesso!!!", vbInformation, "Gerado"
    End If




    Desta forma, ele criará o arquivo com os dados concatenados com a data, hora, minutos e segundos e coma a extensão ".xls"

    Ex: Dados_20190715162312.xls

    Espero ter ajudado.

    Boa sorte.


    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 273
    Registrado : 13/03/2011

    [Resolvido]exportar x excel Empty Re: [Resolvido]exportar x excel

    Mensagem  msilveir em 15/7/2019, 23:35

    Ola Alexandre Fim

    seu código caiu como uma luva , meu muito obrigado.

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 993
    Registrado : 13/12/2016

    [Resolvido]exportar x excel Empty Re: [Resolvido]exportar x excel

    Mensagem  Alexandre Fim em 16/7/2019, 12:12

    Valeu Márcio !!! cheers cheers

    O fórum agradece.

    Abraços

      Data/hora atual: 3/8/2020, 19:07