Não importa Planilha

Boa Noite

Estou com um problema que é o seguinte , se salvar minha Planilha dentro da pasta Downloads o vba não importa esses dados para o Access e essa mesma planilha se estiver no C:/MINHA PASTA por exemplo importa normal , abaixo meu código:

Código:


Sub ImportarDados()
    Dim dlg As FileDialog
    Dim fileName As String

    ' Desabilitar mensagens de aviso
    DoCmd.SetWarnings False

    ' Crie uma instância do diálogo de arquivo
    Set dlg = Application.FileDialog(msoFileDialogFilePicker)

    ' Permita que o usuário selecione apenas arquivos do Excel
    dlg.Filters.Clear
    dlg.Filters.Add "Planilhas do Excel", "*.xls; *.xlsx", 1
    
    ' Defina o caminho inicial para a pasta "Downloads"
    dlg.InitialFileName = Environ("USERPROFILE") & "\Downloads\"

    ' Exiba o diálogo de arquivo e obtenha o nome do arquivo selecionado
    If dlg.Show = -1 Then
        fileName = dlg.SelectedItems(1)
    Else
        ' Reativar mensagens de aviso
        DoCmd.SetWarnings True
        Exit Sub ' Usuário cancelou, saia do procedimento
    End If

    ' Importe os dados da planilha do Excel para a tabela TbImportados
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "TbImportados", fileName, True

    ' Exibir mensagem de sucesso
    MsgBox "Os dados foram importados com sucesso!", vbInformation

    ' Reativar mensagens de aviso
    DoCmd.SetWarnings True

    ' Limpe a memória
    Set dlg = Nothing

    ' Execute as consultas
    DoCmd.OpenQuery "Excluir"

End Sub