[Resolvido]Ajuda - Botão Exportar+Localizar pasta

Galera, Boa tarde!
Estou com a seguinte dúvida! Criei um botão em um formulário para exportar uma tabela de access para Excel pelo comando:

Código:


DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Clientes", "C:\Users\kelvin.silva\Desktop\SR Waldir\BackTest\Clientes" & ".xls", True


O botão funciona normal e exporta a planilha tranquilamente pro caminho informado no código acima, no caso acima estou utilizando o computador com meu usuário "kelvin.silva", se um outro usuário, exemplo "nome.sobrenome" clicar no botão ele não irá exportar a planilha para o usuário "nome.sobrenome"

Tem algum código que ele detecte automaticamente o usuário utilizado? Caso não tenha! Como poderia inserir um botão para localizar a pasta desejada e exportar para ela?

Use: Environ("username") e detectará o usuário logado no micro.

Eu testei o código mas não funcionou!

O código ficou assim:

Código:


DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Clientes", Environ("username"), True


Boa tarde Leandro! Consegui fazer o código funcionar. utilizei o código abaixo:

Código:


usuario = Environ("USERNAME")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Clientes", "C:\Users\" & usuario & "\Desktop\SR Waldir\BackTest\Clientes" & ".xls", True


Aparentemente funcionou para o meu usuário, estou na empresa agora e não tem como eu criar ou entrar com outro Login, chegando em casa verifico certinho! Grato desde já!