Home

1 1 1 1 1 1 1 1 1 1 Rating 0.00 (0 Votes)

Problemstellung:

Für 32Bit und 64Bit Office Versionen

Wie kann ich die Makros und deren Eigenschaften auslesen?
Auch wenn Makros buggy sind kann es doch mal vorkommen
das man diese zu Dokumentationszwecken auslesen will.

Ich habe mal 2 Lösungen vorbereitet.

1. Für jedes Makro wird eine eigene Textdatei geschrieben.

Private Sub Read_Makros1(sPath As String)
    Dim obj As Object
    Dim db As DAO.Database
    Dim FileName As String
     Set db = CurrentDb
    For Each obj In db.Containers("Scripts").Documents
        FileName = sPath & obj.Name & ".txt"
        Application.SaveAsText acMacro, obj.Name, FileName
    Next obj
End Sub 

Aufruf z.B.:

Read_Makros1 "H:\Dokumente\Access\"

Ergebnis:


 

2. Alle Makros werden in eine Textdatei geschrieben.

Private Sub Read_Makros2(sPath As String)
    Dim sMacroTXT As String
    Dim sTmpFileName As String
    Dim objMacro As Object
    Dim db As DAO.Database
    Dim fso, fsoMakroFile, TempFolder
    Const TemporaryFolder = 2
    sMacroTXT = sPath & "DBMakros.txt"
    Set db = CurrentDb
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set TempFolder = fso.GetSpecialFolder(TemporaryFolder)
    sTmpFileName = TempFolder & "\" & fso.GetTempName
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set TempFolder = fso.GetSpecialFolder(TemporaryFolder)
    Set fsoMakroFile = fso.OpenTextFile(sMacroTXT, 2, True)
    fsoMakroFile.WriteLine "Alle Makros der Datenbank"
    For Each objMacro In db.Containers("Scripts").Documents
        fsoMakroFile.WriteBlankLines (1)
        fsoMakroFile.WriteLine "'Makro: " & objMacro.Name
        fsoMakroFile.WriteBlankLines (1)
        Application.SaveAsText acMacro, objMacro.Name, sTmpFileName
        fsoMakroFile.Write fso.OpenTextFile(sTmpFileName, 1).ReadAll
        fso.DeleteFile sTmpFileName
    Next objMacro
    fsoMakroFile.Close: Set fsoMakroFile = Nothing
    Set fso = Nothing
    db.Close: Set db = Nothing
End Sub

Aufruf z.B.:

Read_Makros2 "H:\Dokumente\Access\"

 

Ergebnis:


 

 

 

Ähnliche Artikel

You have no rights to post comments

Login Form

Neueste Artikel

SQL zu VBA Konverter
26. Oktober 2018
Problemstellung: Nur für 32Bit Office Versionen Gibt es eine Möglichkeit SQL-Code einer Abfrage so zu konvertieren das der Code in VBA genutzt werden kann? Lösung: Bis Access 2010 gibt das Tool...
1.png5.png7.png8.png8.png9.png4.png
Heute412
Gestern271
Diese Woche1243
Dieser Monat7517
Total1578894

  • IP: 44.200.230.43
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

1
Online

28. März 2024

Letzte Kommentare

  • Berechnen von Zeiträumen als Abfragekriterium

    elmard 02.02.2021 21:02
    1000 Dank
    für diese Datenbankanwendung! Eine sehr gute Umsetzung mit den vielen Möglichkeiten des Datums.

    Weiterlesen...

     
  • SQL zu VBA Konverter

    Tommy Admin 03.11.2019 16:33
    RE: SQL zu VBA Konverter
    Hallo Elmard, danke für die Info. :lol:

    Weiterlesen...

     
  • SQL zu VBA Konverter

    elmard 03.11.2019 14:49
    Bei SmartTools neue Version 4.0
    Dieses Tool liegt inzwischen in der Version 4 vor und läuft nun auch von A2013 und A2016 sowie im ...

    Weiterlesen...

     
  • Workshop zur Benutzung des Multi-Column TreeView Control unter MS-Access

    TommyK 27.02.2019 06:52
    Workshop
    Hallo mpegjunkie, danke für Dein Feedback. Schön das Dir Workshop weiter hilft. :D

    Weiterlesen...

     
  • Workshop zur Benutzung des Multi-Column TreeView Control unter MS-Access

    mpegjunkie 26.02.2019 20:10
    Perfekter Workshop
    Hallo Tommy, perfekter Workshop, toll und umfassend erläutert. Jetzt nutze ich diese Controls auch.

    Weiterlesen...