[Resolvido]Escolher onde salvar exportação para excel

Boa tarde !

Eu consigo escolher onde salvar um arquivo que vou exportar para excel ? através de um Dialog Box ou algo do tipo ?


Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
   strLivro = CurrentProject.Path & "\teste.xls"
   xls.Workbooks.Open (strLivro)
   .......

   xls.ActiveCell.CopyFromRecordset rst
   xls.ActiveWorkbook.Save (---> Aqui aparecer um opção para o Usuário escolher onde salvar o Arquivo <---)
   xls.Application.Quit
Set xls = Nothing


Obrigado !

utilizo a seguinte rotina:

Private Sub btn_export_Click()
On Error GoTo Err_btn_export_Click

Beep
MsgBox "Arquivo preparado para exportação, favor direcionar para o local desejado", vbExclamation, "Exportando para o Excel"
DoCmd.OutputTo acQuery, "NOME_DA_CONSULTA", "MicrosoftExcelBiff8(*.xls)", "", False, "", 0

MsgBox "Operação de exportação efetuada", vbExclamation, "Exportando para o Excel"

Exit_btn_export_Click:
Exit Sub

Err_btn_export_Click:
MsgBox "Cancelando exportação...", vbExclamation, "Operação de exportação cancelada"
Resume Exit_btn_export_Click

End Sub

Ola Giba, Obrigado pela resposta mas no meu caso preciso especificar onde ira começar a colar os dados
Ex.


Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
strLivro = CurrentProject.Path & "\teste.xls"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("Sheet1").Activate
strSQL = "SELECT * FROM teste;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A4").Select
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing
End Sub


e Tbm desabilito algumas coisa no excel antes
Ex.
xls.Application.DisplayFormulaBar = True

Ola,
Esse meu codigo não está preparado para isso, ele utiliza um template que deve ficar junto ao banco,

strLivro = CurrentProject.Path & "\teste.xls"

Tente substituir o xls.ActiveWorkbook.Save, por xls.ActiveWorkbook.SaveAs FileName:="C:\"

Valeu pela resposta JPaulo!

Mas dessa forma terei que passar o caminho Fixo, eu esperava poder criar uma forma de que o usurio tevesse aquele "OpenDialog" para escolher onde salvar o arquivo !


Existe uma forma de fazer isso em situações onde exportamas uma base de dados ?

Fique com a Opção do JPaulo mesmo !


Escolhi um caminho fixo onde sempre será salvo os arquivo exportar com o nome seguido do FileName:="C:\MeuLocalFixo\ArquivoExportado-" & Format(Now(), "dd-mm-yyyy-hhnnss") & ".xls"


Obrigado !

Aproveitando o Topico,
nesse mesmo código gostaria de desabilitar tudo excel que vai ser exportado via vba no access.

Eu até conseguir desabilitar alguma coisa mas a ação esta sendo para todos arquivo exemplos depois que exporto todos os outros arquivos excel estão ficando com desabilitado.

Tem como eu desabilitar somente nesse arquivo que vai ser exportado  ?

Segue o Código que estou utilizando.

Private Sub lblMenu5_Click()
   Caminho_ExportarExcel
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
   strLivro = Caminho & "\Relatório_do_dia.xlsm"
   xls.Workbooks.Open (strLivro)
   xls.Visible = False
   xls.Worksheets("Relatório_Diario").Activate
   strSQL = "SELECT * From  Qry_RelatorioDiario;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
   xls.ActiveSheet.Range("A2").Select
   xls.ActiveCell.CopyFromRecordset rst
   xls.ActiveWorkbook.SaveAs FileName:="C:\XlsTemporario\Relatório_do_dia-" & Format(Now(), "dd-mm-yyyy-hhnnss") & ".xls"
   xls.Worksheets("Graficos").Activate
   xls.ActiveWindow.DisplayHeadings = False
   xls.ActiveWindow.DisplayHorizontalScrollBar = False
   xls.Application.DisplayFormulaBar = False
   'xls.Application.DisplayVerticalScrollBar = False
   xls.ActiveWindow.DisplayWorkbookTabs = False
   xls.Visible = True
Set xls = Nothing
 
End Sub


Algum ideia ?

Resolvi!

Fiz no próprio arquivo excel

Private Sub workbook_Open()
Plan1.Activate
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayHorizontalScrollBar = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayWorkbookTabs = False

End Sub

Private Sub workbook_Close()
Plan1.Activate
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHorizontalScrollBar = True
Application.DisplayFormulaBar = True
ActiveWindow.DisplayWorkbookTabs = True

End Sub

Jonathan,

Pelo que entendi, no inicio do tópico você precisava de um comando para escolher o diretório correto?
Veja se isso te atende.

Abraços.

Luis obrigado pela contribuição, mas este tópico está Resolvido, tanto para a duvida inicial como para a final.

Isso aqui vai me ajudar um pouco