|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.10.2010 14:58:14 |
stigger78 |
|
|
|
07.10.2010 15:51:46 |
Severus |
|
|
 Aw:Aw:Zahlenwert Textdatei schreiben und lesen |
10.10.2010 15:37:04 |
Holger |
|
|
Von:
Holger |
Datum:
10.10.2010 15:37:04 |
Views:
957 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Zahlenwert Textdatei schreiben und lesen |
Severus schrieb am 07.10.2010 15:51:46:
stigger78 schrieb am 07.10.2010 14:58:14:
Hallo
ich würde gern mal wissen wie man mit VBA
einen Zahlenwert in eine Textdatei schreiben kann
und ihn auch wieder auslesen kann. Komme da irgendwie nicht weiter :(
schonmal vielen Dank:)
gruß Stigger
Sub Test_schreiben()
Dim FSO As Object
Dim flZiel As Object
Dim DName As String
Dim Zahl As Double
DName = "C:\Tmp\Test.txt"
Zahl = 5.474
Set FSO = CreateObject("Scripting.FileSystemObject")
Set flZiel = FSO.OpenTextFile(DName, 2, True)
flZiel.WriteLine Zahl
flZiel.Close
Set flZiel = Nothing
Set FSO = Nothing
End Sub
Sub Test_lesen()
Dim FSO As Object
Dim flZiel As Object
Dim DName As String
Dim Zahl As Double
Dim Inhalt As Variant
DName = "C:\Tmp\Test.txt"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set flZiel = FSO.OpenTextFile(DName, 1, False)
Inhalt = flZiel.ReadLine
flZiel.Close
Inhalt = CDbl(Inhalt)
MsgBox Inhalt
Set flZiel = Nothing
Set FSO = Nothing
End Sub
Severus
Hallo,
wenn du das suchtest, was Severus schreibt, ist mein Beitrag überflüssig. Ich kann mir aber vorstellen, dass du die einfache Version für eine Open-Datei-for-Output-Anweisung brauchst.
Das Problem ist, dass im Deutschen das Dezimalzeichen ein Komma ist, VBA aber einen Punkt benötigt. Eine Zahl kannst du z.B. mit CStr in eine Zeichenfolge umsetzen, aber unmittelbar aus dem Code heraus muss das Dezimalzeichen ein Punkt sein. Aus einer Excel-Zelle heraus muss das Dezimalzeichen ein Komma sein, da Punkte als Trennzeichen von Tausender etc. verstanden werden und bei CStr entfernt werden.
Eine nummerische Textfolge mit Komma als Dezimalzeichen wird mit CDbl in eine Zahl umgesetzt, ist das Dezimalzeichen ein Punt mit Val.
Diese Punkt-Komma-Problematik kann einem schon den letzten Nerv kosten! Ich bin gespannt, ob ich dir helfen konnte.
Gruß
Holger
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.10.2010 14:58:14 |
stigger78 |
|
|
|
07.10.2010 15:51:46 |
Severus |
|
|
Aw:Aw:Zahlenwert Textdatei schreiben und lesen |
10.10.2010 15:37:04 |
Holger |
|
|