' schrieb:Kannst du dir ja morgen bei deiner Kaffe - Pause mal anschauen
Du glaubst ja garnicht was man bei einem Kaffee so alles programmiern kann...
Also zuerst mal sieht das ja alles gut aus, aber...
...du musst nicht um jeden Preis den Wert für Weiter/Abbruch in eine Exceldatei schreiben und dann fürs Einlesen soooooo viel ActiveX Zeug abfeuern.
Viel schlanker ist es ja, wenn du einfach eine Textdatei einliest.
Guckst du hier:
im Kontextmenu ist Zeilelesen nicht aktiviert, daher wird nur "1" Zeichen eingelesen
Bevor su mich jetzt fragst, wie man mit VBA eine Textdatei schreibt...
...hab ich dir ein Beispiel gemacht. Also eine Userform mit zwei Buttons einer zum Abbrechen, einer zum Weitermachen. Den Wert dann in eine Datei schreiben.
<div class='codetop'>CODE</div><div class='codemain' style='height:200px;white-space:pre;overflow:auto'>Option Explicit
Private Sub Abbruch_Click()
Call WriteTXT(False)
Unload Me ' Form aus Speicher entfernen
'Me.Hide ' Form im Speicher lassen, nur unsichtbar machen
End Sub
Private Sub Weiter_Click()
Call WriteTXT(True)
Unload Me ' Form aus Speicher entfernen
'Me.Hide ' Form im Speicher lassen, nur unsichtbar machen
End Sub
Private Sub WriteTXT(bContinue As Boolean)
Dim Path As String
Dim sOutput As String
'Bei Fehlern zur Fehlerbehandlung springen
On Error GoTo ErrHandle:
' Abbruch = 0, Weiter = 1
Select Case bContinue
Case True: sOutput = "1"
Case False: sOutput = "0"
End Select
'Dateipfad / -name anpassen
'Path = "C:Continue.txt"
'oder immer im Arbeitsverzeichnis des Excelworkbooks bleiben (Schreibrechte!)
Path = Application.ThisWorkbook.Path & "Continue.txt"
'Datei öffnen, Übergabeparameter schreiben, Datei schließen
Open Path For Output As #1
Print #1, sOutput
Close #1
'Sub verlassen, da sonst der Fehlerbehandler (bei keinem Fehler) angezeigt wird
Exit Sub
'meine standard Fehlerbehandlung...
'jedem Fehler (Err) eine Aktion per "Case Err# :" zuordnen
'unbekannte Fehler in MsgBox ausgeben
ErrHandle:
Select Case Err
Case Else: MsgBox "Error # " & Err & " : " & Error(Err)
End Select
End Sub</div>
Excel_Write_to_TXT_File.xls (Größe: 34 KB / Downloads: 246)
Gruß SeBa