Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
268to272
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einlesen aus Ascii-File

Einlesen aus Ascii-File
16.06.2003 17:06:50
Karl Chadim
Hallo Excel-Experten!
Ich möchte aus dem Excel heraus mittel VBA einen Zahlenwert aus einer Ascii-Datei auslesen, diesen Wert in eine bestimmte Zelle stellen und diesen Wert um 1 erhöht wieder zurück schreiben. Anschließend das Excel - File als PDF via Makro ablegen. Hat jemand eine Lösung dafür?

Herzlichen Dank
Karl Chadim


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Einlesen aus Ascii-File
17.06.2003 16:28:27
Karl Chadim

Hallo Kollegen!
Ich habe selbst die Lösung gefunden. Vielleicht brauchts wer anderer auch noch:

Sub counter_setzen()

Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, ts, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("C:\temp\rechnr.txt")
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
s = ts.ReadLine
MsgBox s
ts.Close
Set f = fs.GetFile("C:\temp\rechnr.txt")
Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
s = s + 1
ts.Write s
Cells(1, 1).Value = s
ts.Close

End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige