Inhalt aus einer Textdatei in Zelle...

Hallo Forum,
ich habe eine Exceldatei mit einem Diagramm welches sich (logisch) seine Daten aus bestimmten Zellen holt.
Einer dieser Werte wird von einem anderen Programm alle 5 sek. in eine Datei geschrieben. (einfache Textdatei, nur ein wert, eine 3-4 Stellige Zahl ganz am anfang links oben, weiter nichts)
Jetzt würde ich gerne alle 10 sek den Wert in der Zelle, sagen wir B3, von einem VB Makro aus der Textdatei holen lassen, sodass sich mein Diagramm aktualisiert.
Ist sowas möglich?
Auch wäre für mich der umgekehrte Weg interessant, sprich alle 10s soll er schauen was in Zelle D17
steht (0 oder 1) und das in eine Datei schreiben. (Evtl. in UNC Pfad?)
Das ganze ist für eine Poolpumpenautomatisierung. Wasserstand abfragen, daher Diagramm mit Füllstand. Und wenn dann ein bestimmter Pegel erreicht ist, soll eine Pumpe Schalten.
Excel ist bestimmt ein komplizierter Weg für sowas aber es ist halt einfacher das Drumherum zu gestalten da ich kein Programmierer bin.
Viele Dank für eure Hilfe!
Beste Grüße Daniel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi Daniel,
schreibe diesen Code in ein allgemeines Modul:

Option Explicit
Public DaEt As Date
Sub Zeitmakro()
Ausfuehren
'   Code für Zeitmakro von HajoZiplies
DaEt = Now + TimeValue("00:00:10")
Application.OnTime DaEt, "Zeitmakro"
End Sub
Sub Ausfuehren()
Dim strAusgang As String
Dim Fso
Dim fsoDatei
Open "C:\Test\Test.txt" For Input As #1
Input #1, strAusgang
Close
With Worksheets("Tabelle1")
.Range("B3") = CDbl(strAusgang)
Set Fso = CreateObject("Scripting.FileSystemObject")
Set fsoDatei = Fso.OpenTextFile("C:\Test\Text2.txt", 2, True)
fsoDatei.Write .Range("D17")
fsoDatei.Close
End With
Set Fso = Nothing
Set fsoDatei = Nothing
End Sub

Dateinamen und Pfad musst du natürlich anpassen.
Und diesen Code in das Codemodul DieseArbeitsmappe:

Option Explicit
Private Sub Workbook_Open()
Zeitmakro
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime EarliestTime:=DaEt, Procedure:="Zeitmakro", Schedule:=False
End Sub

Zu dem Teil deiner Frage: "Evtl. in UNC Pfad?" kann ich nichts sagen, deshalb lasse ich den Beitrag offen.

Beliebteste Forumthreads (12 Monate)

Inhalt aus einer Textdatei in Zelle...

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

408 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Inhalt aus einer Textdatei in Zelle...

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

408 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread