Problem Datenübernahme WS2500 -> VantagePro

[schrotti]

Hallo,

ich möchte von der WS2500 auf die VantagePro umstellen.
Nun habe ich mich nach folgender Anleitung gerichtet:

http://faqprobs.wernerneudeck.de/anleitung6.html#f73

Abschnitt "ich meine Daten beim Stationswechsel übertragen kann"

Leider hat es nicht ganz geklappt. Die Aussentemperartur wurde nicht mit übernommen. Sie liegt bei der WS2500 auf ID3.
Im VantagePro Modus liegt die Aussentemperatur auf ID2.

Wie kann man die WS2500-Daten auf die ID2 bringen?

Vielen Dank!

Grüße
André

[rabit]

Vielleicht:
In der Export-Datei die Kopfzele ändern. Also den Text "ID3" auf "ID2". Den anderen ID2 irgendwohin.
Habe es ähnlich gemacht, aber im Moment nicht greifbar.

[schrotti]

Ja, das geht. Ich wollte aber vermeiden in allen Monatsdateien den Kopf zu ändern.
Das wären immerhin fast 90 Dateien.

Danke,
Grüße
André

[rabit]

Habe mir damals ein Script geschrieben, allerdings braucht das Python 2.6 oder 2.7.

[schrotti]

Hallo,

ich habe es jetzt mit Excel VBA geschafft.
Mit dem folgenden Code wird in allen Dateien in einer Batchverarbeitung die ID von 3 auf 2 geändert:

Code: Alles auswählen

Sub OpenFiles()
  Dim MyFile As String
  'Festlegung Laufwerk
  MyFile = Dir$("C:\wswin_v\AllData\CSV\*.CSV")
   Do
    'Öffnen der CSV-Datei im Ordner
    Workbooks.Open Filename:="C:\wswin_v\AllData\" & MyFile
    'Ändern eine bestimmten Zelle
    Range("A4").Select
    ActiveCell.FormulaR1C1 = ";;1;2;5;7;9;17;19;21;23;25;33;34;35;36;37;38;39;42"
    Range("C5").Select
    Application.DisplayAlerts = False
    'Abspeichern und Schließen
    ActiveWorkbook.SaveAs Filename:="C:\wswin_v\AllData\CSV\Save\" & MyFile
    ActiveWorkbook.Close
    MyFile = Dir
  Loop Until MyFile = ""
End Sub

Das hilft dann vielleicht auch anderen!

Grüße
André