[Resolvido]Importar vários arquivos de Excel para uma tabela do Access

Bom dia a todos.

Mensalmente preciso realizar a importação de várias planilhas do Excel para uma tabela única Access.

Localizei aqui no Fórum uma ajuda do JP para o Ilvecchio, aonde passou o código abaixo que já alterei para adaptar a minha necessidade, criando uma tabela "importadas", com as mesmas colunas que existem no arquivo excel (anexo):


Sub Importa()

Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True

strPath = "C:\PlanilhasImportar\" ' drive onde se situa o seu documento excel
strTable = "Importadas" 'nome da tabela no seu banco
strFile = Dir(strPath & "*.xlsm") '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


********

Mas tenho dois problemas, para os quais preciso de ajuda.

1º - Meus arquivos de Excel precisam começar a partir da linha 05, pois na linha 04 ficam os títulos (pois são arquivos gerados de outras Macros).

2º - Mesmo realizando o teste de deixar o título na linha 01, a macro retorna a msg de "O campo F1 não existe na tabela de destino 'Importadas'.

Ola;

Podemos adicionar o Range a ser importado.
Muito importante, é concerteza a tabela ter os nomes exatos de cada campo do Excel, por isso o blnHasFieldNames = True

Se a tabela não existir, ele cria.

Código:

Sub Importa()
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True

strPath = "C:\PlanilhasImportar\" ' drive onde se situa o seu documento excel
strTable = "Importadas" 'nome da tabela no seu banco
strFile = Dir(strPath & "*.xlsx") '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, "A4:G1000"

strFile = Dir()
Loop

End Sub

Boa tarde,
Trabalhe o ficheiro Excel antes de o importar
Precisa do ficheiro Excel após importação? se sim, faça uma cópia para trabalhar a importação
No ficheiro a importar elimine as linhas que não precisa, através de vBA no Access
Procure aqui no fórum. já temos abordado algumas vezes (https://www.maximoaccess.com/t28851-resolvidoabrir-editar-a-planilha-em-excel-e-fecha-lo-no-vba-no-access, etc)

Muito Obrigado.

Funcionou perfeitamente.