Die Vorbereitung der Datei, also das öffnen oder Anlegen, übernimmt in allen Fällen die <b>Open<\/b>-Anweisung. Die grundlegende Syntax sieht wie folgt aus:<\/p>\n
Open <Pfadname> For <Modus> As <\/span><Dateinummer><\/pre>\nAngeben des Dateinamens<\/h2>\n
Sie können entweder den kompletten Dateinamen inklusive Laufwerk und Pfad angeben oder nur einen Dateinamen. Der erste Fall ist klar, im zweiten Fall ergänzt Access die Datei um das aktuelle, mit der Funktion <b>CurDir <\/b>auszulesende und mit <b>ChDir <\/b>zu setzende Verzeichnis (siehe auch Artikel <b>Dateibefehle<\/b>).<\/p>\n
Je nach öffnungsmodus muss die Datei bereits vorhanden sein (<b>Output<\/b>), anderenfalls wird diese gegebenenfalls beim öffnen erstellt (<b>Input<\/b>, <b>Append<\/b>).<\/p>\n
öffnungsmodus<\/h2>\n
In Zusammenhang mit Textdateien gibt es drei verschiedene Modi zum öffnen einer Datei:<\/p>\n
\n- <b>Append<\/b>: öffnet oder erstellt eine Datei zum Anhängen weiterer Inhalte<\/li>\n
- <b>Input<\/b>: öffnet oder erstellt eine Datei und fügt Inhalte ein, vorhandene Inhalte werden gelöscht<\/li>\n
- <b>Output<\/b>: öffnet eine bestehende Datei und bereitet diese zum Lesen der Inhalte vor.<\/li>\n<\/ul>\n
Output und Input – wie soll man sich das merken Ganz einfach: Gehen Sie immer von der VBA-Prozedur aus, die auf die Datei zugreift.<\/p>\n
Liest diese die Daten aus der Textdatei ein, verwenden Sie den <b>Input<\/b>-Modus (Daten fließen zur Prozedur), sonst den <b>Output<\/b>-Modus (Daten fließen zur Datei).<\/p>\n
Dateinummer<\/h2>\n
üblicherweise gibt man als Dateinummer einfach den Wert <b>#1 <\/b>an. Dies kann jedoch in die Hose gehen, wenn die gleiche Access-Instanz an anderer Stelle bereits eine Datei mit dieser Nummer geöffnet hat.<\/p>\n
Wenn es verschiedene Prozeduren innerhalb einer Anwendung gibt, die Dateien öffnen und bei denen es vorkommen kann, dass die eine Datei noch offen ist, während eine andere geöffnet werden soll, können Sie für jeden Ort innerhalb der Datenbank eine andere Dateinummer angeben, also <b>#1<\/b>, <b>#2 <\/b>und so weiter.<\/p>\n
Noch einfacher geht es, wenn Sie die Funktion FreeFile nutzen, um sich eine aktuell freie Dateinummer geben zu lassen. Normalerweise gibt <b>FreeFile<\/b> die kleinste verfügbare Dateinummer zurück, was sich einfach im Direktfenster prüfen lässt:<\/p>\n
Debug.Print<\/span> FreeFile\r\n 1 <\/pre>\nOb diese Funktion funktioniert, können Sie prüfen, indem Sie zuvor eine Datei mit der Nummer <b>1 <\/b>öffnen und dann nochmals <b>FreeFile <\/b>im Direktfenster aufrufen (siehe Bild 1).<\/p>\n
![\"Aufruf](\"..\/tl_files\/images\/pic_124_001.png\")
<\/a><\/p>\nBild 1: Aufruf von FreeFile während bereits eine Datei geöffnet ist<\/p>\n
Wozu benötigen Sie nun eine solche Dateinummer Nun: Sie vergeben diese beim öffnen oder Anlegen der Datei und müssen diese auch beiden folgenden Operationen angeben, damit VBA weiß, aus welcher Datei Daten gelesen oder in welche Datei Daten geschrieben werden sollen.<\/p>\n
Wir schauen uns an einem einfachen Beispiel an, wie eine feste Dateinummer im Vergleich zu einer per <b>FreeFile <\/b>ermittelten Dateinummer eingesetzt wird.<\/p>\n
Die folgende kleine Prozedur öffnet eine Datei zum Beschreiben und trägt eine Zeile mit Text ein. Dabei wird in jeder Anweisung die #1 als Dateinummer für den Zugriff verwendet:<\/p>\n
Public Sub <\/span>TextdateiErstellenUndSchreiben()\r\n Open CurrentProject.Path & \"\\test.txt\" _\r\n For Output As <\/span>#1\r\n Print #1, \"Hallo\"\r\n Close #1\r\nEnd Sub<\/span><\/pre>\nMit der <b>FreeFile<\/b>-Funktion benötigen Sie eine Variable, welche die Dateinummer speichert, um diese für alle Zugriffe bereitzustellen – hier <b>intFile <\/b>genannt. Dieser Variablen weisen Sie den Wert der Funktion <b>FreeFile <\/b>zu, also beispielsweise die Zahl <b>2<\/b>. In den folgenden drei Anweisungen wird statt <b>1 <\/b>der Variablenname <b>intFile <\/b>angegeben:<\/p>\n
Public Sub <\/span>TextdateiErstellenUndSchreiben_FreeFile()\r\n Dim <\/span>intFile As Integer<\/span>\r\n intFile = FreeFile\r\n Open CurrentProject.Path & \"\\test.txt\" For _\r\n Output As <\/span>#intFile\r\n Print #intFile, \"Hallo\"\r\n Close #intFile\r\nEnd Sub<\/span><\/pre>\nSie können an allen drei Stellen das Raute-Zeichen beibehalten, aber Sie müssen es mit der <b>Print<\/b>-Anweisung verwenden – anderenfalls löst dies einen Fehler aus.<\/p>\n
Damit haben Sie gleichzeitig schon eine einfache Variante zum Schreiben einer Zeile Text in eine Textdatei kennengelernt.<\/p>\n
Lesen einer kompletten Textdatei<\/h2>\n
Wenn Sie den kompletten Inhalt einer Textdatei in eine Variable einlesen möchten, verwenden Sie eine Prozedur wie die folgende:<\/p>\n
Public Sub <\/span>TextdateiLesen()\r\n Dim <\/span>strText As String<\/span>\r\n Dim <\/span>lngAnzahlZeichen As Long<\/span>\r\n Open CurrentProject.Path & \"\\test.txt\" _\r\n For Input As <\/span>#1\r\n lngAnzahlZeichen = LOF(1)\r\n strText = Input(lngAnzahlZeichen, #1)\r\n Debug.Print<\/span> strText\r\n Close #1\r\nEnd Sub<\/span><\/pre>\nMöchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t