[Resolvido]Importação Excel para Access

Boa Tarde!

Após muitas pesquisas encontrei o código abaixo para importação de dados de uma planilha Excel para Access, porém, o código roda e aparece a mensagem que a importação foi concluída, e quando abrimos o banco de dados os dados da importação não estão importados.

Código:

Private Sub btn_import_reclamacao_Click()
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True
strPath = "C:\Users\mauricio.bruno\Desktop\BACKUP\27.2\IRM\Importação" 'O DRIVE ONDE SE SITUA O SEU DOCUMENTO EXCEL
strTable = "Tbl_Chamado_SAC" 'NOME DA TABELA NO BANCO
strFile = Dir(strPath & "Importação Reclamações - Plusoft.xls") 'NOME DO EXCEL, SE MUDAR PARA "*XLS" IMPORTA TODAS AS FOLHAS QUE ESTIVEREM NO DIRETÓRIO PARA A TABELA DO BANCO.
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
MsgBox "Processo Concluído!!!", vbInformation, "Concluído"

End Sub

Agradeço desde já, pela ajuda.

Amigo, na certa e algum problema relacionado ou a sua tabela ou a seu Banco de dados... Pois eu mesmo ja testei esse codigo algumas vezes!

Posta o Aplicativo e a planilha!

Fábio,

Segue o arquivo solicitado, na tela inicial quando você clica no botão importar ela aparece somente a mensagem que foi concluído, porém, quando verificamos na tabela o arquivo não importou.

Desde já, agradeço pelo ajuda.

Amigo, sem a planilha que quer importar nao da pra lhe ajudar!

Fabio,

Desculpe!
Coloquei um novo arquivo em anexo

Grato,

Amigo achei dois erros!
Ambos relacionado ao Local do Arquivo.

Mude para:

Código:


'IMPORTAÇÃO PLUSOFT
Private Sub btn_import_reclamacao_Click()
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True
strPath = CurrentProject.Path & "\Importação\" 'faltava uma barra final\
strTable = "Tbl_Chamado_SAC" 'NOME DA TABELA NO BANCO
strFile = Dir(strPath & "Importação Reclamações - Plusoft.xlsx") 'Estava .xls
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
MsgBox "Processo Concluído!!!", vbInformation, "Concluído"

End Sub


Nesse exemplo que me mandou, atualize com esse código, e deixe a pasta Importação na mesma pasta do Aplicativo... E dentro dela a planilha excel!

Observe os comentários de onde haviam os erros!

Existem exemplos inclusive postado por mim, onde e possível localizar a planilha a ser importada. Veja no repositório!

Fabio,

Muito Obrigado! Funcionou.

Grato pelo retorno amigo, até a próxima se Deus Quiser!