Importar Dados Com Formato E Já Pré-calculado

[Rijofe]

Pessoal,

Estou fazendo uma macro de Excel para importar o seguinte exemplo:

Workbooks.OpenText FileName:= _

"C:\Documents and Settings\Desktop\COTAHIST_D16102007.TXT", Origin:= _

xlWindows, StartRow:=2, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _

1), Array(2, 1), Array(10, 1), Array(12, 1))

End Sub

O que eu gostaria é que os dados já viessem importados com formatação de R$ e que por exemplo eu pegasse os dados da coluna "Array(10, 1)" e já dividisse ela por 100 na importação dos dados, algo assim:

Workbooks.OpenText FileName:= _

"C:\Documents and Settings\Desktop\COTAHIST_D16102007.TXT", Origin:= _

xlWindows, StartRow:=2, DataType:=xlFixedWidth, FieldInfo:=Array("R$" Array(0, _

1), "R$" Array(2, 1), "R$"Array(10, 1) / 100 , R$ Array(12, 1))

End Sub

Alguém pode me ajudar e sugerir como construir essa macro?

Grato,

Rijofe

[bEbEr]

tenta assim:

Workbooks.OpenText FileName:= _

"C:\Documents and Settings\Desktop\COTAHIST_D16102007.TXT", Origin:= _

xlWindows, StartRow:=2, DataType:=xlFixedWidth, FieldInfo:=Array(Format(Array(0, _

1),"##,##0.00"), Format(Array(2, 1), "##,##0.00"), Format(Array(10, 1) / 100, "##,##0.00") , Format(Array(12, 1), "##,##0.00"))

qualquer coisa posta a sua planilha ai.. fica melhor pra arrumar pra você dai..

;)

[Rijofe]

tenta assim:

Workbooks.OpenText FileName:= _

"C:\Documents and Settings\Desktop\COTAHIST_D16102007.TXT", Origin:= _

xlWindows, StartRow:=2, DataType:=xlFixedWidth, FieldInfo:=Array(Format(Array(0, _

1),"##,##0.00"), Format(Array(2, 1), "##,##0.00"), Format(Array(10, 1) / 100, "##,##0.00") , Format(Array(12, 1), "##,##0.00"))

qualquer coisa posta a sua planilha ai.. fica melhor pra arrumar pra você dai..

;)

Não funcionou, dá um erro: "Erro em tempo de execução '13' tipo incorreto, no debbuger fica amarelo a partir de " Workbooks.OpenText FileName" até antes de "End Sub"

Você tem idéia do que possa estar acontecendo?