Erro ao importar arquivo texto

[LeandroRoldao]

Olá, tentei localizar no fórum problema semelhante, mas não tive sucesso.

Na máquina do trabalho tenho instalado o excel 2007, e tenho uma macro que faz a importação de um arquivo de texto com local e nome variáveis.

O trecho do código é o abaixo:

With ActiveSheet.QueryTables.Add(Connection:= _

"TEXT;" & dirCaminhoArquivo & nArquivo & ".csv" _

, Destination:=Range("$A$1"))

.Name = nArquivo

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.TextFilePromptOnRefresh = False

.TextFilePlatform = 1252

.TextFileStartRow = 1

.TextFileParseType = xlDelimited

.TextFileTextQualifier = xlTextQualifierDoubleQuote

.TextFileConsecutiveDelimiter = False

.TextFileTabDelimiter = True

.TextFileSemicolonDelimiter = True

.TextFileCommaDelimiter = False

.TextFileSpaceDelimiter = False

.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _

1, 1, 1, 1, 1, 1, 1, 1)

.TextFileTrailingMinusNumbers = True

.Refresh BackgroundQuery:=False

End With[code]

O código funciona perfeitamente no 2007, mas em casa, com o excel 2010, aparece mensagem de erro dizendo que o arquivo não foi localizado.

Alguem já teve o mesmo problema e conseguiu solucionar?

Obrigado

[LeandroRoldao]

Tópico pode ser encerrado.

Resolvi o problema renomeando o arquivo, executando a macro, e depois renomeando novamente para o nome inicial. E funcionou.

Vai entender...

[Libra]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.