|
Hallo zusammen,
ich habe eine Textdatei:(auszug der Problemstelle)
0,94167 1521
0,95000 1478
0,95833 1456
0,96667 1461
0,97500 1496
0,98333 1557
0,99167 1628
1,00000 1704
1,00833 1776
1,01667 1837
1,02500 1877
1,03333 1876
1,04167 1831
1,05000 1765
1,05833 1688
und habe nun eine importroutine geschrieben um die erste Spalte in eine Exceldatei einzufügen:
Spalte = 1
J = 3
k = 3
l = 3
Open "D:\Dropbox\Diplomarbeit\HPLC-ERgebnisse\Messergebnisse 151026 und 151103\Sven001.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
If InStr(temp, "295nm") > 0 Then
Schalter = 1
End If
Do While Schalter = 1 And Not EOF(1)
Line Input #1, temp2
If InStr(temp2, "[LC") > 0 Then
l = J
Schalter = 0
Spalte = Spalte + 1
J = 3
k = 3
Exit Do
End If
txtarray = Split(temp2, vbTab)
If UBound(txtarray) + 1 > 0 Then
Cells(J, Spalte) = txtarray(LBound(txtarray))
J = J + 1
End If
Loop
Loop
Close #1
Da noch einiges mehr in der Datei steht dienen Teile des Programms dazu, Anfang und Ende der Importstelle zu finden. Das Klappts soweit auch alles nur
Problem:
in Excel sieht es dann so aus
|
0,95000 |
|
0,95833 |
|
0,96667 |
|
0,97500 |
|
0,98333 |
|
0,99167 |
|
100000,00 |
|
100833,00 |
|
101667,00 |
|
102500,00 |
|
103333,00 |
|
104167,00 |
Wie kann ich verhindern, dass er aus 1,00833 100833 macht?
Vielen Dank im Vorraus
Gruß Sven
|