MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]importar excel para o access

    Compartilhe

    respisanto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 02/08/2013

    [Resolvido]importar excel para o access

    Mensagem  respisanto em Qua 22 Jun 2016, 23:29

    Tudo bem!!

      Estou com uma dúvida, no programa que fiz ele inclui para importar uma planilha em Excel e carrega para o access 2010. Procurei no fórum encontrei  um exemplo e modifiquei para o meu banco, porem o banco de exemplo está funcionando sem a referencia  do ms 11 object library. Quando modifico para o meu banco aparece erro de "o tipo definido pelo usuário não foi definido".
     Alguém poderia me ajudar nessa?

    se o codigo do botão da função:

    Function AbrirRC() As String

    ' Requer referencia a Microsoft Office 11 Object Library
       On Error GoTo PROC_ERR
       
       Dim fd As FileDialog
       
       Set fd = Application.FileDialog(msoFileDialogFilePicker)
       
       fd.Title = "selecione o ficheiro"
       fd.Filters.Add "Ficheiro XLSX", "*.xlsx", 1

       fd.Show
       
       If (fd.SelectedItems.Count > 0) Then
           '------inicio importação excel para sincronização
           Dim strPathFile As String, strFile As String, strPath As String
           Dim strTable As String
           Dim blnHasFieldNames As Boolean
           blnHasFieldNames = True
           strPathFile = fd.SelectedItems(1)
           strTable = "ExcelTmp"
         
           'apaga temporarios
           DoCmd.RunSQL "Delete * from ExcelTmp"
           
           'importa para tabela local temporária
           DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, blnHasFieldNames
           'sql verifica existentes e marca com não novo
           DoCmd.OpenQuery "xls01marcaExistentes", acViewNormal, acEdit
           'sql atualiza existentes
           DoCmd.OpenQuery "xls02AtualizaExistentes", acViewNormal, acEdit
           'sql lança novos no ficheiro funcionarios
           DoCmd.OpenQuery "xls03LancaNovos", acViewNormal, acEdit
           
           MsgBox "Operação concluída.", vbInformation, ""
           
           'apaga temporarios
           DoCmd.RunSQL "Delete * from ExcelTmp"
           
       Else
           MsgBox "Não foi escolhido nenhum ficheiro", vbInformation, ""
       End If
       
    PROC_EXIT:
       Exit Function
       
    PROC_ERR:
       DoCmd.Hourglass False
       If Err.Number = 3011 Then
          LocalXML = ""
          MsgBox ("Ficheiro inválido.")
       Else
           MsgBox Err.Description
       End If
       Resume PROC_EXIT

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2328
    Registrado : 14/08/2013

    Re: [Resolvido]importar excel para o access

    Mensagem  FabioPaes em Qui 23 Jun 2016, 01:13

    Amigo, erro de Referência sim... Abra o BD que funciona, veja todas as Referencias marcadas, e marque em seu BD.

    Indico também esse exemplo bem completo sobre importação de planilha Excel.
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    respisanto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 02/08/2013

    importar excel para o access

    Mensagem  respisanto em Sex 24 Jun 2016, 02:06

    Boa noite!!
     Tinha feito o que você informou. Comparei as referencias que tenho com as do banco de dados de exemplo, não vi nenhuma alteração ou ausência de .dll.
      Este que você indicou também está com outro problema que é a declaração caminhodoficheiro não esta reconhecendo.
    Por acaso tem outra dica!!!

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2328
    Registrado : 14/08/2013

    Re: [Resolvido]importar excel para o access

    Mensagem  FabioPaes em Sex 24 Jun 2016, 02:09

    Posta aqui esse BD que nso funciona, somente a parte envolvida pra ficar menor... Posta tambem o exemplo q funciona, para possamos dar uma olhada amigo...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    respisanto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 02/08/2013

    importar excel para o access

    Mensagem  respisanto em Sab 25 Jun 2016, 02:25

    Prezado, Fabio tudo bem!!

    Como o meu banco não funcionou, transferi as informações do meu banco para o outro e deu certo.

    Muito obrigado a pela atenção.

      Data/hora atual: Sex 09 Dez 2016, 03:47