Office: Erstellungsdatum zu importierender Datei ermitteln

Hi,

hab mich schon mal durchs Forum gewühlt, doch keine passende Antwort auf mein Anliegen gefunden. Vielleicht kann mir ja jemand helfen.

Im Verzeichnis E:\Download wird aus SAP eine Downloadtabelle hinterlegt. Diese wird in Excel aufbereitet und soll in Access importiert werden.

Um den jeweiligen SAP-Datenstand abzubilden, war mein Gedanke, das Erstellungsdatum der Exceldatei zu verwenden.

Doch ich habe keine blassen Schimmer, wie ich dieses Datum abfragen kann.

Oder hat jemand vielleicht eine bessere Idee, über den Importvorgang?!

Tschau *rolleyes.gif*

Ronald

:)

 

Hallo Ron,

mit folgender Funktion kannst Du das Datum ermitteln:

Code:

würde das Erstellungsdatum ermitteln.
Format der Ausgabe wäre z.B. 22.07.2003 17:40:34

 

Hi,

sorry, war einige Tage krank, kann mich daher erst jetzt wieder melden.

Irgendetwas mache ich falsch. Habe Deinen Code 1:1 übernommen, d. h.

Dim a, b
Dim Art
Dim DateiDatumAuslesen


Set a = CreateObject("Scripting.FileSystemObject")
Set b = a.GetFile("E:\Download\Auftrag.xls")

Select Case Art
Case 1
DateiDatumAuslesen = b.DateLastModified
Case 2
DateiDatumAuslesen = b.DateLastAccessed
Case 3
DateiDatumAuslesen = b.DateCreated
End Select

Dim x
x = DateiDatumAuslesen("e:\download\auftrag.xls", 3)

Doch dies funktioniert nicht. Es erscheint die Fehlermeldung "Typen unverträglich".

Was mache ich falsch und muss ich ändern?

Please help....

Thank's...

Ron *rolleyes.gif*

 

Das sehe ich aber anders: was hast du aus der Function DateiDatumAuslesen gemacht???

 

Mit meinen kleinen VBA-Kenntnissen bin ich folgendermassen vorgegangen:

Die Atkionen der Dateiimportierung erfolgt über den "klick" auf ein Button.

In diese VBA-Programmierung habe ich den Code mit eingegeben.

Wohl falsch?

 

Hallo Ron,

da hat Anne vollkommen Recht, das war wohl eher 1:2 oder so.

Du musst die Funktion unverändert in ein beliebiges Modul kopieren.
Und der Aufruf ist nur ein Bsp. x kann auch ein Feld sein.

Und noch einen Hinweis:
Bitte die Codefunktion in den Beiträgen benutzen, der Code wird lesbarer.

 

Danke für Eure Hilfe! Wollte niemandem zu Nahe treten mit meinen wenigen VBA-Kenntnissen.

Werde also ein eigenes Modul für diese Funktion anlegen. Wie rufe
ich diese dann in der Ereignisprozedur auf?

 

Hallo Ron,

es kommt darauf an, wann soll das Datum ermittelt werden und was soll
mit diesem Datum passieren. Willst Du es in einem Feld anzeigen lassen, soll es irgendwo gespeichert werden usw.?

 

Hallo Tommy,

das Datum soll in einem Feld gespeichert werden - also die Abbildung des SAP-Datenstandes zum aktuellen Zeitpunkt des Downloads.

Ron

 

Hallo Ron,

ich geh jetzt davon aus das Du die Funktion unverändert in ein Modul kopierst hast.

Am Ende Deines Codes des Dateiimports kommt dann:

Code:

 

Das ist richtig. Folgende Fehlermeldung erscheint:

 

Zum besseren verstehen hier einmal der ganze Code:

Code:

 

Hallo Ron,

Code:

Ich geh mal davon aus das "AUF Kosten Import" ein Form ist oder?
Wenn ja dann muss es geöffnet sein.

Von wo aus rufst Du den Code auf?

 

Hi Tommy,

nein, es handelt sich hier um eine Tabelle. In dieser werden die Daten 1:1 von SAP geladen. Anschließend wird eine neue Tabelle erstellt in der die Daten aus der Importtabelle entsprechend aufbereitet werden (d. h. weitere Aufgliederungen nach Kostenstellen usw.).

Die Tabelle AUF Kosten Import wird immer wieder neu angelegt. D. h. die Tabelle des letzten Downloads wird gelöst und die Neue erzeugt.

 

Hallo Ron,

wenn ich es richtig verstehe ist in der Tabelle "AUF Kosten Import" ein Feld "SAP-Datenstand" enthalten und dort soll das Datum eingetragen werden oder?