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


2 participantes

    [Resolvido]Importar uma aba específica do excel para Access

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 827
    Registrado : 11/12/2017

    [Resolvido]Importar uma aba específica do excel para Access Empty [Resolvido]Importar uma aba específica do excel para Access

    Mensagem  Ismael Silva 25/7/2023, 00:54

    Boa noite,

    Achei o código abaixo do JPaulo, no entanto não estou conseguindo adaptar para importar apenas uma aba específica do excel para o access, como poderia fazer a adaptação?




    Utilize o CurrentDb.Execute "DELETE * from ..." antes da importação;


    Private Sub SeuBotao_Click()
    Dim strPathFile As String, strFile As String, strPath As String
    Dim strTable As String
    Dim blnHasFieldNames As Boolean
    'apaga todos os registros da tabela
    CurrentDb.Execute "DELETE * from SuaTabela"
    blnHasFieldNames = True
    strPath = "C:\" ' drive onde se situa o seu documento excel
    strTable = "SuaTabela" 'nome da tabela no seu banco
    strFile = Dir(strPath & "SeuExcel.xls") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel _
    que estiverem em C:\ para a tabela do banco.
    Do While Len(strFile) > 0
    strPathFile = strPath & strFile
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
    strTable, strPathFile, blnHasFieldNames
    strFile = Dir()
    Loop
    End Sub
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 827
    Registrado : 11/12/2017

    [Resolvido]Importar uma aba específica do excel para Access Empty Re: [Resolvido]Importar uma aba específica do excel para Access

    Mensagem  Ismael Silva 26/7/2023, 03:51

    Alguma sugestão?
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 827
    Registrado : 11/12/2017

    [Resolvido]Importar uma aba específica do excel para Access Empty Re: [Resolvido]Importar uma aba específica do excel para Access

    Mensagem  Ismael Silva 29/7/2023, 03:31

    Alguma ideia como posso adaptar?
    Carvalho
    Carvalho
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 249
    Registrado : 19/01/2013

    [Resolvido]Importar uma aba específica do excel para Access Empty Re: [Resolvido]Importar uma aba específica do excel para Access

    Mensagem  Carvalho 4/8/2023, 01:23

    Não testei, mais acredito que funcione.

    Lembre-se de substituir "NomeDaAba" pelo nome da aba que você deseja importar. Com essas alterações, o código importará somente a aba que você especificou para a tabela "SuaTabela" no banco de dados Access. Certifique-se de que o arquivo Excel esteja fechado antes de executar a importação.

    Código:

    Private Sub SeuBotao_Click()
        Dim strPathFile As String, strFile As String, strPath As String
        Dim strTable As String
        Dim blnHasFieldNames As Boolean
       
        ' Nome da tabela no banco
        strTable = "SuaTabela"
       
        ' Indica se a primeira linha do Excel contém nomes de campo (True) ou não (False)
        blnHasFieldNames = True
       
        ' Caminho onde se situa o seu documento Excel
        strPath = "C:\"
       
        ' Nome do seu arquivo Excel
        strFile = "SeuExcel.xls"
       
        ' Nome da aba específica que você deseja importar
        Dim strWorksheet As String
        strWorksheet = "NomeDaAba"
       
        strPathFile = strPath & strFile
       
        ' Apaga todos os registros da tabela
        CurrentDb.Execute "DELETE * FROM " & strTable
       
        ' Importa a aba específica
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, blnHasFieldNames, strWorksheet & "!"
    End Sub
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 827
    Registrado : 11/12/2017

    [Resolvido]Importar uma aba específica do excel para Access Empty Re: [Resolvido]Importar uma aba específica do excel para Access

    Mensagem  Ismael Silva 12/8/2023, 03:46

    @Carvalho, deu certo sim.

    Obrigado.

    Conteúdo patrocinado


    [Resolvido]Importar uma aba específica do excel para Access Empty Re: [Resolvido]Importar uma aba específica do excel para Access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/7/2024, 04:32