Microsoft KB Archive/138284

= Visual Basic Macro to Insert Data in Schedule+ =

Article ID: 138284

Article Last Modified on 10/11/2006

-

APPLIES TO


 * Microsoft Excel 95 Standard Edition
 * Microsoft Schedule+ 97 Standard Edition, when used with:
 * Microsoft Windows 95

-



This article was previously published under Q138284





SUMMARY
Microsoft Schedule+ for Windows 95, version 7.0, can be programmatically controlled through Visual Basic for applications. The following example takes data from a Microsoft Excel worksheet and places it in the Contacts database in Microsoft Schedule+.



MORE INFORMATION
Microsoft provides examples of Visual Basic for applications procedures for illustration only, without warranty either expressed or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose. This Visual Basic procedure is provided 'as is' and Microsoft does not guarantee that it can be used in all situations. Microsoft does not support modifications of this procedure to suit customer requirements for a particular purpose.

Sample Macro
Sub Place_Data_From_XL_Into_Contacts Dim objSched, objTable, objItem As Object

' Sets a variable to the caption of Excel CurApp = Application.Caption

' Creates the schedule+ object Set objSched = CreateObject("scheduleplus.application.7")

' Checks to see if you are logged on to Schedule+ If Not objSched.LoggedOn Then

AppActivate CurApp 'activates Excel

' Prompts you for you email name UserName = Application.InputBox("Please Enter Your Email Name")

objSched.Logon UserName, "", True  'logs you into schedule+ End If

' Creates the contacts database object Set objTable = objSched.ScheduleSelected.Contacts With Worksheets("Sheet1")

' Starts a loop from 1 to the number of rows of data For i = 2 To .Range(.Range("a2"), _        .Range("a2").End(xlDown)).Rows.Count

Set objItem = objTable.New ' Creates a blank new entry in the ' table

' Creates new entries in the contacts database ' using the values in the appropriate cells 'The following three lines need to be on one line

objItem.SetProperties FirstName:=.Range("a" & i).Value, _ LastName:=.Range("b" & i).Value, _ PhoneBusiness:=.Range("c" & i).Value, _ PhoneHome:=.Range("d" & i).Value

Next i 'returns to the top of the loop

End With

End Sub

To test the sample macro
  Enter the following data on Sheet1 of a new workbook:   A1: First Name  B1: Last Name  C1: Business Phone  D1: Home Phone A2: John       B2: Doe        C2: (232)653-6545   D2: (232)345-4343 A3: Larry      B3: Popper     C3: (434)564-5465   D3: (434)534-8967 A4: Peter      B4: Los        C4: (212)896-3465   D4: (867)756-3654 A5: Neal       B5: West       C5: (545)927-7261   D5: (999)888-1234 A6: Kevin      B6: Slack      C6: (111)555-6306   D6: (555)596-0000  Run the Place_Data_From_XL_Into_Contacts macro. To view the new data, switch to Schedule+ and click the Contacts tab.

