[Resolvido] Importar tabela Excel para Access - 2010

Bom dia pessoal,

Alguem sabe como posso fazer uma macro que importe uma tabela do Excel, automaticamente com a seguinte questão?

O procedimento é o mesmo da importação via menu do access (mas automatico), mas necessito que ela pare na tela de seleção de arquivo a ser importado(para que possa escolher qualquer endereço de arquivo), e que dai em diante a macro assuma novamente.

Ou existe algum comando VBA que faça isso no códico

Private Sub SeuBotao_Click()
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True
strPath = "C:\" ' drive onde se situa o seu documento excel
strTable = "tblExemplo" 'nome da tabela no seu banco

strFile = Dir(strPath & "*.xls") 'preciso que aqui tenha uma opção para procurar o arquivo, com "*.xls" ele carrega todos, e eu quero que ele defina o selecionado.

Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
End Sub


Se alguem souber como agradeço desde ja.

É o simples;

Varios exemplos:

strFile = Dir(strPath & Me.SeuCampo.Value)

strFile = Dir(strPath & "SeuLivro.xls")

strFile = Dir(strPath & DLookUp("[Nome_Campo]","Nome_Tabela","[Id_Campo]=Forms![Nome_Formulario]![Id_Campo]"))

Eu entendi o simples, mas o que eu preciso é meio complexo acho.

quero que ele abra essa tela por exemplo.

https://2img.net/r/ihimg/photo/my-images/651/abrir.png/

E depois de selecionar a planilha ele compreenda que ela é meu arquivo a ser importado.

Tentei o comando "Application.FileDialog" concatenado mas nao sei se posso fazer isso.

Coloque o ficheiro Excel em anexo, no C:\ para testar;

No banco de exemplo, pressione o botão do formulario e veja o resultado.

https://dl.dropbox.com/u/771097/Wesley.rar

Muuuuuuuuuuuuuuuito util, grande ajuda.

Sabe me dizer porque ele nao funciona fora do "C:\" ?

Caso nao saiba, isso ja é um grande avanço pra mim.

Eu testei no C:\, agora existem Drives que podem ser de Rede ou estar protegidas.

Para quem não tem o Access 2007 ou 2010;

https://www.dropbox.com/s/g22s99ywqfy62xa/Wesley_2003.rar?dl=0

A tudo bem, esta viavel e util. Obrigado pela ajuda.

Vlw demaissssss! Uma belezura de código!

Me ajudou imensamente!

Ola eu tentei aplicar esse codigo no meu formulario mais esta dando o seguinte erro
Dim JanelaDeProcura As Office.FileDialog alguem pode me ajudar???

Ola, também testei no meu BD e está dando o mesmo erro do jones99, alguém pode ajudar?

No meu BD funcionou.

Tive que ativas o seguinte: abre o Módulo Visual Basic - Ferramentas - Referências, na caixa que abrir marque como ativo "Microsoft Visual Basic for Applications Extensibility 5.3.

Bom dia JPaulo,
Obrigado por sua grande ajuda e pronto atendimento a todos.
Você pode disponibilizar o BD de exemplo novamente no DropBox?

Muito obrigado
Marcos

Ola;

Disponivel na mensagem Nº7.