6
Via VBS Zellformate mehrerer XLS-Dateien ändern
Hallo zusammen,
ich würde gerne eine etwas größere Menge an XLS-Dateien bearbeiten, am besten per VBS-Skript (bspw. über "send to"). Genau genommen soll jeweils eine Zelle im Format geändert werden, von Text zu Zahl, d.h. das klassische "in eine Zahl unwandeln". Als Makro in Excel intern via VBA ist das Ganze kein Problem, aber ich bekomme es nicht als VBS-Skript hin, dass es "durchrattert", ohne Excel zu öffnen.
Vielen Dank vorab für eure Hilfe!
ich würde gerne eine etwas größere Menge an XLS-Dateien bearbeiten, am besten per VBS-Skript (bspw. über "send to"). Genau genommen soll jeweils eine Zelle im Format geändert werden, von Text zu Zahl, d.h. das klassische "in eine Zahl unwandeln". Als Makro in Excel intern via VBA ist das Ganze kein Problem, aber ich bekomme es nicht als VBS-Skript hin, dass es "durchrattert", ohne Excel zu öffnen.
Vielen Dank vorab für eure Hilfe!
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 360253
Url: https://administrator.de/contentid/360253
Printed on: April 16, 2024 at 19:04 o'clock
6 Comments
Latest comment
am besten per VBS-Skript (bspw. über "send to").
strRange = "A1"
With CreateObject("Excel.Application")
.Visible = False
.DisplayAlerts = False
for each file in WScript.Arguments
With .Workbooks.Open(file).Sheets(1)
.Range(strRange).Numberformat = "0.00"
.Range(strRange).Value = CDbl(.Range(strRange).Value)
.Parent.Save
.Parent.Close
End with
Next
.DisplayAlerts = True
.Quit
End with
MsgBox "Trapattoni haben fertig geknattert.",vbInformation
Hallo fuerte, vielen Dank für deine schnelle Hilfe! Leider wift das Ganze einen Fehler aus (Zeile 9, Zeichen 15), "Die Save-Methode des Workbook-Objektes konnte nicht ausgeführt werden". Ich hole da einmal etwas aus: Es handelt sich Excel-Dateien, die aus einem Messgerät kommen. Streng genommen scheint es sich hier nicht um XLS-Dateien zu handeln, sondern um XL4-Dateien, "getarnt" als XLS 
Hast du eine Idee, wie man das löst? Bei Bedarf kann ich dir gerne eine der Dateien zukommen lassen. Besten Dank!!!
Hast du eine Idee, wie man das löst? Bei Bedarf kann ich dir gerne eine der Dateien zukommen lassen. Besten Dank!!!
Dann versuch mal ein SaveAs mit neuem Dateinamen ... Oder konvertier den Müll.
OK, das hat wohl geklappt, er speichert nun als neue Datei. Leider hat die Umwandlung jedoch nicht funktioniert. Die Zellen sind zwar nun als "Zahl" konvertiert, aber die Werte darin werden nach wie vor als Text erkannt... verrückt!
Was ich festgestellt habe: Wenn ich ein Makro in Excel aufzeichne und entsprechend bei den entsprechenden Zellen aufs kleine graue Dreieck klicke und "in eine Zahl umwandeln" wähle, wird dies nicht aufgezeichnet. Anscheinend wird dieser Befehl nicht ins Makro mitaufgenommen. Weiß jemand wieso bzw. wie ich das anders lösen kann?
So komme ich leider nicht weiter
Was ich festgestellt habe: Wenn ich ein Makro in Excel aufzeichne und entsprechend bei den entsprechenden Zellen aufs kleine graue Dreieck klicke und "in eine Zahl umwandeln" wähle, wird dies nicht aufgezeichnet. Anscheinend wird dieser Befehl nicht ins Makro mitaufgenommen. Weiß jemand wieso bzw. wie ich das anders lösen kann?
So komme ich leider nicht weiter
Geht hier einwandfrei!
Da ich so leider nicht weiterkomme, lade ich eine exemplarische "Problemdatei" einfach mal hier hoch... in der Hoffnung, dass jemand eine Lösung hat. Vielen Dank!
Link
Link
