Makrocenter - VBS-Makros aller Art, welche als kleine Helferlein im täglichem IT-Leben dienlich sind
 Archiv:
2009 01 02 03 04 05 06 07 08 09 10 11 12




12.01.2011 - IKAROS Aktenaufruf durch AG-VIP SQL

Das nachfolgende Code-Sample zeigt, wie man aus AG-VIP SQL eine Akte in IKAROS öffnet. IKAROS ist ein Forderungsmanagement aus dem Hause Ferber-Software GmbH. Zunächst benötigen wir 2 Felder in AG-VIP SQL, nämlich das Aktenzeichen und eine sogenannte Unterakte. Beide Felder müssen im Feldtyp TEXT angelegt werden, da die Aktenzeichen aus alphanumerischen (...)

mehr


16.09.2010 - Aktiven Windows User ermitteln

Das folgende Makrobeispiel zeigt, wie man den aktiven Windows-User per VBS ermitteln kann.' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' Version 1.00.043 2010.09.16 HJe ' Aktiven Windows-User per VBS ermitteln Option Explicit Dim oWshShell, UserName set oWshShell = CreateObject("WScript.Shell") (...)

mehr


23.08.2010 - Word-Hilfsmittel mit Inhaltssteuerelemente

Wer mich kennt weiß, dass mir die Verwendung von Dokumentenvariablen nicht sonderlich gefällt. Durch ein Kundenprojekt kam ich auf die Idee, eine neue Art von Wordhilfsmittel zu verwenden. Dazu verwende ich die Inhaltssteuerelemente von Word. Zu finden sind sie bei Word 2007 im Register der Entwicklertools. Ganz einfach lassen sich dabei die Textelemente (...)

mehr


17.08.2010 - Google-Suche nach Name1 in AGScript 2.5

Im AG-VIP_SQL wird bekanntlich mit dem Web-Browser-Control gearbeitet. Damit ist es möglich, Webseiten direkt anzeigen zu lassen, ohne ein zusätzliches Fenster öffnen zu müssen. Als nettes Hilfsmittel, gibt es zum Beispiel die Google Suche. Hiermit ist es möglich, zu einer zuvor hinterlegten Startadresse, die aktive Adresse als Zieladresse zu (...)

mehr


22.07.2010 - Funktion Trim: Leerzeichen aus einem String entfernen

Um Leerzeichen aus einem String zu entfernen. benutzt man die Funktion Trim. Mit Trim werden die Leerzeichen vor und nach einem String gelöscht. LTrim hingegen entfernt lediglich alle führende Lehrzeichen, sprich bis zur ersten String-Variable und RTrim löscht alle nachfolgenden Leerzeichen. ' Heiko Jendreck - personal helpdesk & webdesign ' (...)

mehr


21.07.2010 - AG-VIP_SQL: Adresse laden nach Start

AG-VIP_SQL kann durch Parameter so gestartet werden, dass eine Adresstabelle oder gar ein Projekt geladen wird. Um AG-VIP SQL mit fester Adresstabelle starten zu können, verwenden wir den Parameter /ad:[Name der aufzurufenden Adresstabelle] und um AG-VIP SQL mit festem Projekt startenzu können, wird zusätzlich der Parameter :pr übergeben, sprich (...)

mehr


04.06.2010 - Auflisten einer Ordnerstruktur mit ArrayList-Klasse

Ziel des nachfolgenden Beispiel-Marko ist es, eine komplette Ordnerstruktur, ausgehend von einem Startordner, auflisten zu lassen. Die jeweilige Tiefe, kann dabei selbst bestimmt werden. Wir nutzen dafür die Funktion GetSubFolderList, welche sich rekursiv aufruft. Hinweis: Stellen Sie sicher, dass Sie Zugriff auf alle Ordner in dieser Struktur (...)

mehr


10.05.2010 - UTF-8-BOM finden und entfernen

UTF-8 ist eine Zeichenkodierung, welche Internet oft angewendet respektive benutzt wird. Einige Editoren haben jedoch beim Speichern in UTF-8 das Problem, dass zusätzlich ein BOM (Byte Order Mark) eingefügt wird. Dies führt oft zu erheblichen Problemen, wenn beispielsweise einzelne PHP-Dateien verbunden werden. Um feststellen zu können, (...)

mehr


02.04.2010 - VBS - Kopieren einer Datei nach Versionsprüfung eines Folder

Durch einen Kundenauftrag bekam ich die Aufgabe, eine Datei nur dann in ein lokales Verzeichnis zu kopieren, wenn eine neuere Version vorliegt. Das folgende Beispielscript prüft zunächst die Verfügbarkeit des Quellordners respektive ob eine Quelldatei vorhanden ist. Ferner wird mittels Registry-Eintrag geprüft, ob eine neuere Dateiversion vorliegt. (...)

mehr


01.04.2010 - VBS - Dateiversionen auslesen

Es kann nützlich sein, die unterschiedlichen Versionen einer Datei auszulesen, um später damit weiter arbeiten zu können. Beispielsweise um einen Datenaustausch vorzunehmen. Dazu nutzen wir das FSO (File System Object). Im folgenden Beispiel sollen alle Daten aus dem Verzeichnis C:\Windows\System32 aufgelistet und deren Versionsnummer angezeigt (...)

mehr


11.03.2010 - Datum formatieren mit Datepart

Um ein Feld vom Typ Datum formatieren zu können, muss es zunächst in seine Einzelteile zerlegt werden. Dafür können wir die Funktion Datepart benutzen. Sie gibt einen bestimmten Teil eines Datumwertes zurück.' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' 2010.03.11 Vers 1.0 ' Erklärung Datum formatieren (...)

mehr


02.12.2009 - Datenfelder vom Typ Memo aus anderen Datenbanken beziehen

Die ADOConnection von AG-VIP SQL erlaubt uns den Zugriff auf andere Datenbanken. Diese nutze ich, um beispielsweise den Anrufgrund aus einer zentral verwalteten Datenbank zu holen. Das Feld "Anrufgrund" ist sowohl in der Kundendatenbank, als auch in der Projektdatenbank ein Memofeld. Merke: Wenn ein Datenfeld vom Typ Memo übergeben werden soll, müssen (...)

mehr


14.10.2009 - Präsentation einer Kundenwebseite im Internet Explorer

Als Webdesigner möchte man natürlich seine Arbeit beim Kunden präsentieren. Dafür gibt es verschiedene Lösungsansätze. Mit dem folgenden Makro möchte ich aufzeigen, wie der InternetExplorer ferngesteuert werden kann und eine Webpräsentation völlig automatisch abläuft. Hierzu verwende ich das Objektmodell des InternetExplorers.' Heiko (...)

mehr


13.10.2009 - VBS - URL im Internet Explorer aufrufen

Um einen URL im InternetExplorer aufzurufen, gibt es verschiedene Lösungsansätze. Ich möchte hier 2 kleine Beispiele zeigen. Im ersten Beispiel verwenden wir WScript.Shell:' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' 2009.10.13 Vers 1.0 ' URL im Internetexplorer aufrufen mit WScript.Shell ' (...)

mehr


11.10.2009 - VBS - Setzen eines Proxyserver im IE

Die Werte für den Einsatz eines Proxy-Servers im InternetExlporer, lassen sich durch ein Skript mit VBS setzen. Dazu wird der Eintrag direkt in die Registry geschrieben. Siehe Beispiel:' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' 2009.10.09 Vers 1.0 ' Proxywert im IE setzen ' Mit diesem Script (VBS) lassen (...)

mehr


10.10.2009 - Die Funktionen INT und FIX erklärt

Die FIX-Funktion gibt den ganzzahligen Anteil einer Zahl zurück. Die INT-Funktion gibt den ganzzahligen Anteil einer Zahl zurück. Bei der FIX-Funktion ist der Rückgabewert für negative Zahlen kleiner oder gleich dem Argument Zahl. Bei der INT-Funktion ist der Rückgabewert für negative Zahlen größer oder gleich dem Argument Zahl. Parameter: Zahl (...)

mehr


10.10.2009 - AG-VIP_SQL - Umgang mit Application.ActiveCall.Duration

Um die Gesprächsdauer eines Telefonates zu ermitteln, nutzen wir Application.ActiveCall.Duration. Application.ActiveCall.Duration liefert die Dauer eines Telefonates in Sekunden. Ist das Telefonat noch nicht verbunden, oder erst im Verbindungsaufbau oder im eingehenden Stadium, dann liefert diese Funktion 0 zurück. Wichtig: Application.ActiveCall.Duration (...)

mehr


10.10.2009 - Der Operator mod (Modulo) erklärt

Der Operator mod dividiert zwei Zahlen und gibt nur den Rest vom Ergebnis zurück. Beidpiel 5 mod 2 = 1; denn 5 geteilt durch 2 = 2 Rest 1 jede x-beliebige Zahl mod 1 = 0; denn es gibt keinen Restwert Entsprechende Formel Der Ausdruck a mod b ist zu beiden der folgenden Formeln äquivalent: a - (b * (a \ b)) a - (b * FIX(a / b))

mehr


08.10.2009 - AG-VIP_SQL - Application.ActiveCall

' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' 2009.10.08 Vers 1.0 ' Erklärung - Objekt ActiveCall für AG-VIP_SQL ' In diesem Beispielmakro möchte ich anhand eines praktischen Beispieles das Objekt ' ActiveCall mit seinen Eigenschaften erklären. ' Wichtig!!! ' Das Objekt ActiveCall steht (...)

mehr


08.10.2009 - Tapi Tester

Durch ein Kundenprojekt war es erforderlich ein VBS-Script zu entwerfen, welches die aktuelle TAPI-Line prüft und ein Call initiiert. ' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' 2009.10.08 Vers 1.0 ' Settings strPhoneNumber = "+49 (6202) 1268480" strTapiLine = "AG manuelle Anwahl" 'Name der TAPI-Line (...)

mehr


30.09.2009 - MsgBox-Funktion erklärt

Die Funktion MsgBox zeigt eine Meldung in einem Dialogfeld an und wartet darauf, dass der Benutzer auf eine Schaltfläche klickt. Anschließend wird eine ganze Zahl zurückgegeben, die anzeigt, auf welche Schaltfläche geklickt wurde. Parameter: Prompt - Erforderlich String-Ausdruck, der als Meldung im Dialogfeld angezeigt wird. Die maximale (...)

mehr


17.08.2009 - DateDiff Funktion

Die DateDiff - Funktion gibt einen Long-Wert zurück, der die Anzahl der Zeitintervalle zwischen zwei Date-Werten angibt. ' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' 2009.08.28 Vers 1.0 ' Erklärung der DateDiff-Funktion ' Ausgangsdatum (z.B. Erscheinungsdatum) Dim Date1 Date1 = "17.08.2009" (...)

mehr


28.07.2009 - AG-VIP_SQL - Prüfung eines Feldes vom Typ DatumZeit

' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' 2009.07.28 Vers1.0 USticker ' In diesem Makro soll ein Pflichtfeld vom Typ "DatumZeit" geprüft werden, ob es leer ist. ' wichtig hierbei ist, dass sowohl Datum als auch die Zeit geprüft werden muss. MsgBox CheckDate(ActiveAddress.Fields("Appointment").value) ' (...)

mehr


12.07.2009 - MsgBox verschwindet von allein

Manchmal kann es sinnvoll sein, eine MsgBox von allein wieder verschwinden zu lassen. set objShell = createobject("Wscript.shell") objShell.popup "Nach 3 Sekunden bin ich wieder weg.",3,"Messageboxmeldung"

mehr


19.06.2009 - Feldfarben in Formularfelder ändern

Manchmal ist es sinnvoll, die Hintergrundfarbe oder die Textfarbe zu ändern. Ein passendes Beispiel wären Pflichtfelder. Sollten Pflichfelder nicht gefüllt respektive beantwortet sein, wird es dem Anwender leichter gemacht, wenn diese Felder farblich unterlegt sind. Beispiel um den Hintergrund eines Feldes ändern zu können: CurrentForm.Controls("Modell_Name").ColorBackground (...)

mehr


06.06.2009 - VBS-Makro - Convert doc2pdf - PDF aus Word 2007 Dokument erstellen

' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' 2008.10.01 Vers1.0 ' Convert doc2pdf - PDF aus Word 2007 Dokument erstellen Dim sPDFFile sPDFFile = "C:\test.pdf" ' an dieser Stelle bitte den Pfad und Dateinamen angeben oActiveDocument.SaveAs sPDFFile, 17 Voraussetzung dafür ist MS-Word ab Version (...)

mehr


04.06.2009 - VBS-Makro - Alter anhand des Geburtstages errechnen

' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' 2007.06.21 ' Bei diesem Makro soll das Alter anhand des Geburtstages errechnet werden Option Explicit Dim Alter, Monat, Tag, MonatHeute, TagHeute If ActiveAddress.Fields("Geburtstag").Value "" Then ActiveAddress.Fields("Alter").Value = Int(Alter) Alter (...)

mehr


20.05.2009 - AG-VP_SQL & Skype

' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' 2009.05.20 ' Für Chat If Not ActiveAddress.Fields("CommSkype").Value = Empty Then strSkype = ActiveAddress.Fields("CommSkype").Value ActiveAddress.Fields("CommSkype").Value = "skype:" & strSkype & "?chat" End If ' Für Call If (...)

mehr


20.05.2009 - ToDo-Liste mit Hilfe von Zusatztabellen / Aufgabe erstellen

' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' 2009.05.20 ' In diesem Makro soll eine neue Aufgabe in die Zusatztabelle geschrieben werden. Option Explicit If Not ActiveForm.Fields("neue_Aufgabe").Value = Empty Then 'Variablen für den Eintrag setzen Dim ToDo_Nummer ToDo_Nummer = Application.GlobalCounter(1) Dim (...)

mehr


18.05.2009 - VBS-Makro - Wochentag ermitteln

' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' 2009.05.18 ' An dieser Stelle wird der Wochentag des Termins ermittelt If Not ActiveAddress.Fields("Termin_Datum").Value = Empty Then Dim sDate, sWDay sDate = ActiveAddress.Fields("Termin_Datum").Value sWDay = WeekdayName(Weekday(CDate(sDate), (...)

mehr


17.05.2009 - VBS-Makro - Datei erstellen mittels File System Object

Hier ein Makro zur Erstellung einer Textdatei, mittels FSO (File System Object). Der Name der erzeugten Textdatei beinhaltet das aktuelle Datum. Ich setze dies oft für die Fehlersuche und/oder als LOG-Buch ein. ' Heiko Jendreck - personal helpdesk & webdesign ' http://www.phw-jendreck.de ' 2009.05.17 Option Explicit '***************************************************** Dim (...)

mehr


13.03.2009 - Nützliche Codeschnipsel für Outlook-Termine

Hier ein paar Codeschnipsel für Makro's, bei denen Termine im Outlook erzeugt werden sollen: ' Endzeit auf 2 Stunden fixieren Dim olTime olTime = olApptItem.Start olTime = DateAdd("n", 120, olTime) olApptItem.End = olTime ' Ort setzen Dim Terminort Terminort = ActiveAddress.Fields("Terminort").Value olApptItem.Location (...)

mehr

Copyright © 2003 - 2011, Heiko Jendreck, All rights reserved
http://www.phw-jendreck.de / Heiko Jendreck; Friedrichstrasse 20; 68782 Brühl