Hallo zusammen. Hier erstmal mein aktueller Quellcode:

' --- Konstanten

Const cForReading = 1 

Const cForWriting = 2

Const cForAppending = 8


' --- Variablen

dim i 

dim objExcel

dim objFSO

dim objTextFile

dim strTemp

dim strLeer

dim strNull


' Puffer Leerzeichen

strLeer = "                                                                      "

strNull = "000000000000000000000000000000000000000000000000000000000"


' Textdatei zum Schreiben oeffnen

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile ("E:\cellscript\guestamm3_endversion.dat", cForWriting)




' Objekt von Excel bilden

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = false

' Die Datei oeffnen

objExcel.Workbooks.Open ("E:\cellscript\Güterstamm3_B_S.xls")


' Von 1 bis 1000 Zeilen

for i = 1 to 1000


	' Ist Zelle A i = leer, dann ende

	if objExcel.Range("A" & i).value ="" then 

		exit for


	else	' Ansonsten schreibe in Textdatei

		strTemp = objExcel.Range("A" & i).value _

		& objExcel.Range("B" & i).value & "              " _

		& objExcel.Range("C" & i).value _

		& objExcel.Range("D" & i).value & "        "  _

		& objExcel.Range("E" & i).value _

		& objExcel.Range("F" & i).value & "                   " _

		& objExcel.Range("G" & i).value _

		& objExcel.Range("H" & i).value & "  " _

		& objExcel.Range("I" & i).value _

		& objExcel.Range("J" & i).value _

		& objExcel.Range("K" & i).value _

		& objExcel.Range("L" & i).value & "    " _

		& objExcel.Range("M" & i).value _

		& objExcel.Range("N" & i).value & "  "_

		& objExcel.Range("O" & i).value _

		& objExcel.Range("P" & i).value _

		& objExcel.Range("Q" & i).value _

		& objExcel.Range("R" & i).value & "    " _

		& objExcel.Range("S" & i).value _

		& objExcel.Range("T" & i).value & "  " _

		& objExcel.Range("U" & i).value _

		& objExcel.Range("V" & i).value _

		& objExcel.Range("W" & i).value _

		& objExcel.Range("X" & i).value & "    " _

		& objExcel.Range("Y" & i).value _

		& objExcel.Range("Z" & i).value & "  " _

		& objExcel.Range("AA" & i).value & "   " _

		& objExcel.Range("AB" & i).value _

		& objExcel.Range("AC" & i).value _

		& objExcel.Range("AD" & i).value & "     " _

		& objExcel.Range("AE" & i).value _

		& objExcel.Range("AF" & i).value & "       " _

		& objExcel.Range("AG" & i).value _

		& objExcel.Range("AH" & i).value _

		& objExcel.Range("AI" & i).value & "         " _

		& objExcel.Range("AJ" & i).value _

		& objExcel.Range("AK" & i).value _

		& objExcel.Range("AL" & i).value _

		& objExcel.Range("AM" & i).value & "     " _

		& objExcel.Range("AN" & i).value _

		& objExcel.Range("AO" & i).value _

		& objExcel.Range("AP" & i).value _

		& objExcel.Range("AQ" & i).value _

		& objExcel.Range("AR" & i).value & left(strLeer,40-len(cstr(objExcel.Range("AR" & i).value))) _

		& objExcel.Range("AS" & i).value _

		& objExcel.Range("AT" & i).value _

		& objExcel.Range("AU" & i).value _

		& objExcel.Range("AV" & i).value _

		& objExcel.Range("AW" & i).value _

		& objExcel.Range("AX" & i).value _

		& objExcel.Range("AY" & i).value _

		& objExcel.Range("AZ" & i).value _

		& objExcel.Range("BA" & i).value _

		& objExcel.Range("BB" & i).value _

		& objExcel.Range("BC" & i).value _

		& objExcel.Range("BD" & i).value _

		& objExcel.Range("BE" & i).value _

		& objExcel.Range("BF" & i).value _

		& objExcel.Range("BG" & i).value _

		& objExcel.Range("BH" & i).value _

		& objExcel.Range("BI" & i).value _

		& objExcel.Range("BJ" & i).value _

		& objExcel.Range("BK" & i).value _

		& objExcel.Range("BL" & i).value _

		& objExcel.Range("BM" & i).value _


		objTextfile.WriteLine strTemp

	end if

next



objExcel.Application.Quit

Jetzt habe ich das Problem, dass z.B. in Feld "J" eine Zahl steht die folgendermaßen formatiert ist: 00000,00 - also z.B. 00005,50

Leider hab ich nun in meiner dat file als exportierten Wert "5,5" stehen.

So - wie stell ich das jetzt an, dass

1. die Zahl 1:1 so übernommen wird wie is in der Excel File steht?

2. wie kann ich automatisch das "," durch einen "." ersetzen?

Bitte ausführlich erklären, da ich VB eigentlich gar nicht kann und mir obiges nur aus verschiedenen Codebeispielen zusammenkopiert hab

hat sich erledigt, habs mit den Funktionen formatnumber und replace alleine hinbekommen :beagolisc