-> Hier kostenlos registrieren
Hallo zusammen!
Ich muss das Thema wiedermal aufnehmen, habe schon etwa 100 Beiträge hier gefunden, allerdings fehlt jedesmal der entscheidende Teil:
Eine Anlage prüft Ventile auf Funktion und die Messdaten sollen in eine Excel-Tabelle hinterlegt werden. Bei meiner Runtime funktioniert das auch schon gut, die Daten werden per Script in die Tabelle geschrieben, wobei auch die Tabelle, die Datei und auch der Ordner erst erstellt wird. Nun sind das recht viele Prüfungen pro Tag, wodurch eben sehr viele Excel-Dateien entstehen würden. Ich hätte gerne, dass ich die Datei wieder öffnen kann und diese um eine Tabelle ergänze, dann die Daten eintragen und wieder speichern und schliessen.
Wie gesagt, das Grundprinzip hab ich:
Zwischen "AB HIER TEST" und "ENDE TEST" bin ich nun dran. Denn wenn die Datei einmal geöffnet und geschlossen wurde, kann ich sie nicht mehr öffnen bzw. bekomme eben keine weitere Tabelle zugefügt. Für jeden Prüfling hätte ich gerne nur eine neue Tabelle und nicht eine komplett neue Excel-Datei.
Also falls jemand helfen kann, wäre ich sehr dankbar, sitze schon Tage dran, VBS ist auch neu für mich, aber das obenstehende hab ich ja schon mal.
was ich nachher habe: WCF 2008 Adv, MP277 Key per Ethernet mit Rechner mit fester IP verbunden.
Nice day!
Ich muss das Thema wiedermal aufnehmen, habe schon etwa 100 Beiträge hier gefunden, allerdings fehlt jedesmal der entscheidende Teil:
Eine Anlage prüft Ventile auf Funktion und die Messdaten sollen in eine Excel-Tabelle hinterlegt werden. Bei meiner Runtime funktioniert das auch schon gut, die Daten werden per Script in die Tabelle geschrieben, wobei auch die Tabelle, die Datei und auch der Ordner erst erstellt wird. Nun sind das recht viele Prüfungen pro Tag, wodurch eben sehr viele Excel-Dateien entstehen würden. Ich hätte gerne, dass ich die Datei wieder öffnen kann und diese um eine Tabelle ergänze, dann die Daten eintragen und wieder speichern und schliessen.
Wie gesagt, das Grundprinzip hab ich:
Code:
Dim IP
Dim FrgName
Dim OrdnerName
Dim DateiName
Dim erw
Dim pfad
'Parameter für Skript
IP = "192.168.1.10"
FrgName = "ewj"
OrdnerName = "zgt"
DateiName = "asd"
erw = ".xls"
pfad = "\\" & IP & "\" & FrgName & "\" & OrdnerName
Dim fso
Dim fil
Dim ord
Dim xlApp
Dim xlWB
Dim xlWS
'File-Objekt erstellen
Set fso = CreateObject("Scripting.FileSystemObject") 'File-Objekt erstellen
'Ordner erstellen, sofern nicht vorhanden
If Not fso.FolderExists(pfad) Then
Set ord = fso.CreateFolder(pfad) 'Ordner erstellen
End If
'Excel-Applikationen
Set xlApp = CreateObject("Excel.Application") 'Excel-Applikation aufrufen
xlApp.Visible = True 'Sichtbarkeit von Excel
'Excel-Datei erstellen, sofern nicht vorhanden
If Not fso.FileExists(pfad & "\" & DateiName & erw) Then
Set xlWB = xlApp.Workbooks.Add() 'Datei erstellen
xlWB.SaveAs(pfad & "\" & DateiName & erw) 'Datei speichern unter bestimmten Namen
End If
'Worksheet erstellen und Namen vergeben
Set xlWS = xlWB.Worksheets.Add 'Tabelle aussuchen
xlWS.name = (DateiName) 'Tabellennamen ändern
'AB HIER TEST
Dim xlWS2
Set xlWS2 = xlWB.Worksheets.Add
xlWS2.name = ("11123")
'ENDE TEST
'Rohtabellen löschen
If Not xlWB.Worksheets("Tabelle1") Is Nothing Then
xlWB.Worksheets("Tabelle1").Delete
End If
If Not xlWB.Worksheets("Tabelle2") Is Nothing Then
xlWB.Worksheets("Tabelle2").Delete
End If
If Not xlWB.Worksheets("Tabelle3") Is Nothing Then
xlWB.Worksheets("Tabelle3").Delete
End If
'Daten eintragen
xlWS.range("c3").Value = "Name"
xlWS.range("d3").Value = "Jehle"
xlWS.range("c4").Value = "Vorname"
xlWS.range("d4").Value = "jippie"
xlWS.range("c5").Value = "Alter"
xlWS.range("d5").Value = "sag ich nich"
xlWS.range("c6").Value = "Song"
xlWS.range("d6").Value = "Pokerface"
xlWS.range("c7").Value = "noch mehr Text"
xlWS.range("d7").Value = "und noch mehr..."
xlWS.range("c8").Value = "Name 1"
xlWS.range("d8").Value = "Name 2"
'Datei speichern und schliessen
xlApp.ActiveWorkbook.Save 'Datei speichern
xlApp.ActiveWorkbook.Close 'Datei schliessen
xlApp.ActiveWorkbook.Quit
xlApp.Quit 'Excel beenden
xlApp.Visible = False 'Sichtbarkeit von Excel
Set xlApp = NothingAlso falls jemand helfen kann, wäre ich sehr dankbar, sitze schon Tage dran, VBS ist auch neu für mich, aber das obenstehende hab ich ja schon mal.
was ich nachher habe: WCF 2008 Adv, MP277 Key per Ethernet mit Rechner mit fester IP verbunden.
Nice day!
