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

3 participantes

    Exportar dados para excel

    avatar
    Nerval_krettli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 22/08/2016

    Exportar dados para excel Empty Exportar dados para excel

    Mensagem  Nerval_krettli 28/3/2022, 20:47

    À todos uma boa tarde!

    Gostaria de uma ajuda dos senhores.

    No banco em anexo seria possivel exportar uma consulta para o excel e nomear o arquivo ele pegar os 2 os valores que no campos da  Cs_Dados_2

    hoje eu já consigo exportar com o nome "Teste.xlsx"

    Porém eu gostaria que se fosse posivel exportar assim "Teste 440244 R$ 5.921,69.xlsx"


    Ou tem alguma outra solução.



    Obrigado por enquanto.



    Atenciosamente,
    Nerval
    Anexos
    Exportar dados para excel AttachmentBase Dados.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 9 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3602
    Registrado : 21/04/2011

    Exportar dados para excel Empty Re: Exportar dados para excel

    Mensagem  Marcelo David 28/3/2022, 23:35

    Boa noite, já deu um pesquisa no Fórum sobre o assunto?

    Veja se esse meu exemplo lhe atende.

    https://www.maximoaccess.com/t36386-exportar-todas-as-tabelas-vinculadas-local-odbc-para-excel?highlight=excel


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    Exportar dados para excel Marcel11
    avatar
    Nerval_krettli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 22/08/2016

    Exportar dados para excel Empty Exportar dados para excel

    Mensagem  Nerval_krettli 29/3/2022, 12:41

    Marcelo bom dia !


    Na verdade eu já consigo fazer a exportação dos dados.

    Só precisava que ao exportar criar o arquivo com o dados de um campo na consulta

    Tipo assim

    hoje eu já consigo exportar com o nome "Teste.xlsx"

    Porém eu gostaria que se fosse posivel exportar assim "Teste 440244 R$ 5.921,69.xlsx"
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3602
    Registrado : 21/04/2011

    Exportar dados para excel Empty Re: Exportar dados para excel

    Mensagem  Marcelo David 5/4/2022, 12:58

    Bom dia,
    você chegou a olhar meu exemplo? Pois ele faz exatamente o que está querendo.
    Nele, basta seguir os procedimentos que há lá que chegará onde precisa.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    Exportar dados para excel Marcel11
    avatar
    Nerval_krettli
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 22/08/2016

    Exportar dados para excel Empty Exportar dados para excel

    Mensagem  Nerval_krettli 7/4/2022, 11:38

    Marcelo bom dia !


    Olhei sim mais não consegui adptar ao meu modelo ao exportar.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4939
    Registrado : 20/04/2011

    Exportar dados para excel Empty Re: Exportar dados para excel

    Mensagem  Silvio 7/4/2022, 12:10

    Boas....

    Tente dessa forma, não desvalorizando o excelente exemplo do Marcelo David.

    Public Sub CriaExcel()

    Dim strConsulta, strNomePLanilha

    strConsulta = "QryExportaComissao" ' aqui vai a consulta que vai ser exportada
    strNomePLanilha = "c:/Grafico/Grafico.xls" ' criar a pasta para receber o Excel exportado



    If MsgBox("Deseja exportar ?", vbYesNo, Me.Caption) = vbNo Then
    MsgBox "Ação cancelada pelo usuário !", vbInformation, Me.Caption
    Exit Sub

    Else
    'criando a pasta na raiz do drive C
    On Error Resume Next
    If Len(Dir("C:\Grafico", vbDirectory) & "") > 0 Then
    MsgBox "Esta pasta já existe"
    Else
    MkDir "C:\Grafico"
    End If

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

    MsgBox "Foram exportados !", vbInformation, Me.Caption

    End If

    End Sub


    Em um formulário qualquer, em um botão qualquer, no evento click..... coloque.... Call CriaExcel()


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: 1/10/2022, 16:03