Visual Basic hat nun gestartet Visual Basic für Applikationen oder VBA . Dieses Programm ermöglicht es Ihnen, praktisch alle Aspekte von Access, Excel und Word zu steuern. Es erlaubt Ihnen auch , um eines der Programme , während in einem anderen zu manipulieren. Befolgen Sie diese Schritte zu lernen, wie Visual Basic , Access , Excel und Word zu steuern. Anleitung
1
Use Visual Basic , Access , Excel und Word , indem Sie auf "Tools" auf dem Programm Symbolleiste steuern. Wählen Sie " Makro " und dann " Neues Makro aufzeichnen . " Dies ist, wo Sie die Befehle in den Schritten 2 bis 5 geben kann
2
Programm das aktuelle Datum in Word , indem Sie den folgenden Code: . "Sub EnterCurrentDate ()" " ' EnterCurrentDate Macro" " ' Makro aufgezeichnet 15/03/2005 von Username " " ' Selection.InsertDateTime DateTimeFormat : = dd -MM- yy " , InsertAsField : = False , _DateLanguage : = wdEnglishAUS , CalendarType : = wdCalendarWestern , _InsertAsFullWidth : = False " "End Sub "
3
Ihrer Datenbank Aufgaben wie Durchlaufen einer Tabelle durch Eingabe der folgenden Code automatisieren : "Sub LoopTableExample " " Dim db wie DAO.Database " " Dim rs As DAO.Recordset " " Set db = CurrentDb " " Set rs = db.OpenRecordset ( "SELECT * FROM tblMain " ) " " Do Until rs.EOF " " MsgBox rs ! FieldName " " rs.MoveNext " " loop " " rs.Close " " Set db = Nothing " "End Sub "
4
erstellen UDF in einer Excel-Arbeitsmappe , indem Sie diesen Gutscheincode zu benutzen: " Public Function BusinessDayPrior ( dt As Date ) As Date " " Select Case Weekday ( dt , vbMonday ) " " Fall 1 " " BusinessDayPrior = dt - 3 ' wird Montag Friday" "Case 7" " BusinessDayPrior = dt - 2 " Sunday wird Friday " " Case Else " " BusinessDayPrior = dt - 1' Alle anderen Tage werden Vortag " " End Wählen Sie " " End Function "
5
Fügen Sie eine externe Anwendung Objekt zu Ihrem Programm durch Eingabe dieses Codes : " Public Sub Beispiel () "" Dim xlApp Wie Excel.Application " " Dim wdApp Als Wort . Application " " Set xlApp = CreateObject (" Excel.Applcation " ) " " set wdApp = CreateObject (" Word.Application ") ' ... hier Ihren Code ... " XlApp.Quit " " WDApp.Quit " " Set xlApp = Nothing " " Set wdApp = Nothing " "End Sub "