KONTOPRUEF-Logo
Sehen Sie sich auch mein anderes Produkt an:
myebilanz – die Freeware-eBilanz aus MySQL und CSV!
myebilanz

Einbindung in MS-Office / ASP / Visual Basic / VBSkript etc.

Für den Einsatz unter Windows mit Microsoft-Produkten empfiehlt es sich, das sog. COM-Objekt HanftWddx zu installieren.

Grundsätzlich funktioniert die Einbindung dann immer so ähnlich wie folgt:

Dim KtoPruef as Variant
Set KtoPruef = CreateObject("HanftWddx.KtoPruef")
KtoPruef.SetProxy("mein.proxy.de", 3128) ' (evtl.)
KtoPruef.SSLMode = 1 ' nur falls gewünscht
KtoPruef.TestBlzKto("Benutzername", "Kennwort", "Bankleitzahl", "Kontonummer", "Land", 0, "")
ErgebnisAlsZahl = KtoPruef.Result
ErgebnisAlsText = KtoPruef.Resulttext
ErgebnisBankName = KtoPruef.BankName

(Das COM-Objekt für die Adreßprüfung heißt HanftWddx.Address); die Ein- und Ausgabeparameter finden Sie auf der Funktionenseite.)

Es empfiehlt sich, die HanftWddx-COM-Objekte vorab in die jeweiligen Microsoft-Anwendungen einzubinden, da dann alle Schnittstellen und Parameter nahtlos in die jeweilige Anwendung integriert sind. Dies funktioniert z.B. bei Excel wie folgt:

  • Wählen Sie Extras - Makro - Visual Basic-Editor.
  • In diesem VB-Editor wählen Sie Extras - Verweise.
  • Kreuzen Sie in dem dort erscheinenden Fenster Hanft WDDX-Bibliothek für KtoPruef und Address an und bestätigen Sie mit Ok.
  • Erzeugen Sie ein neues Modul mit z.B. folgendem Inhalt:
    Dim KtoPruef As New HanftWddx.KtoPruef
    Public Function TestBlzKto(Blz, Kto As String) As Integer
      Call KtoPruef.TestBlzKto("benutzername", "kennwort", Blz, Kto, "DE")
      TestBlzKto = KtoPruef.Result
    End Function
  • Wechseln Sie vom VBA-Editor wieder in die Office-Applikation zurück. Sie können dort jetzt die hier definierte Funktion TestBlzKto als "normale" Excel-Funktion in der Tabelle verwenden (als Feldfunktion =TestBlzKto(A2;B2)).
Sehen Sie sich auch mein anderes Produkt an:
myebilanz – die Freeware-eBilanz aus MySQL und CSV!
myebilanz