Office: (Office 2016) Application.SaveAsText in anderer DB

markusxy · 7. Januar 2021

von sonic8

Jein.
Theoretisch indem du den Flag 40 für das Attribut VB_MemberFlags festlegst. - Praktisch funktioniert(e) das aber nur in VB6 und nicht in VBA. Angeblich wurde dieses Feature für den VBA-Compiler nicht implementiert.

Beispiel wie es in VB6 funktioniert:
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Public Sub BarMethod()
Attribute BarMethod.VB_MemberFlags = 40

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke.
Wie ich sehe, wird das Attribut beim Import auch gelöscht.
Jedenfalls, wenn ich es wieder exportiere ist der Hinweis weg.
LG M

Josef P. · 31. Mai 2017

Hallo!

Wie ich sehe, wird das Attribut beim Import auch gelöscht.
Jedenfalls, wenn ich es wieder exportiere ist der Hinweis weg.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist bei Attributen normal, dass man sie im VBA-Editor nicht sieht. Sie sind aber in der Exportdatei enthalten.

[etwas OT]

Interessehalber nachgefragt:

Ich wollte die Application.SaveAsText Methode auf eine andere DB anwenden und komme da momentan kein Stück weiter.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Warum exportierst du die Elemente aus einer fremden Anwendung?
Mir fällt dazu nämlich momentan kein Anwendungsfall ein, daher bin ich neugierig, für welchen Anwendungsfall du das benötigst. *wink.gif*

SaveAsText und LoadFromText nutzte ich zwar häufig, verwende diese Prozeduren aber aus Add-Ins und nicht aus "fremden" Access-Dateien.

mfg
Josef

Marinsche · 7. Januar 2021

von Josef P.

Warum exportierst du die Elemente aus einer fremden Anwendung?
Mir fällt dazu nämlich momentan kein Anwendungsfall ein, daher bin ich neugierig, für welchen Anwendungsfall du das benötigst. *wink.gif*

SaveAsText und LoadFromText nutzte ich zwar häufig, verwende diese Prozeduren aber aus Add-Ins und nicht aus "fremden" Access-Dateien.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hab heute Luft und wollte mir ein Datenbank-Rettungstool bauen. Hab gelesen bei donkarls Access-Seiten

Falls ein bestimmtes Objekt, z.B. ein Formular oder Bericht, offensichtlich korrupt ist, dann versuche seinen Export als Textdatei und anschließenden Reimport. Dafür gibt es die versteckten VBA-Funktionen SaveAsText und LoadFromText:

Export eines Formulares als Textdatei
Application.SaveAsText acForm, "MeinFormular", "c:MeinFormular.txt"

Reimport des Formulares
Application.LoadFromText acForm, "MeinFormular", "c:MeinFormular.txt"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ergo bau ich mir das jetzt. Zudem lern ich so endlich mal das TreeView-Steuerelement richtig kennen. *wink.gif*

Soweit bin ich schon:

Josef P. · 31. Mai 2017

Hallo!

Danke, jetzt kann ich mir unter deinem Vorhaben etwas vorstellen. *Smilie

Als Anregung zur Umsetzung:
Du könntest diese Anwendung als Access-Add-In gestalten, dann könntest du z. B. folgende Optionen anbieten:
* Export/Reimport ausgewählter Elemente der aktuellen Anwendung
* Export aus aktueller Datei, Import in fremde Datei (Dateipfad festlegen)
* Export aus fremder Datei, Import in aktuelle Datei

Wirf auch einen Blick auf: TM - RebuildDatabase

LG
Josef

Office: (Office 2016) Application.SaveAsText in anderer DB

Application.SaveAsText in anderer DB

Application.SaveAsText in anderer DB

Application.SaveAsText in anderer DB

Application.SaveAsText in anderer DB - Similar Threads - Application SaveAsText

Application Guard für Office

Progressbar / Application-Anzeige

UserForm im Vordergrund halten wenn application visible=false

VBA-Passwort & SaveAsText

Die Methode 'Run' für das Objekt 'Application' ist fehlgeschlagen

HILFE ! Word für Win 95 Application file funktioniert nicht mehr

Application hang