MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Não importa Planilha

    avatar
    fabiopavila
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 26/12/2022

    Não importa Planilha  Empty Não importa Planilha

    Mensagem  fabiopavila 13/3/2024, 02:00

    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



      Data/hora atual: 23/5/2024, 00:05