[Resolvido]Caixa de dialogo

Olá,

Tem alguma maneira de fazer com que quando clicar em um botão apareça uma caixa de dialogo para escolher o local para
salvar o arquivo?

Obrigado.

Para salvar que arquivo ?

Qual a versão do seu Access ?

Veja aqui se o ajuda;
http://msdn.microsoft.com/en-us/library/aa140112(v=office.10).aspx

Queria salvar um arquivo Excel. Office 2003.

O link que passou me ajudou sim. modifiquei a parte da função para salvar um arquivo encontrada nesse site:

Dim lngFormHwnd As Long
Dim lngAppInstance As Long
Dim strInitDir As String
Dim strFileFilter As String
Dim lngResult As Long
Dim arquivo As String

arquivo = ""

lngFormHwnd = Me.hWnd
lngAppInstance = Application.hWndAccessApp
strInitDir = "C:\"

strFileFilter = "Microsoft Excel (*.xls)" & _
Chr(0) & "*.xls" & Chr(0)

lngResult = CommonDialogAPI.SaveFileDialog(lngFormHwnd, _
lngAppInstance, strInitDir, strFileFilter)

If CommonDialogAPI.GetStatus = True Then
arquivo = CommonDialogAPI.GetName & ".xls"

MsgBox arquivo

Else
MsgBox "No file selected."
End If

Estou guardando na variável "arquivo" o caminho do diretório que se deseja salvar o arquivo mas não consigo concatenar
com ".xls"

Por exemplo:
A função CommonDialogAPI.GetName retorna "C:\Users\Acer\Desktop\teste" e eu quero que fique "C:\Users\Acer\Desktop\teste.xls"

Não sei porque isso não esta funcionando: arquivo = CommonDialogAPI.GetName & ".xls"

Coloque aqui o exemplo em mdb ou accdb.

O objetivo era ao clicar em salvar arquivo e escolher um local e nome para o arquivo o sistema
retornasse o local concatenado com ".xls" para que eu possa usar na minha função de exportação de dados.

JPaulo,

Pesquisando mais um pouco consegui encontrar uma outra maneira
de exibir a caixa de dialogo para salvar e abrir arquivos.

Dessa vez a função já retorna corretamente o nome do diretório
onde quero salvar o arquivo.

Caso, no futuro alguém venha a precisar de algo parecido está ai
um exemplo.

Valew obrigado pelo retorno.