Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Ergebnis 1 bis 2 von 2

Thema: VBA - Wie funktioniert das in VBS - Win CC?!

  1. #1
    Anonymous Gast

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    habe follgendes programm in vba(excel) müsste das in wincc zum laufen bringen...
    Sub test()
    Dim Dateiname As String
    Dim strtmp As String
    Dim HEUTE As Date
    Dim Jetzt As Date
    Dim Eintrag As String
    Dim BTAKKZ, BTFAUN, BTXUNT, BTAPNR, BTIDNR, BTMEKZ As String
    Dim BTYUNV, BTYUNB, BTYSTT, BTYENT As String ' Datum
    Dim BTUNZV, BTUNZB, BTSZTT, BTEZTT As String ' Uhrzeit
    Dim BTPONR As Integer
    Dim BTVBME As Currency
    Dim Auftragsnummer, Teilenummer As String ' WinCC Variable
    Dim Chargennummer As Integer ' WinCC Variable
    Dim Verbrauchsmenge As Currency ' WinCC Variable evt auch single
    Dim Einheit As String 'WinCC Variable max 2Zeichen

    HEUTE = Date
    Jetzt = Time

    'Vorläufige Parameterversorgung statt WinCC Variable
    Auftragsnummer = "BUE0815"
    Teilenummer = "4711FH" 'von Masterplatte
    Chargennummer = 1
    Verbrauchsmenge = 222.33
    Einheit = "kg"

    Dateiname = "c:\AccessÜbungen\G10_" & Format(HEUTE, "ddmmyyyy") & ".csv"
    MsgBox Dateiname

    ' Snapshot bei Charge Start
    BTAKKZ = "AS"
    BTFAUN = Auftragsnummer
    BTXUNT = ""
    BTYUNV = "" 'Format(HEUTE, "dd.mm.yyyy")
    BTUNZV = "" 'Format(Jetzt, "hh:mm:ss")
    BTYUNB = "" 'Format(HEUTE, "dd.mm.yyyy")
    BTUNZB = "" 'Format(Jetzt, "hh:mm:ss")
    BTAPNR = "G10"
    BTPONR = Chargennummer
    BTYSTT = Format(HEUTE, "dd.mm.yyyy")
    BTSZTT = Format(Jetzt, "hh:mm:ss")
    BTYENT = "" 'Format(HEUTE, "dd.mm.yyyy")
    BTEZTT = "" 'Format(Jetzt, "hh:mm:ss")
    BTIDNR = Teilenummer
    BTVBME = Verbrauchsmenge
    BTMEKZ = Einheit
    Eintrag = BTAKKZ & "," & BTFAUN & "," & BTXUNT & "," & BTYUNV & "," & BTUNZV & "," & BTYUNB & "," & BTUNZB & "," & BTAPNR & "," & BTPONR & "," & BTYSTT & "," & BTSZTT & "," & BTYENT & "," & BTEZTT & "," & BTIDNR & "," & BTVBME & "," & BTMEKZ

    Open Dateiname For Append As #1
    Print #1, Eintrag

    ' Sollwerte aus WinCC TRM_Anteil, TRM_Massenstrom, TRM1, MTRM1..4, TRADD1, MTADD1..4, NAM,Dichte, Niveau , Solltemperatur, NAADD1, NAADD2,MNAM, MNAADD1, MNAADD2


    Close #1
    End Sub

    nun das problem, win cc kennt weder den befehl dim ... as string (anweisungsende erforderlich?!) noch die open funktion...kann da jmd helfen?!
    Zitieren Zitieren Gelöst: VBA - Wie funktioniert das in VBS - Win CC?!  

  2. "vbscript ist es völlig egal ob eine variable eine zahl oder ein string ist.
    also einfach so: DIM Dateiname

    eine datei zum beschreiben öffnest du so:
    Set MyFiles = CreateObject("Scripting.FileSystemObject")

    Set TextFile1 = MyFiles.CreateTextFile(Dateiname[, Überschreiben[, Unicode]])
    bzw so
    Set TextFile1 = MyFiles.OpenTextFile(Dateiname[, E/A-Modus[, Erstellen[, Format]]])
    modus=1=lesen, modus=8=anhängen

    google mal nach "VBScript-Sprachverzeichnis""


  3. #2
    Registriert seit
    20.06.2003
    Ort
    Sauerland.NRW.Deutschland
    Beiträge
    4.866
    Danke
    78
    Erhielt 805 Danke für 548 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    vbscript ist es völlig egal ob eine variable eine zahl oder ein string ist.
    also einfach so: DIM Dateiname

    eine datei zum beschreiben öffnest du so:
    Set MyFiles = CreateObject("Scripting.FileSystemObject")

    Set TextFile1 = MyFiles.CreateTextFile(Dateiname[, Überschreiben[, Unicode]])
    bzw so
    Set TextFile1 = MyFiles.OpenTextFile(Dateiname[, E/A-Modus[, Erstellen[, Format]]])
    modus=1=lesen, modus=8=anhängen

    google mal nach "VBScript-Sprachverzeichnis"
    .
    mfg Volker .......... .. alles wird gut ..

    =>Meine Homepage .. direkt zum Download

    Meine Definition von TIA: Total Inakzeptable Applikation

Ähnliche Themen

  1. Wie funktioniert ein Kaltwassersatz?
    Von veritas im Forum Stammtisch
    Antworten: 8
    Letzter Beitrag: 13.07.2014, 10:09
  2. MID-FC in SCL funktioniert nicht
    Von nobby_nobbs im Forum Simatic
    Antworten: 6
    Letzter Beitrag: 19.03.2009, 02:14
  3. MMC funktioniert nicht
    Von MesSen-Nord im Forum Simatic
    Antworten: 3
    Letzter Beitrag: 23.10.2008, 11:06
  4. Wie funktioniert PLCSIM?
    Von Drain im Forum Simatic
    Antworten: 10
    Letzter Beitrag: 17.07.2008, 13:18
  5. Wie funktioniert das mit TD 200?
    Von maxi im Forum Simatic
    Antworten: 10
    Letzter Beitrag: 05.07.2006, 16:02

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •