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


    [Resolvido]Importar Excel para Access via VB

    avatar
    Cleniroweb
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 16/03/2014

    [Resolvido]Importar Excel para Access via VB Empty [Resolvido]Importar Excel para Access via VB

    Mensagem  Cleniroweb 23/9/2014, 05:00

    Embarassed Caros colegas,

    Tenho uma planilha excel da seguinte forma:
    Nome: Saldo
    02 Colunas: Código e Total

    Criei no Access uma tabela com o nome de Tbl_Saldo com as colunas; "Código e Total"

    Gostaria de importar a planilha excel para a planilha do access via código VB mas não estou conseguindo, tenho uma listbox (nome=txtcaminho) o qual selecionará onde estará o arquivo a ser importado, pois não estará em um path defino.

    Caso alguém tenha um código bem simples para enviar-me, e se possível colocar uma breve descrição da ação de cada linha de código para entendimento.

    Desde já agradeço à todos por qualquer dica.

    Abraço,
    Cleniroweb.
    avatar
    Convidado
    Convidado


    [Resolvido]Importar Excel para Access via VB Empty Re: [Resolvido]Importar Excel para Access via VB

    Mensagem  Convidado 24/9/2014, 11:33

    Bom dia,

    Eu adaptei um exemplo para ver se é isso que pretende, só tem que colocar a folha excel junto a sua BD.
    avatar
    Cleniroweb
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 16/03/2014

    [Resolvido]Importar Excel para Access via VB Empty Importar Excel para Access via VB

    Mensagem  Cleniroweb 26/9/2014, 04:31


    Roberto,

    No exemplo que você me enviou não entendi o formulario, entretanto o código foi perfeito e, adaptando-o no meu projeto ficou conforme segue:

    Sub ImportarXLSX(NmArquivo As Variant)
    DoCmd.SetWarnings False
    DoCmd.RunSQL "Delete * From Tbl_Saldo_TFC"
    Dim strPathFile As String, strFile As String, strPath As String
    Dim strTable As String
    Dim blnHasFieldNames As Boolean
    blnHasFieldNames = True
    strPath = CurrentProject.Path & "\"
    strTable = "Tbl_Saldo_TFC"
    strFile = Dir(strPath & "*.xls*")
    Do While Len(strFile) > 0
    strPathFile = strPath & strFile
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
    strTable, strPathFile, blnHasFieldNames
    strFile = Dir()
    Loop
    MsgBox "Importação concluída.", vbInformation, ""
    End Sub


    Parabéns e muito obrigado pela sua ajuda.
    Cleniro.
    bounce
    avatar
    Convidado
    Convidado


    [Resolvido]Importar Excel para Access via VB Empty Re: [Resolvido]Importar Excel para Access via VB

    Mensagem  Convidado 26/9/2014, 08:41

    Bom dia,

    Ainda bem que pude ajudar...... Cool
    Estamos aqui para ajudar e ser ajudado....

    Não se esqueça de marcar este tópico como [RESOLVIDO].
    O Fórum agradece.

    Conteúdo patrocinado


    [Resolvido]Importar Excel para Access via VB Empty Re: [Resolvido]Importar Excel para Access via VB

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 06:07