sistema exporta e importar exel via vba

Ola pessoal estou tentando criar esse sistema mais estou com dificuldades em importar a planilha gerada
Outra questão e que gostaria de escolher o local a ser salva esta planinha Alguem poderia me ajudar nesse Projeto ??? algum exemplo !!
segue o código:

Private Sub btn_Exportar_Click()

On Error GoTo Err_btn_Exportar_Click
'Declarei as variáveis strConsulta e strNomePlanilha
Dim strConsulta, strNomePLanilha

'1º Na variável strConsulta = consulta
'2º Na varivável strNomePlanilha = local e o nome do arquivo a ser gerado.
'3º Exporta a consulta em um arquivo de excel.

strConsulta = "cs_Equipe" '1º
strNomePLanilha = "c:/dados.xls" '2º Aqui gostaria de escolher o local para salvar o aquivo e o nome do mesmo
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, True, strNomePLanilha '3º

strConsulta = "cs_Ocorrencia"
strNomePLanilha = "c:/dados.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, True, strNomePLanilha

strConsulta = "cs_Funcionario"
strNomePLanilha = "c:/dados.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, True, strNomePLanilha
MsgBox "Tabelas Exportada com Sucesso!"

Exit_btn_Exportar_Click:
   Exit Sub

Err_btn_Exportar_Click:
   MsgBox Err.Description
   Resume Exit_btn_Exportar_Click
   
End Sub


Private Sub btn_importa_Click()
'??????
On Error GoTo Err_btn_Exportar_Click
'Declarei as variáveis strConsulta e strNomePlanilha
Dim strConsulta, strNomePLanilha

'1º Na variável strConsulta = consulta
'2º Na varivável strNomePlanilha = local e o nome do arquivo a ser gerado.
'3º Exporta a consulta em um arquivo de excel.

strConsulta = "cs_Equipe" '1º
strNomePLanilha = "c:/dados.xls"   '2º Aqui gostaria de escolher o local para Importar o aquivo e o nome do mesmo
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha  '3º

strConsulta = "cs_Ocorrencia"
strNomePLanilha = "c:/dados.xls"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

strConsulta = "cs_Funcionario"
strNomePLanilha = "c:/dados.xls"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha
MsgBox "Tabelas Exportada com Sucesso!"

Exit_btn_Exportar_Click:
   Exit Sub
 
           

           Aqui o Projeto  =====   banco

Boa noite
Adeqúe o título. Respeite as regras. Escrever em maiúsculas significa gritar