MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 : 229
    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 : 844
    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 : 229
    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 : 844
    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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2019, 17:29