xml mittels VBA in Excel einlesen, Komma falsch
20.10.2005 21:12:58
Derek
ich habe eine Frage. Ich habe ein Makro geschrieben, mit dem ich so einige xml-Dateien jeweils nacheinander in eine Excel-Tabelle einlese. Alles klappt eigenlich auch ganz gut, ich habe nur ein dickes Problem: Und zwar wird aus Werten, die sehr viele Nachkommastellen (z.B. 15,846545846546) haben, beim Öffnen in Excel via VB-Makro eine Zahl mit wissenschaftlicher Schreibweise (zB 1,584654 E14), obwohl sie doch ein Wirklichkeit viel kleiner ist :).
Ich habe schon sehr viel probiert. Wenn ich die xml-Datei "von Hand" in Excel öffne, ist alles in Ordnung mit dem Komma, aber bei mehr als 1000 Dateien möchte ich das nicht.
Über Hilfe würde ich mich sehr freuen.
Ich weiß nicht, ob der Code hilft, zur Sicherheit:
Sub Makro2()
Application.DisplayAlerts = False
Pfad = "H:\Partie\Partie"
For oCounter = 1 To 1428
Nummer = CStr(Format(oCounter, "0000"))
Workbooks.Open Filename:=Pfad & Nummer & ".xml"
Rows("3:3").Copy
Windows("EinlesenPartieMakro2.xls").Activate
Rows(CStr(oCounter + 1) & ":" & CStr(oCounter + 1)).Select
ActiveSheet.Paste
Cells(aRow, 41) = Partie & Nummer & ".xml"
Windows("Partie" & CStr(Format(oCounter, "0000")) & ".xml").Activate
ActiveWindow.Close
Next
Application.DisplayAlerts = True
End Sub