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 Access via VB

    Compartilhe

    Cleniroweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Importar Excel para Access via VB

    Mensagem  Cleniroweb em Ter 23 Set 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.

    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, 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.
    Anexos
    Excel.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (67 Kb) Baixado 51 vez(es)

    Cleniroweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Importar Excel para Access via VB

    Mensagem  Cleniroweb em Sex 26 Set 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

    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, 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.

      Data/hora atual: Qua 07 Dez 2016, 08:38