Seite 1 von 1

Problem Datenübernahme WS2500 -> VantagePro

Verfasst: 18 Mai 2012 12:03
von 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é

Verfasst: 18 Mai 2012 14:27
von 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.

Verfasst: 18 Mai 2012 15:30
von 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é

Verfasst: 18 Mai 2012 16:42
von rabit
Habe mir damals ein Script geschrieben, allerdings braucht das Python 2.6 oder 2.7.

Verfasst: 19 Mai 2012 07:23
von 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! :D

Grüße
André