[Resolvido]Gerar arquivos x listbox

Ola Pessoal

tenho esse codigo em botao num formulario para gerar um arquivo xlsx
tem uma listbox que filtro a consulta que gera esse xlsx

DoCmd.OutputTo acOutputQuery, "Cs_FalsoRel", acFormatXLSX, "c:\enviados\Pedidos.xlsx", False

PFo
Tarde
Manha
SC
Parana

eu gostaria de clicar no nome exemplo tarde ou em qualquer da lista
e o arquivo iria com esse nome da lista

Poste sua base para verificar.

Acredito que isso resolva seu problema:

DoCmd.OutputTo acOutputQuery, "Cs_FalsoRel", acFormatXLSX, "c:\enviados\" & Me.SUALISTA.Column(0) & ".xlsx", False

Obs: entre parênteses coloque a coluna respectiva ao nome que você quer dar lembrando que sempre inicia do 0.

Ola thiagonsilvaa

funcionou perfeito a sua dica olha como ficou , so esqueci de dizer que preciso mais uma informaçao junto com nome a data e hora
tenho esse codigo para data e hora nao consegui concatenar junto com nome

& Format(Now, "ddmmyyyy-hhmm") &



DoCmd.OutputTo acOutputQuery, "Cs_FalsoRel", acFormatXLSX, "c:\enviados\" & Me.lista.Column(0) & ".xlsx"

gerar assim o arquivo tarde.xlsx , mas preciso assim tarde-24072019-1503

Veja se é isto:

Código:

Dim dataatual
dataatual = Format(Now, "ddmmyyyy-hhmm")

DoCmd.OutputTo acOutputQuery, "Cs_FalsoRel", acFormatXLSX, "c:\enviados\" & Me.lista.Column(0) & "-" & dataatual & ".xlsx", false



Ola thiagonsilvaa

funcionou certinho o código vou deixar para futuras consultas , muito obrigado nesse topico

Dim DataDia

DataDia = Format(Now, "ddmm-hhmm")


If IsNull(Me.lista) Then
MsgBox "Escolha o Turno!!", vbCritical, "Atenção"
Me.lista.SetFocus

Else

DoCmd.OutputTo acOutputQuery, "Cs_FalsoRel", acFormatXLSX, "c:\Enviados\" & Me.lista.Column(0) & "-" & DataDia & ".xlsx"

MsgBox "Arquivo Gerado com Sucesso!!!", vbInformation, "Atenção"


End If

O fórum agradece o retorno !

Até a próxima.