stigi Geschrieben 23. Juli 2008 Geschrieben 23. Juli 2008 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 Zitieren
stigi Geschrieben 23. Juli 2008 Autor Geschrieben 23. Juli 2008 hat sich erledigt, habs mit den Funktionen formatnumber und replace alleine hinbekommen :beagolisc Zitieren
Empfohlene Beiträge
Dein Kommentar
Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.