[Resolvido]Importar de Excel para Access

Boa tarde a todos,

Venho mais uma vez pedir a vossa ajuda...

Parece fácil, mas não consigo achar um meio de o fazer..

Preciso de importar dados um um ficheiro excel: "FileX", folha: "SheetY", coluna "B:B" para uma tabele access: "tbl_DataZ", coluna: "Dados"

O procedimento seria num formulário access.

O nome do ficheiro excel, folha excel e coluna excel são variáveis, como tal, no form onde irá ocorrer a ordem de importação tem 3 campos que serão pré-preenchidos com:
txtLivro: path do ficheiro excel; txtFolha: nome da folha excel e txtColumn: designação da coluna a importar.

A tabela access é fixa, tem mais que um campo e será sempre limpa antes de cada importação.

Alguma ideia?

Olá Carlos

Já tentou a "Busca" aqui do fórum, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Veja se ajuda:
https://www.maximoaccess.com/t14182-resolvidoimportar-excel-especificando-range-e-sheet
https://www.maximoaccess.com/t32172-resolvidoinserir-conteudo-de-consulta-em-sheet-especifica-do-excel
https://www.maximoaccess.com/t612-importar-dados-do-excel-para-o-access-dao

Abraço

Boa tarde ahteixeira pelo retorno,

Já havia pesquisado no forum e encontrado os tópicos que referiu, mas não vão de encontro ao meu propósito.

Talvez eu não me tenha explicado correctamente.

O problema desta importação é que o ficheiro excel, folha e coluna não são sempre as mesmas, nem sequer o ficheiro excel sempre da mesma versão.

Por outro lado a tabela e campo da tabela a receber os dados é fixa.

Para tal, terei que criar um form com os campos para seleccionar o ficheiro a importar, de seguida seleccionar a folha de cálculo desse ficheiro e por fim o coluna dessa folha de cálculo com o nome pretendido.

Já tenho uma demo que funciona no office 2003, terei que testar em outras versões.

Código:


Dim sPath As String
Dim sSheet As String
Dim sColumn As String

sPath = Me.txtLivro
sSheet = Me.txtFolha & "$"
sColumn = Me.txtColumn

CurrentDb.Execute "INSERT INTO tbl_X ([CampoX]) SELECT [" & sColumn & "] AS [CampoX] FROM [Excel 8.0;HDR=YES;IMEX=2;DATABASE=" & sPath & "].[" & sSheet & "] AS CampoX;"


Olá Carlos,

Pode ser como tem ou também lembrei que pode ligar o Access à "tabela de excel" e depois poderia trabalhar com consulta selecionar e adicionar.
Seria como estar a trabalhar com uma tabela temporária.
Fica mais esta dica.

Abraço

Funcionou nas versões 2003 e 2007 no formato da Mensagem Nº3

Obrigado

Olá Carlos,

Obrigado pelo retorno, o fórum agradece.

Abraço