Visual Basic for Applications

Der /decompile Schalter für Microsoft Access ist ein erprobtes aber dennoch etwas mysteriöses Werkzeug um Korruption in dem VBA-Projekt einer Access-Datenbank zu beheben. Also, was hat es mit /decompile auf sich?

Mit diesen Funktionen kann man eine Telefonnummer, die im Format Landeskennzahl(Vorwahl)Rufnummer (Beispiel: +49(069)555666) gespeichert ist, in ihre Bestandteile zu zerlegen.

Die folgenden Funktionen benötigen jeweils die komplette Telefonnummer als String und geben dann den jeweiligen Bestandteil zurück.

Function Rufnummer(Telefonnummer As String)
  Rufnummer = Trim$(Right$(Telefonnummer, _
               Len(Telefonnummer) - InStr(1, Telefonnummer, ")")))
End Function

Function Vorwahl(Telefonnummer As String)
  Vorwahl = Trim$(Mid$(Telefonnummer, _
             InStr(1, Telefonnummer, "(") + 1, _
             InStr(1, Telefonnummer, ")") _
             - InStr(1, Telefonnummer, "(") - 1))
End Function

Function Landeskennzahl(Telefonnummer As String)
  Landeskennzahl = Trim$(Left$(Telefonnummer, _
               InStr(1, Telefonnummer, "(") - 1))
End Function

Um effektiv nach Telefonnummern suchen zu können, ist es oft sinnvoll alle Zeichen mit Ausnahme der Zahlen aus aus der Telefonnummer herauszufiltern. Genau das mach die folgende Funktion unter Zuhilfenahme der ASCII-Codes für die Ziffern 0 bis 9.

Function numbersOnly(strInput As String) As String
  Dim x As Integer
  Dim strNumber As String

  For x = 1 To Len(strInput)
    If (Asc(Mid(strInput, x, 1)) > 47 And Asc(Mid(strInput, x, 1)) <= 57) Then
      strNumber = strNumber & Mid(strInput, x, 1)
    End If
  Next
  numbersOnly = strNumber
End Function

Durch rekursives Aufrufen der Dir()-Funktion und dem Addieren der mit FileLen() bestimmten Dateigröße aller enthaltenen Dateien ist es relativ einfach möglich mit den Bordmitteln von VB die Dateigröße eines kompleten Verzeichnisbaumes zu ermitteln.

Hierbei entstehen allerdings eine Differenz zu dem durch das Verzeichnis tatsächlich belegten Speicherplatzes, da nur die Länge aller Dateien in Bytes summiert wird, aber nicht berücksichtigt wird, dass Blocks die nur teilweise belegt sind, als Speicherplatz vollständig verloren gehen. Besonders Verzeichnisse mit vielen Dateien auf Partitionen mit großen Blocks erzeugen in diesem Kontext deutliche Differenzen.

Der folgende Code, den man sinvollerweise komplett in ein Modul kopiert, ist ein Beispiel für die Ermittlung der Verzeichnisgröße. Der Aufruf erfolgt über

verz_pr("C:\der\VerzeichnisName")

und liefert die Summe der Größe aller enthaltenen Dateien in KB.

Option Explicit

' *********************************************
' Prozedur aufrufen mittels ? Verz_pr("d:\daten")
' *********************************************

Dim Verz(1 To 1000) As String
Dim ebene As Integer

Function VZG(Wurzel As String) As Boolean
  Dim sum As Long
  Dim Dname As String
  
  Dname = Dir(Wurzel, vbDirectory)
  Do While Dname <> ""
    If (Dname <> ".") And (Dname <> "..") And _
      ((GetAttr(Wurzel & Dname) And _
      vbDirectory) = vbDirectory) _
    Then
      ebene = ebene + 1
      Verz(ebene) = Wurzel & Dname & "\"
    End If

    Dname = Dir
  Loop

  VZG = True
End Function

Function verz_pr(w As String) As Long
  Dim i As Integer
  Dim d As Boolean
  Dim sum As Long

  i = 1
  ebene = 1
  
  If Right(w, 1) <> "\" Then w = w & "\"
  Verz(1) = w

  Do Until Verz(i) = ""
    d = VZG(Verz(i))
    sum = sum + Filelaenge(Verz(i))
    Verz(i) = ""
    i = i + 1
  Loop

  verz_pr = sum / 1024
End Function

Function Filelaenge(Wurzel As String) As Long
  Dim sum As Long
  Dim DName As String
  
  DName = Dir(Wurzel)
  Do While DName <> ""
    If (DName = ".") Or (DName = "..") Or _
        ((GetAttr(Wurzel & DName) And _
        vbDirectory) = vbDirectory) Then
    Else
      sum = sum + FileLen(Wurzel & DName)
    End If
    DName = Dir
  Loop
  Filelaenge = sum
End Function

Herzlichen Dank an Thomas Röske, der freundlicherweise die hier präsentierten Prozeduren für die Ermittlung der Verzeichnisgröße zur Verfügung gestellt hat.

Ein langer und ausführlicher Artikel darüber wie man ein ZIP-Archiv mit VBA und der Shell32-Bibliothek erstellt. Die Shell32-Bibliothek ist in jeder Windows Installation ab Windows 2000 enthalten. Der Artikel behandelt ebenfalls das Extrahieren von Datein aus einem Archiv und enthält umfangreichen, funktionerenden Beispielcode, den du direkt per Copy&Paste in deine VBA-Anwendung übernehmen kannst.

Die Ermittlung der Kalenderwoche anhand eines Datums mit VBA ist eigentlich kinderleicht. Allerdings kann um den Jahreswechsel herum ein Problem auftreten. – Wie man dieses löst, beschreibt der Artikel Kalenderwoche und Jahr aus einem Datum ermitteln.

Verbessere deine VBA-Programmierkenntnisse mit dieser Einführung in die Programmierung von Objekten und Klassenmodulen in VBA. Lerne die Grundkenntnisse der objektorientierte Programmierung mit Klassenmodulen in VBA.

Ich veröffentliche eine Videoserie auf YouTube über Techniken und Werkzeuge um besseren VBA Code zu schreiben.

Willst du besseren VBA Code schreiben?

Begleite mich auf dem Weg besseren VBA Code zu schreiben!

Während Datum und Uhrzeit in Access und VBA auf den ersten Blick sehr einfach und unkompliziert erscheinen, gibt es tatsächliche eine ganze Menge Stolpersteine im Zusammenhang mit der Behandlung von Datumswerten. Ich habe hier einen verständlichen Leitfaden bereitgestellt, um Probleme zu vermeiden, wenn du in Access und VBA mit Datumswerten arbeitest.

Bei der Entwicklung mit Microsoft Access wirst du früher oder später innerhalb des VBA Codes mit Texten in String-Variablen arbeiten. Dabei ist es oft erforderlich verschiedene Teilstrings oder die Rückgabewerte von Funktionen oder die Inhalte von Variablen mit einem String zu verketten. Oft sind die jeweiligen Strings die SQL-Statements für Abfragen, die dann ausgeführt werden sollen. Für Anfänger gibt es dabei einige Details, die erstmal nicht ganz intuitiv zu verstehen sind.

Um den Einstieg in die Arbeit mit Strings im allgemeinem und SQL-Strings im besonderen zu erleichetern, habe ich ein umfangreiches Tutorial und Video zum Thema SQL-Strings in VBA erstellt.

Die String.Format Methode aus .Net or die printf Funktion aus C sind weitere Beispiele für Prozeduren die nur in VBA nur mit dem relativ unbekannten ParamArray Schlüsselwort emuliert werden können. Dieser Artikel zeigt, wie nützlich String.Format / printf ist.

Deine Windows-API Deklarationen in VBA zu 64-bit zu migrieren klingt schwieriger als es tatsächlich ist. Mit den Informationen und Ressourcen in diesem Artikel bist du in der Lage deine API-DeKlarationen für 64-bit anzupassen.

Rekursion ist eine mächtige Programmiertechnik. In diesem Artikel erkläre ich die grundlegenden Konzepte und zeige wie man Rekursion in VBA implementiert am Beispiel des Auslesens der Outlook Ordnerhierarchie.

Du kannst die Microsoft Office Trust Center Einstellungen mit einem einzigen Klick und ohne es zu wissen verändern. Dies ist gut genug für den durchschnittlichen Microsoft Office Benutzer, aber ein professioneller Access/VBA-Entwickler sollte mehr Details über die Sicherheheitswarnungen und die Trust Center Einstellungen in Microsoft Access und Office im Allgemeinen wissen.