[Resolvido]Transferência Excel para Access

Boas.

estou com um problema. Necessito de importar os dados de um excel para tabela de Access para fazer o tratamento.

Estou a usar o código:

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 & "temp.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

No entanto não me está a dar certo devido á instrução (DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9,strTable, strPathFile, blnHasFieldNames)
Tendo em conta que o tamanho do meu Excel pode variar quer em colunas e linhas
1) A tabela no meu programa em Access na qual se destina os dados da folha Excel deve ter alguma formatação especial??

Veja se ajuda

http://office.microsoft.com/pt-pt/excel-help/transferir-copiar-importar-exportar-dados-entre-o-excel-e-o-access-HA010096300.aspx

http://forum.zwame.pt/showthread.php?t=223601&page=1

se não estou enganado esse código é do Grande JPaulo, no repositorio de 102 codigos VBA.

Importar Excel para Access

nesse txt lá, tem 4 codigos diferentes, estude-os e teste-os que quase de certeza que resolve o seu problema.

http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access

Obrigado ...jáconsegui resolver