none
Importar planilha Excel para uma tabela no Access usando o VBA RRS feed

  • Pergunta

  • Pessoal,

    Estou tentando carregar os dados que estão em uma planilha no Excel dentro de um diretório para uma tabela no access, já fiz algumas pesquisas na web mas não consegui resolver o problema.

    Preciso verificar se a planilha está no diretório e pegar na planilha dados de algumas colunas especificas e jogar dentro da tabela no Access usando VBA.

    Alguém pode me ajudar?

    Obrigado

    • Movido Vinícius S. Martins segunda-feira, 25 de fevereiro de 2013 20:05 Conteúdo em lugar errado
    segunda-feira, 14 de janeiro de 2013 15:01

Respostas

  • Olá,

    Encontrei um VBA que faz isto no Excel. Acredito que com um pouco de esforço ele pode ser adaptado ao Access: 

    Sub ReadDataFromAllWorkbooksInFolder()
        Dim FolderName As String, wbName As String, cValue As Variant
        Dim wbList As String, sValuePlan1 As String
        
            'Path (Diretorio) -Ajustar o Caminho
            FolderName = "C:\Foldername"
            
                'Nome do Arquivo de onde extrairemos a informação
                wbName = Dir(FolderName & "\" & "Teste.xls")
                'Armazenamos nas Variaveis
                wbList = wbName
                wbName = Dir
            
                'le o Valor no workbook
                cValue = GetInfoFromClosedFile(FolderName, wbList, "Plan1", "A1")
                
                'Msgbox com o Valor em A1
                MsgBox "O Valor em A1 - Plan1 é :- " & cValue
                
                'Armazenamos o Valor na variavel
                sValuePlan1 = cValue
                
                'Coloca o Valor na Celula
                Cells(1, 1).Formula = cValue

    End Sub

        Private Function GetInfoFromClosedFile(ByVal wbPath As String, _
                                                wbName As String, _
                                                wsName As String, _
                                                cellRef As String) As Variant
        
        Dim arg As String
            GetInfoFromClosedFile = ""
            
            If Right(wbPath, 1) <> "\" Then wbPath = wbPath & "\"
            
            If Dir(wbPath & "\" & wbName) = "" Then Exit Function
            
                arg = "'" & wbPath & "[" & wbName & "]" & _
                    wsName & "'!" & Range(cellRef).Address(True, True, xlR1C1)
            
            On Error Resume Next
            GetInfoFromClosedFile = ExecuteExcel4Macro(arg)
            
        End Function 

    • Marcado como Resposta Giovani Cr sexta-feira, 13 de dezembro de 2013 16:00
    quarta-feira, 7 de agosto de 2013 15:03