[Resolvido]Importar Excel para Access via VB

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.

Bom dia,

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

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.

Bom dia,

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

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