Excel Macro altera UK data formato para formato de data nos?

Oi,
Eu já gravei uma Macro com uma grande quantidade de dados no Microsoft Excel.
Quando eu manualmente manipular os dados eu definir a coluna Data para o formato de data do UK e continuar para que o resultado final é sem problemas com os meus dados.
No entanto...
Eu gravei uma Macro para fazer isso automaticamente (sendo que o processo de manipulação pode demorar 30 minutos ou assim), mas a Macro apresenta os dados da coluna de data como nós data formato...
Eu tenho ido através do Editor do Visual Basic e não posso para a vida de mim descobrir isso...
Tem qualquer um começ respostas a por que a Macro interpreta os dados de forma diferente? O comando no editor básico mostra muito claramente o formato de data como dd/mm/aa
(Aqui é o extracto)

Rows("1:7").Selecione
Selection.Delete Shift: = xlUp
Cells.Select
Cells.EntireColumn.AutoFit
Columns("B:B").Selecione
Selection.Delete Shift: = xlToLeft
Columns("D:D").Selecione
Selection.Insert Shift: = xlToRight, CopyOrigin: = xlFormatFromLeftOrAbove
Columns("A:A").Selecione
Selection.TextToColumns Destination:=Range("A1"), DataType: = xlFixedWidth, _
FieldInfo: = Array (Array (0, 1), matriz (10, 1)), TrailingMinusNumbers: = True
Columns("A:A").Selecione
Selection.NumberFormat = "dd/mm/aa; @"

Eu simplesmente não consigo descobrir isso....
Alguém pode ajudar?

Resposta

Às vezes a seqüência de linhas de código faz a diferença. Tente substituir esta seção:

Columns("A:A").Selecione

Selection.TextToColumns Destination:=Range("A1"), DataType: = xlFixedWidth, _

FieldInfo: = Array (Array (0, 1), matriz (10, 1)), TrailingMinusNumbers: = True

Columns("A:A").Selecione

Selection.NumberFormat = "dd/mm/aa; @"

com isso:

Columns("A:A").Selecione

Selection.NumberFormat = "dd/mm/aa; @"

Selection.TextToColumns Destination:=Range("A1"), DataType: = xlFixedWidth, _

FieldInfo: = Array (Array (0, 1), matriz (10, 1)), TrailingMinusNumbers: = True

Além disso, Formatando a coluna inteira A, você está definindo 65.536 formatos ou 1.048.576 formatos, dependendo da versão do Excel que você está usando. Isso pode levar a problemas de arquivo simples tamanho inchaço para falha de Excel devido a 'excessivos formatos'. Gostaria de sugerir sempre definindo suas linhas usadas, usando o método End(xlup) ou End(xldown).