[Resolvido]Importação de Excel para o Access

Bom dia amigos!

Sei que existem vários post's com este tema mas não consegui utilizando os exemplos e o anexo eu não consigo baixar pois aqui no trabalho é bloqueado...

Preciso muito da ajuda de vocês...

Estou tentando subir uma planilha em Excel para o Access... Estou utilizando o seguinte código, mas não da erro e nem são importadas as informações...

Private Sub atualiza_4DBV36(varq As String)
'DoCmd.OpenForm "Mensagem", acNormal 'Form mensagem de espera
Dim wsp As Workspace, vLinha As String, vArquivo As String
Dim vNomeArquivo As String, pos As Integer, qtdlin As Long, fimarq As Integer
Dim appExcel As Object, wb As Object, sh As Object
Dim strValue As String, strTable As String

vNomeArquivo = varq
pos = InStr(vNomeArquivo, "\")
Do While pos <> 0
vNomeArquivo = Mid(vNomeArquivo, pos + 1)
pos = InStr(vNomeArquivo, "\")
Loop

DoCmd.SetWarnings False
Set wsp = DBEngine.Workspaces(0)
wsp.BeginTrans

Dim strPathFile As String, strFile As String, strPath As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True
strPath = varq ' drive onde se situa o seu documento excel
strTable = "tb4DBV36" 'nome da tabela no seu banco
strFile = Dir(strPath & "4DBV36.xls") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel_
que estiverem em C:\ para a tabela do banco.
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop

End Sub


Alguém pode me ajudar?

Ola Cibele;

Veja este ultimo tópico;

http://maximoaccess.forumeiros.com/t5488-importacao-automatizada-de-excel-para-access

Obrigada JPaulo...este era o único post que eu não havia achado!

Valew, obrigado pelo retorno o forum agradece.