Prüfen ob Textdatei im Editor offen ist

Hallo Excel Freunde,
da ich in letzter Zeit vermehrt auf neue englische Vokabeln stieß, habe ich diese online nachgeschlagen. Irgendwann kam die Idee auf, daraus eine Vokabelliste zu erstellen, welche ich per Bluetooth auf mein Handy schicken kann, und immer wenn ich etwas Luft habe, diese auswendig lerne. Am besten geeignet erschien mir hierfür eine kompakte Textdatei
Ich habe also eine VBA Routine geschrieben, welche die von der Website nach Excel kopierten Strings aufarbeitet und einen aufgereinigten String im Debug.Print Fenster ausgibt. Das klappt auch sehr gut. Jetzt habe ich mir noch überlegt, dass ich diese Textstring dann automatisch in die Vokabeln.txt laden lasse.
Und hier habe ich keinen Ansatzpunkt gefunden. In Exceldateien kann ich ja sehr leicht prüfen, ob eine gewünschte Datei schon geöffnet ist. Ist sie das nicht, wird sie geöffnet und kann sie nachfolgend wiederholt anweisen, die letzte Zelle bestimmen, und neue Einträge hinzufügen.
Wie geht dies jedoch für Textdateien? Geht dies überhaupt? Was ich bei meinen Recherchen viel fand waren solche Zeilen 'Open strPath For Input As #1' Ich habe die testweise eingesetzt, aber die Datei wird dann im Editor nicht angezeigt, obschon die Datei für 'Append' o.ä. sicher verfügbar ist.
Die angedachte Syntax ist folgende: Wenn eine neuer Vokabelstring ermittelt wurde, dann prüfe, ob die Vokabeln.txt offen ist. Wenn ja, dann füge den neuen String in dieser Datei an und lasse sie offen. Wenn nicht, dann öffne sie (sichtbar, im Editor), füge den neuen String an und lasse sie offen.
Wie gesagt, in Excel Dateien oder auch Word ist das kein Problem, aber in Textdateien habe ich bisher keinen sinnvollen Ansatz finden können.
Weiß hier im Forum jemand Rat? Mit einem Ansatz welcher sicher die Prüfung, ob die Datei schon geöffnet ist, vornimmt, wäre mir schon geholfen.
https://www.herber.de/bbs/user/135884.xlsm
Vielen Dank für Eure Erfahrung und Antworten!
Viele Grüße, Andreas Hanisch

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andreas,
teste mal:

Option Explicit

Private Declare PtrSafe Function FindWindowA Lib "user32.dll" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function PostMessageA Lib "user32.dll" ( _
    ByVal hwnd As LongPtr, _
    ByVal wMsg As Long, _
    ByVal wParam As LongPtr, _
    ByVal lParam As LongPtr) As Long
Private Declare PtrSafe Function ShellExecuteA Lib "shell32.dll" ( _
    ByVal hwnd As LongPtr, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As LongPtr

Private Const WM_CLOSE As Long = &H10
Private Const SW_SHOWDEFAUL As Long = 10

Public Sub Test()

    Const FILE_PATH As String = "C:\Users\sgqms\Vokabeln.txt"

    Dim lngptrHwnd As LongPtr
    Dim intFreeFile As Integer
    Dim blnIsOpen As Boolean

    lngptrHwnd = FindWindowA("Notepad", "Vokabeln.txt - Editor")

    If lngptrHwnd <> 0 Then

        Call PostMessageA(lngptrHwnd, WM_CLOSE, 0&, 0&)

        blnIsOpen = True

    End If

    intFreeFile = FreeFile

    Open FILE_PATH For Append As #intFreeFile

    Print #intFreeFile, "NeuerText"

    Close #intFreeFile

    If blnIsOpen Then Call ShellExecuteA( _
        Application.hwnd, "OPEN", FILE_PATH, vbNullString, vbNullString, SW_SHOWDEFAUL)

End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Prüfen ob Textdatei im Editor offen ist

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Prüfen ob Textdatei im Editor offen ist

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread