FreeFile-Funktion

Hinweis: Wir möchten Ihnen die aktuellsten Hilfeinhalte so schnell wie möglich in Ihrer eigenen Sprache bereitstellen. Diese Seite wurde automatisiert übersetzt und kann Grammatikfehler oder Ungenauigkeiten enthalten. Unser Ziel ist es, Ihnen hilfreiche Inhalte bereitzustellen. Teilen Sie uns bitte über den Link am unteren Rand dieser Seite mit, ob die Informationen für Sie hilfreich sind. Hier finden Sie den englischen Artikel als Referenz.

Hinweis: Die Funktion, die Methode, das Objekt oder die Eigenschaft, die bzw. das in diesem Thema erläutert wird, ist deaktiviert, falls der Ausdrucksdienst in Microsoft Jet im geschützten Modus (Sandkastenmodus) ausgeführt wird. In diesem Modus wird die Auswertung von potenziell unsicheren Ausdrücken verhindert. Weitere Informationen zum geschützten Modus finden Sie in der Hilfe unter "Sandkastenmodus".

Gibt eine ganze Zahl, die den nächsten Dateinummer zur Verwendung verfügbar von der Open -Anweisung darstellt.

Syntax

FreeFile [(Bereichsnummer)]

Das Argument optional Bereichsnummer ist eine Variante aus, die im Bereich gibt an, aus denen die nächste freie Dateinummer zurückgegeben werden soll. Geben Sie an einer 0 (Standard), um eine Dateinummer im Bereich von 1 bis 255 (einschließlich) zurückgegeben. Geben Sie eine 1 ein, um eine Dateinummer innerhalb des Bereichs 256-511 zurückzugeben.

Anmerkungen

Verwenden Sie FreeFile , um eine Dateinummer anzugeben, die noch nicht verwendet wird.

Beispiel

Hinweis: Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerreferenz in der Dropdownliste neben Suchen aus, und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.

In diesem Beispiel wird mit der FreeFile -Funktion die nächste verfügbare Dateinummer zurückzugeben. Für die Ausgabe innerhalb der Schleife werden fünf Dateien geöffnet, und einige Beispieldaten zu den einzelnen geschrieben ist.

Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ' Loop 5 times.
' Get unused file number.
FileNumber = FreeFile
' Create file name.
Open "TEST" & MyIndex For Output As #FileNumber
' Output text.
Write #FileNumber, "This is a sample."
' Close file.
Close #FileNumber
Next MyIndex
Ihre Office-Fähigkeiten erweitern
Schulung erkunden
Neue Funktionen als Erster erhalten
An Office Insider teilnehmen

War diese Information hilfreich?

Vielen Dank für Ihr Feedback!

Vielen Dank für Ihr Feedback. Es klingt, als ob es hilfreich sein könnte, Sie mit einem unserer Office-Supportmitarbeiter zu verbinden.

×