Office: Lese TXT-Datei vom FTP Server - importiere Text

Hallo zusammen,

ich versuche in Access Text Daten von einem öffentlichen FTP Server abzurufen. Diese werden dort regelmäßig erneuert - und den aktuellen Inhalt würde ich gerne auslesen - damit er in einem meiner Formulare angezeigt werden kann - bzw. gespeichert wird.

Ein Beispiel wäre:

Und die Daten:

Wie kann ich soetwas einlesen? Bzw. kann ich eine Tabelle machen, und alle verfügbaren *.TXT Dateien als Tabelle dort ablegen??
Jede 30 min muss ich dann die Daten erneuern.

Idee wie man sowas macht?

Danke und Gruß
Björn

 

Es gibt dafür ein Beispiel von Jörg Ackermann auf http://www.accessprofipool.de/app/defaultoj.htm
Zu finden unter FTP-Transflex.
Ist zwar für Acc97, sollte jedoch relativ einfach auch für höhere Versionen verwendet oder umgestrickt werden können.

 

Hallo Björn,

da Du angibst, im Besitz von Access2007 zu sein, nehme ich an, dass Du auch Excel2007 hast.
Dort ist das Problem einfach zu lösen.
Ich habe Dir eine Excel-Datei beigelegt, die auch ein VBA-Makro beinhaltet (also bitte aktivieren!).
Eine kleine Beschreibung ist im Arbeitsblatt 'Tabelle1' enthalten.

 

Hey Danke!!!
Dass funktioniert ja prima. Muss mir nur noch den Code etwas genauer anschauen - Excel ist bis jetzt nicht so meine Welt und wo du das mit dem Link eingestellt hast... da tappe ich noch im Dunkeln. Brauch da wohl ne ruhige Minute. Aber das bekomme ich auch noch hin.

Gruß
Björn

 

Hallo Björn,

der dafür nötige VBA-Code ist denkbar kurz:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Not Intersect(Target, Range("A5:A6")) Is Nothing Then
    Range("A5:A6").Copy
    Range("A10").Insert Shift:=xlDown
    Application.CutCopyMode = False
  End If
  
End Sub

Ähnlich wie in Access gibt es auch in Excel die Möglichkeit, aufgetretene Ereignisse durch Code zu behandeln/abzufangen etc. Vorgenannter Code befindet sich im Klassenmodul für das Arbeitsblatt 'Tabelle1'. Genau wie in Access gelangst Du mit der Tastenkombination Alt+F11 in den VBA-Editor und dort machst Du im Projektfenster (Tasten Strg+R) auf den Eintrag 'Tabelle1' einen Doppelklick, sodass daraufhin der VBA-Code für dieses Arbeitblatt zu sehen ist.
Jedesmal, wenn sich im Arbeitsblatt etwas ändert, wird das Change-Ereignis für dieses Blatt ('Tabelle1') ausgelöst. Diese Änderung erfolgt in diesem Fall deshalb, weil über die Datenverbindung vom FTP-Server neue Daten in den Bereich A5:A6 eingelesen wurden.
'Target' im Makro gibt den Zellbereich an, wo die Änderung stattfand. Mit der 'Intersect'-Funktion wird getestet, ob der Zellbereich A5:A6 (zumindest teilweise) innerhalb von 'Target' (also dem Ort der Änderung) liegt. Wenn ja, so kann der Schnittbereich von 'Target' und A5:A6 nicht leer sein, was bewirkt, dass die Copy/Insert-Befehle in der IF-Anweisung ausgeführt werden. Mit CutCopyMode=false wird dann noch anschließend der Kopiermodus ausgeschaltet.

In der Multifunktionsleiste den Tabulator 'Daten' auswählen und dann darin zur Gruppe 'Externe Daten abrufen' gehen.
Stellst Du die aktive Zelle entweder in Zelle A5 oder A6, werden die Buttons in dieser Gruppe deaktiviert, weil nämlich in diesen beiden Zellen bereits eine aktive Datenverbindung eingerichtet ist.
Eingerichtet hatte ich diese Datenverbindung, indem ich die aktive Zelle auf A5 stellte und dann auf den Button 'Aus dem Web' klickte. Es erscheint das Dialogfenster 'Neue Webabfrage', in das ich in der Combobox 'Adresse' Deine FTP-Adresse eingetippt habe. Nach dem Klick auf 'Ok' erscheint im weißen Bereich darunter das Abfrageergebnis, versehen mit einem gelb hinterlegten Rechtspfeil. Klickt man auf diesen, wird daraus ein grün hinterlegtes Häkchen zum Zeichen dafür, dass man diesen Datenbereich ausgewählt hat. Danach auf den Button 'Importieren' klicken, sodass ein neues Fenster erscheint ('Daten importieren'), wo man noch endgültig das Importziel im Arbeitsblatt festlegen kann. Klickt man dann noch auf 'Eigenschaften...', kann man noch weitere Verbindungseigenschaften festlegen (Aktualisierungsintervall, etc.).

Die Verbindungseigenschaften kann man auch nachträglich festlegen, indem man zB. die aktive Zelle in A5 oder A6 stellt. Dadurch wird in der Multifunktionsleiste (Tab 'Daten') in der Gruppe 'Verbindungen' der Button 'Eigenschaften' aktiviert. Mit einem Klick dort erhält man auch wieder die Verbindungseigenschaften.
Klickt man auf den Befehl 'Verbindungen', der sich darüber befindet, erhält man die bereits eingerichteten Verbindungen. Wählt man die passende aus (in diesem gibt es eh nur eine) und klickt auf Button 'Eigenschaften...', bekommt man 2 Tabulatoren angezeigt ('Verwendung' und 'Definition' der Datenverbindung).

 

Hi,

na soweit hab ich alles gefunden - und es funktioniert wunderbar - auch mit anderen Seiten etc. Klasse.

Hab zwar schon mal probiert das nun nach Access/SQL einzulesen... aber da gibts bestimmt ne Excel Funktion dies zu exportieren, oder?
So wie A5 in Spalte 1 und A6 in Spalte 2 anfügen? Excel ... wusste bis eben nicht mal das hier auch VBA geht - aber glaub da werde ich nun etwas mehr Zeit investieren.

Danke und Gruß
Björn