Erro importação do excel para o Acess

Pessoal,

preciso da ajuda de vcs urgente, por favor ......

utilizando inclusive um código postado pelo JP, montei o código abaixo para importar todos os arquivos ".XLS" de um diretorio especifico para o acess, onde será utilizado o nome do arquivo para dar o nome das tabelas no acess ...
Algumas das tabelas não estão sendo importadas devido ao erro : "

Run-time error ´32605`:

Your data source contains more than 255 fields(columns). Access will import only the firts 255 fields.

E depois, um botão de End ou Debug .... e fica em Looping...

Existe alguma forma de ignorar este erro, mesmo que ele realmente despreze os demais caracteres da celula ? Como posso resolver esta situação ?



Private Sub Comando6_Click()

Dim strarquivo As String


strarquivo = Dir("C:\Temp\\*.xls")


Do While strarquivo <> ""

DoCmd.TransferSpreadsheet acImport, 8, Left(strarquivo, Len(strarquivo) - 4), "C:\Temp\" & strarquivo, False, "DETALHE!"

'DoCmd.TransferSpreadsheet acImport, 8, "NomeTabelaAccess", "PathPlanilha", True, "NomeDaSheet!"

strarquivo = Dir

Loop

MsgBox ("FIM")

End Sub

Tente assim:

Private Sub Comando6_Click()

On Error GoTo TErro

Dim strarquivo As String


strarquivo = Dir("C:\Temp\\*.xls")


Do While strarquivo <> ""

DoCmd.TransferSpreadsheet acImport, 8, Left(strarquivo, Len(strarquivo) - 4), "C:\Temp\" & strarquivo, False, "DETALHE!"

'DoCmd.TransferSpreadsheet acImport, 8, "NomeTabelaAccess", "PathPlanilha", True, "NomeDaSheet!"

strarquivo = Dir

Loop

MsgBox ("FIM")

TErro:

If Err.Number = 32605 Then

Resume Next

End If

End Sub