Importar várias planilhas excel

(coloquei isso no tópico original, mas ele já está como "resolvido", então posto novamente)


Buenas!
Peguei este código do João Paulo:

Sub Importa10030()

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 = "10030_PlanilhasImportadas" 'nome da tabela no seu banco
strFile = Dir(strPath & "*.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


Bacana. Importa legal, mas insere várias linhas em branco na tabela. Nada que não possa ser resolvido com uma consulta exclusão.
Porém, quero entender porque isso acontece, e saber se posso matar a questão na origem.

Amigo, ja tentou importar via Macro??