Office: Dateiendung '*.d83'

Acc2000
Hallo Access-Gemeinde,

mit folgender Funktion wird eine sog. GAEB-Datei eingelesen.
Problem ist jedoch, dass die Datei nur als TXT-Datei einerseits im Dateimanager angezeigt wird und auch nur als TXT-Datei eingelesen wird. Die Datei selbst beeinflußt nicht das Verhalten, d.h. wenn die Endung durch umbenennen in *.txt erfolgt ist, kein Problem.
Wie kann ich dem Dateimanager klar machen, dass ich die Dateien als GEAB (Format: *.d83) anzeigen und ohne umbenennen auch einlesen kann.
Nachfolgende Funktion:
Function Import_GEAB() As Boolean
Dim DefFileTitle As String, DefFilter As String, DefDialogTitle As String, DefExt As String
Dim xx As String
Dim db As Database
Dim filnam As String


Set db = CurrentDb

DefFileTitle = ""
' ---- So klappt es, die TXT-Datei ist sichtbar und kann ausgewählt werden
DefFilter = "GEAB-Datei als Textdatei" & Chr(0) & "*.txt"
' ---- Jedoch soll es so aussehen !
'& Chr(0) & "GEAB 83" & Chr(0) & "*.d83"

DefDialogTitle = "Wählen Sie die Datenquelle aus"
DefExt = "*.d83"
xx = API_GetFileName(DefFileTitle, DefFilter, DefDialogTitle, DefExt)
If xx = "" Then
MsgBox "Datei konnte nicht geöffnet werden!", vbInformation, "Fehlversuch!"
Import_GEAB = False
Exit Function
End If
filnam = xx

db.Execute ("Delete * from IMPO;")

On Error Resume Next
' Datei importieren
DoCmd.TransferText acImportFixed, "GEAB", "Impo", filnam, False

If Err.Number 0 Then
Import_GEAB = False
Else
Import_GEAB = True
End If
On Error GoTo 0

End Function

wer hat hier einen Tipp ?
Danke für Hilfe !

Gruß Siegfried

:)

 

Hallo
schau dir einmal diesen Beitrag an.
Überigens SUCHEN ist eine gute Funktion.

 

Danke für den Tipp, Ruedi,
das 1. Problem ist damit gelöst, denn Anzeigen im Explorer im Dateiformat und auswählen ist ok. Jedoch das eigentliche Einlesen der D83 klappt nicht.
Vielleicht gibt es noch einen Hinweis, den ich übersehen habe.
Danke !
Siegfried

 

on top

 

Hallo
ich kann dir nicht weiter helfen aber verweise doch im anderen Beitrag einfach auf Deinen Beitrag und sage doch dort Dein Problem, möglich das sich dann Kama oder sonst ein Spezialist meldet. Hoffe Du kommst weiter.

 

Hallo Siegfried,
konntest Du deinen Code zuende führen!
ich suche eine Import funktion und hätte ne VBA ecxel to Geab, im petto.

Kanste mir weiterhelfen.

Grüße Olaf

 

Ich hab es soweit gelöst, dass im Hintergrund, ohne dass der Anwender es merkt die D83 umbenannt wird in eine TXT. Anschließend wählt er über den Dateidialog die "neue" Textdatei aus. Wolltest Du dies wissen ? und was meinst du mit "hätte ne VBA ecxel to Geab, im petto"?

 

Na ich bin auf der suche nach dem kompletten code!
Zum Impotieren/expotiern!, der ja schon wenn alles richtig umgewandelt sein soll, recht aufwendig ist.
Ich erfinde so ungerne neue Räder ;-)

Für die Umwandelung eines LV´s aus Excel gesteuert in Acc to Gaeb hätte ich eine lösung.

Grüße

 

hallo zusammen,
ich habe inzwischen den Geabimport nach Access gelöst. mein PC wird bis zum WE neu formatiert. Ich kann dir Anfang nächster Woche den Codeauszug zum einlesen der Geabdatei zukommen lassen.


Nachtrag :
Mein Code bezieht sich nur auf den Geabimport. der Export wollte mein Kumpel nicht, da in "Ich-AG" oder sonst sehr kleinen Baufirmen das nicht benötigt wird.


mfg

Jürgen

 

Das währe echt klasse,
kannste denn mit meiner Excel variante was anfangen?

Grüße

 

Das ist genau was ich suche,
wenn du deinen Rechner wieder in schwung hast,
Würde ich mich echt freuen!

*grins

Grüße Olaf

 

hast mich vergessen *grins kleine nette erinnerung.

Danke im Vorraus Olaf

 

hallo Olaf,
sorry aber ich habe dich nicht vergessen. Habe leider mit meinem PC schwierigkeiten gehabt. Nach der Neuinstallation liefen einige Programme nicht mehr richtig, mußte alles nochmal machen. Über Ostern schaffe ich das aber auf jeden fall.
Kannst mir aber mal eine Mailaddi geben wohin ich das senden soll. glaube nicht das ich das hier auf die richtige größe gezippt oder gerart bekomme ....

mfg

Jürgen

 

hallo Olaf,
kannst du mir mal bitte deine Mailadresse geben ??
Die DB ist leider auch noch gezippt zu groß um hier reinzustellen.
ich habe es heute endlich geschafft, die Datenbank auf das wesendliche zu kürzen.
Ich habe dir nur den Geab-Import dringelassen. andere Sachen werde höchst warscheinlich nicht laufen.

mfg

Jürgen

 

Hallo WDKA-Jürgen,

ich habe ebenfalls ein Problem beim Einlesen der GAEB-Dateien.

Wäre es möglich, den fertigen Code zu bekommen?

Gruß
Fabian