Office: (Office 2013) VBA - Was macht FreeFile und weitere Fragen

Hallo zusammen,

ich habe mal wieder einige Fragen an die VBA Experten.
Das Makro zum Überprüfen, ob ein File bereits geöffnet ist oder nicht, habe ich aus dem Netz gefischt (https://support.microsoft.com/de-de/kb/291295) und soweit funktioniert es auch. Leider habe ich Probleme den gesamten Code zu verstehen. Auch die Hilfe im Netz hat mir nicht geholfen – leider habe keine einfache & verständliche Erklärung gefunden .

Speziell geht es um zwei Fragen:
1.
Was genau macht FreeFile? Wenn ich es verwende wird immer eine 1 ausgegeben, auch wenn ich 2 Excelinstanzen geöffnet habe. Ich dachte es wäre eine hochlaufende Zahl die mir die nächste freie Zahl von geöffneten Dateien ausgibt z.B. 5 Dateien sind geöffnet und FreeFile würde mir dann eine 6 ausgeben.

2.
Wenn ich die Open Anweisung verwende, müsste sich ja irgendetwas öffnen. Wenn ich es verwende wird keine neue Excel Instanz geöffnet oder im Taskmanager wird auch nichts angezeigt. Wie muss ich mir das Öffnen vorstellen? Wo öffne ich das File (sinnbildlich)? Kann auf das File auch per VBA dann zugegriffen werden?

Ich würde mich sehr freuen wenn Ihr mir helfen könnt und Licht ins Dunkel bringen könntet.

Schöne Grüße
Tauchmann

Code:

<code>Function IsFileOpen(filename As String)
    Dim filenum As Integer, errnum As Integer

    On Error Resume Next   ' Turn error checking off.
    filenum = FreeFile()   ' Get a free file number.
    ' Attempt to open the file and lock it.
    Open filename For Input Lock Read As #filenum
    Close filenum          ' Close the file.
    errnum = Err           ' Save the error number that occurred.
    On Error GoTo 0        ' Turn error checking back on.

    ' Check to see which error occurred.
    Select Case errnum

        ' No error occurred.
        ' File is NOT already open by another user.
        Case 0
         IsFileOpen = False

        ' Error number for "Permission Denied."
        ' File is already opened by another user.
        Case 70
            IsFileOpen = True

        ' Another error occurred.
        Case Else
            Error errnum
    End Select

End Function</code>

 

Hallo,

Google kennst Du? Da ist freefile schön erläutert.
Du hast nicht wirklich registiert, dass die Datei in der nächsten Zeile wieder geschlossen wird!
Außerdem prüft das Programm in erster Linie, ob ein anderer die Datei geöffnet hat.

 

Hallo Edgar,

gegoogelt habe ich mehr als genug, aber die Erklärungen waren bescheiden und meine Fragen wurden nicht beantwortet.
Witzigerweise hat das Macro in meinen Tests angezeigt, wenn ich das zu untersuchende File bereits geöffnet hatte, das es "besetzt" ist.

Nachmal zu meiner 2ten Frage.
Was genau macht die Open Anweisung?
Wenn ich ein ExcelFile mit dieser Open Anweidung öffne, dann wird nichts aufgemacht.

Kannst du mir da mal weiterhelfen?

SG
Tauchmann

 

Hallo,


erster Treffer bei google:

https://msdn.microsoft.com/de-de/library/c3zyf7d8(v=vs.90).aspx

https://msdn.microsoft.com/de-de/library/office/gg264163.aspx