Wie öffne, lese, schreibe und schließe ich diese Datei?
GRuß Werner
GRuß Werner
ich Vermute mal Du kennst Dich mit VBA aus. Hier mal eine Anleitung, ich glaube von Jörg Lorenz
255. INI Datei Rechnungsnummer
'Nummer aus Textbox in ini schreiben:
Private Sub CommandButton1_Click()
Open "c:\eigene dateien\lfdNr.ini" For Output As #1
Print #1, TextBox1.Text
Close
End Sub
'Nummer aus ini lesen:
Private Sub CommandButton2_Click()
On Error Resume Next 'falls Datei nicht existiert
Open "c:\eigene dateien\lfdNr.ini" For Input As #1
Input #1, txt
Close
TextBox1.Text = txt
End Sub
'Nummer in Textbox um 1 erhöhen:
Private Sub CommandButton3_Click()
TextBox1.Text = TextBox1.Text + 1
End Sub
Gruß Hajo
vielen Dank. Ich habe ein veraltetes VBA-Handbuch in dem gesagt wird, daß *.ini-Dateien nur unter Word funktionieren.
Jetz habe ich noch eine Frage:
wie bekomme ich es im nachfolgenden Code gebacken, daß der Monat 2-stellig übergeben wird?
strActMonth = Month(Now())
Gruß Werner
als Dateityp kann auch TXT stehen
Gruß Hajo