Exportar dados para excel

À 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

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

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"

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.

Marcelo bom dia !


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

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()