Messwerte einer Anlage in Excel registrieren

Private Sub Timer2_Timer() ChDir c:/****/**** pdate = Right(Date,4) & Mid(Date, 2 & Left(Date, 2) Open pdate + daten****.txt For Append As 1 Print #1, Date & ,; Print #1, Time & ,; Close #1 End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Workbooks.Open "C:\DeinPfad\DeineDatei.xls" with activeworkbook.sheets(1).Cells(rows.count,1) .end(xlup).offset(1,0).value = Date .end(xlup).offset(1,0).value = Time ' ... hier dann die weiteren Daten nach gleichem Schema end with activeworkbook.save activeworkbook.close End Sub

Sub Test() dim Zeile as long Workbooks.Open "C:\DeinPfad\DeineDatei.xls" Zeile = activeworkbook.sheets(1).cells(rows.count, 1).end(xlup).row + 1 with activeworkbook.sheets(1) .cells(zeile,1).value = Date .cells(zeile,2).value = Time ' ... hier dann die weiteren Daten nach gleichem Schema end with activeworkbook.save activeworkbook.close End Sub

Sub Test() dim Zeile as long dim Dateiname as string Sheets("Tabelle2").Copy with activeworkbook.sheets(1) Zeile = .cells(rows.count, 1).end(xlup).row + 1 .cells(zeile,1).value = Date .cells(zeile,2).value = Time ' ... hier dann die weiteren Daten nach gleichem Schema end with ' --- Hier Code einfügen, in der der Dateiname zusammengestellt wird activeworkbook.saveas Dateiname activeworkbook.close End Sub

Sub Makro1() With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\TEST.txt", Destination _ :=Range("A1")) .Name = "TEST" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 850 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = True .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = True .TextFileColumnDataTypes = Array(1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub

Hallo Christian,
so wie ich das verstehe, wird für jeden Tag eine neue Datei angelegt.
In welchem Zeitabstand erfolgt denn das Einlesen der Daten?
Wenn dieser sehr kurz ist (wenige Sekunden) dann sollte die Exceldatei ständig geöffnet sein.
Gibt es schon eine Mustertabelle, wie die Exceltabelle aussehen soll. Am einfachsten ist es diese Tabelle in der gleichen Datei anzulegen, in der das Timer-Makro gespeichert ist. Dann kann man sie bei Bedarf vom Makro kopieren lassen.
Der zu programmierende Ablauf wäre:
1. Prüfen, ob die Excel-Datei schon existiert.
Wenn nein, dann neue Mappe anlegen als Kopie des Musterblatts
Wenn ja, dann prüfen, ob schon geöffnet, falls nein öffnen.
2. nächste freie Zeile im Tabellenblatt suchen
3. Daten in die Spalten schreiben
4. Datei speichern
5. Datei ggf. wieder schliessen
Was das Eintragen und Speichern der Daten angeht, kann man es ggf. auch eleganter lösen, indem man Excel als Datenbank-Objekt anspricht. Das überfordert allerdings meine VBA-Kenntnisse.
Falls die Zahlen im Textstring nicht in einem excelkompatiblen Format (problem Ländereinstellungen) übergeben werden, dann müssten ggf. auch noch entsprechende Umwandlungsroutinen eingebaut werden.
Bevor ich hier weitermache, wüßte ich schon gerne, ob dieser Ablauf den Vorstellungen entspricht.
Zum Testen sollte zumindest eine Datenzeile mit einem kompletten Datensatz aus dem erzeugten Text-File zur Verfügung stehen.
Außerdem wäre zu überlegen, ob man nicht schlicht und einfach das Textfile in eine Exceltabellenblatt importiert. Dann bräuchte man an den bestehenden Routinen nichts zu ändern.
Einmal am Tag wird dann die Txt-Datei des Vortags in ein Tabellenblatt importiert und anschließend gelöscht oder archiviert.
Gruß
Franz

hallo,


so wie ich das verstehe, wird für jeden Tag eine neue Datei angelegt.

haargenau. es soll immer eine datei für jeden tag erzeugt und beschrieben werden. Der Name soll in Analogie zum .txt erzeugt werden.


In welchem Zeitabstand erfolgt denn das Einlesen der Daten?

etwa alle 10 sekunden.


Gibt es schon eine Mustertabelle, wie die Exceltabelle aussehen soll. Am einfachsten ist es  _
diese Tabelle in der gleichen Datei anzulegen, in der das Timer-Makro gespeichert ist. Dann kann man sie bei Bedarf vom Makro kopieren lassen.
Der zu programmierende Ablauf wäre:
1. Prüfen, ob die Excel-Datei schon existiert.
Wenn nein, dann neue Mappe anlegen als Kopie des Musterblatts
Wenn ja, dann prüfen, ob schon geöffnet, falls nein öffnen.
2. nächste freie Zeile im Tabellenblatt suchen
3. Daten in die Spalten schreiben
4. Datei speichern
5. Datei ggf. wieder schliessen

Das trifft quasi genau meine vorstellungen!
Ich möchte gern in der ersten zeile die werte in der jeweiligen spalte definieren (z.B. Datum, Uhrzeit,...)
Aufgrund meiner äußerst bescheidenen kenntnisse würde ich mir an der generierung eines solchen codes die zähne ausbeißen, vielleicht kannst du mir da weiterhelfen?


Außerdem wäre zu überlegen, ob man nicht schlicht und einfach das Textfile in eine  _
Exceltabellenblatt importiert. Dann bräuchte man an den bestehenden Routinen nichts zu ändern.
Einmal am Tag wird dann die Txt-Datei des Vortags in ein Tabellenblatt importiert und anschließend gelöscht oder archiviert.

Diese Routine soll auf jeden Fall geändert werden.
Für die bereits bestehenden .txt-files habe ich exzellente hilfe von Rudi bekommen.
Danke im Voraus.
christian
PS: bei der version ist ein fehler, ich arbeite mit version 11.

Beliebteste Forumthreads (12 Monate)

Messwerte einer Anlage in Excel registrieren

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread