[Resolvido]exportar para excel com nome predefinido

preciso exportar um relatório para excel com nome predefinido (nº filial_lc_mes_ano), dados estes contidos no relatorio

estou utilizando o código:
Private Sub LANÇAMENTO_CONTABIL_Click()
DoCmd.OutputTo ObjectType:=acOutputReport, objectname:="ARQUIVO_LANÇAMENTO CONTABIL", OutputFormat:="xls"
End Sub

alguém pode me ajudar a terminar este código?

Bom dia,

Veja se serve....
Este é para PDF

Private Sub Command378_Click()
Dim strArquivo As String
Dim strLocal As String
strArquivo = "nº filial_lc_mes_ano" & ".pdf" 'Novo nome para seu relatório
strLocal = CurrentProject.Path & "\" & strArquivo ´local onde relatorio vai ficar guardado
DoCmd.OutputTo acOutputReport, "SEU RELATÓRIO", acFormatPDF, strLocal, False
End Sub


Este é para Excel

Private Sub Command378_Click()
Dim strArquivo As String
Dim strLocal As String
strArquivo = "nº filial_lc_mes_ano" & ".xlsx"
strLocal = CurrentProject.Path  & "\" & strArquivo
DoCmd.OutputTo acOutputTable, "SUA TABELA QUE VAI PASSAR PARA EXCEL", acFormatXLSX, strLocal, False
End Sub

Abraço..

Bom dia, roberto

obrigado pela atenção

sua dica serviu muito bem

mas ainda quero fazer o seguinte: o nome do arquivo (nº filial_lc_mes_ano)
nº filial, mes, ano, são informações que eu tenho no proprio relatorio e tabelas, gostaria que nomeasse o arquivo conforme essas informações, ex: filial 40, relatorio mes janeiro ano 2014 (40_lc_01_14.xls)

se puder me ajudar agradeço

bom dia,

Se bem precebi, essa informação existe na tabela e gostarias que o ficheiro excel ficasse com o nome que gostarias..

É isso???

Boas outra vez...

Fiz um exemplo bem rapidito para ver se é isso e se isto pode se adaptar a tua BD.
A lógica que eu costume utilizar consiste em escrever num ou mais campos o titulo do ficheiro ou então através de uma tabela.


Caso necessites de ajuda ou não tenhas percebido lógica....avisa.

Abraço..

Bem o que eu precisava

Obrigado

Deus abençoe

Boa tarde,

Não se esqueça de marcar tópico como [RESOLVIDO] o forum agradece.

Abraço...