Dames en heren,
Ik zit met het volgende probleem. Ik heb specifieke gegevens nodig uit een text bestand. Deze gegeven staan in de 0,00% format. Echter als het percentage lager is dan 1% dus bv 0,19% dan staat er in de tekstfile ,19%. Als ik dit inlees in Excel via onderstaande code slaat excel dit op als text en niet als nummer. Als het getal groter of gelijk is aan 1%dan gaat het wel goed. Ik heb al verschillende dingen geprobeerd maar het blijft als text binnen komen. Hebben jullie een idee hoe dit netjes op te lossen.
Korte toelichting op de code. Er staat een nummer in de excelfile. Dit nummer moet worden opgezocht in de txt file. In de eerste regel onder dit nummer waarin het woord "TOTAL" staat moet de inhoud van de tiende kolom maar rechts worden opgezocht en in de kolom naast het nummer in de excelfile worden geplaatst. Ik hoor graag van jullie.
Ik zit met het volgende probleem. Ik heb specifieke gegevens nodig uit een text bestand. Deze gegeven staan in de 0,00% format. Echter als het percentage lager is dan 1% dus bv 0,19% dan staat er in de tekstfile ,19%. Als ik dit inlees in Excel via onderstaande code slaat excel dit op als text en niet als nummer. Als het getal groter of gelijk is aan 1%dan gaat het wel goed. Ik heb al verschillende dingen geprobeerd maar het blijft als text binnen komen. Hebben jullie een idee hoe dit netjes op te lossen.
Korte toelichting op de code. Er staat een nummer in de excelfile. Dit nummer moet worden opgezocht in de txt file. In de eerste regel onder dit nummer waarin het woord "TOTAL" staat moet de inhoud van de tiende kolom maar rechts worden opgezocht en in de kolom naast het nummer in de excelfile worden geplaatst. Ik hoor graag van jullie.
Code:
Set Data = ActiveWorkbook
Workbooks.OpenText Filename:="C:\test\test.txt", Origin:=437, StartRow:=1, _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(6, 1), Array(23, 1), _
Array(46, 1), Array(63, 1), Array(74, 1), Array(88, 1), Array(103, 1), Array(121, 1), Array _
(148, 1), Array(168, 1), Array(177, 1), Array(187, 1)), TrailingMinusNumbers:=True
Set vb = ActiveWorkbook
Data.Activate
For Each x In Sheets("Data").Range("A2", "A11")
vb.Activate
Cells.Find(What:=x.Value, after:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Cells.Find(What:="TOTAL", after:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
gegeven = ActiveCell.Offset(0, 10).Value
Data.Activate
x.Offset(0, 1).Value = gegeven
Next x
Sheets("Data").Activate
Range("B2:B11").Select
Selection.NumberFormat = "0,00%"