Ao importar um arquivo csv para o Excel, o texto é convertido em número
Estou importando um arquivo CSV para uma planilha do Excel 2010 usando algo como isto:
Set wb = Workbooks.Open(Filename:=myFile, ReadOnly:=True, Notify:=False)
Set ws = wb.Worksheets(1)
Set rRng = ws.Range("A" & CStr(iFirstDataRow) & ":" & "G" & CStr(iLastRow))
rRng.Columns(2).NumberFormat = "@"
'copy file on sheet ws1
ws1.Cells.Clear
rRng.Copy ws1.Cells(1, 1)
o problema é que uma das colunas contém números de revisão que aparecem da seguinte maneira no arquivo CSV:
0.0
1.0
2.2
2.20
Após a importação, recebo:
0
1
2.2
2.2
porque o texto foi convertido em números.
Como posso parar com isso?
Obrigado MR.
Atualizar:
O uso do método Opentext também não funciona:
Workbooks.OpenText Filename:=sFile, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, xlMDYFormat), Array(2, xlTextFormat))
Por alguma razão, o parâmetro FieldInfo é ignorado