MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Importar Excel para Access via VB

    Compartilhe

    Cleniroweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Importar Excel para Access via VB

    Mensagem  Cleniroweb em Ter 23 Set 2014 - 1: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
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Importar Excel para Access via VB

    Mensagem  Roberto_1977 em Qua 24 Set 2014 - 7:33

    Bom dia,

    Eu adaptei um exemplo para ver se é isso que pretende, só tem que colocar a folha excel junto a sua BD.
    Anexos
    Excel.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (67 Kb) Baixado 56 vez(es)

    Cleniroweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Importar Excel para Access via VB

    Mensagem  Cleniroweb em Sex 26 Set 2014 - 0: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
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Importar Excel para Access via VB

    Mensagem  Roberto_1977 em Sex 26 Set 2014 - 4: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.

      Data/hora atual: Sex 15 Dez 2017 - 13:43