Excel macro for converting a company's phone list to an IBM Rational ClearQuest importable user file

IBM Rational (dwinfo@us.ibm.com), Staff, IBM

This content is developed by IBM Rational

Summary: This is an example of an external hook for customizing IBM® Rational® ClearQuest®.

Date: 21 Apr 2004
Level: Introductory
Activity: 382 views

This item was originally published in May 2002.

NOTE: This hook is presented only as an example of how to customize your use of IBM Rational ClearQuest. It has not been formally tested, and is not supported by IBM.

Description

Examine the input formats on sheets 1 and 2 of this Excel file. Run the macro enclosed in the file (make sure you enable macros when you load this file) to bring up the converter.

Script Language

VB Script

Code

Sub CQUserImporter()
        
    nUsedColumns = ActiveSheet.UsedRange.Columns.Count
    
    With UserImporterForm
    
    ' clear all the checkboxes and combo boxes
    .ComboBoxEmail.Clear
    .ComboBoxMisc.Clear
    .ComboBoxName.Clear
    .ComboBoxPhone.Clear
    .CheckBoxPassword = True
    .TextBoxPassword.Enabled = False
    .CheckBoxAppend = False
    
    .CheckBox2 = False
    .CheckBox3 = False
    .CheckBox4 = False
    .CheckBox5 = False
    .CheckBox6 = False
    .CheckBox7 = False
    .CheckBox8 = False
    .CheckBox9 = False
    .CheckBox10 = False
    .CheckBox11 = False
    
    
    ' add header columns to all combo boxes
    Dim headerArray() As String
    ReDim headerArray(nUsedColumns)
    For Column = 1 To nUsedColumns
      NextString = Cells(1, Column).Value
      headerArray(Column) = NextString
      .ComboBoxEmail.AddItem (NextString)
      .ComboBoxMisc.AddItem (NextString)
      .ComboBoxName.AddItem (NextString)
      .ComboBoxPhone.AddItem (NextString)
    Next Column

On Error Resume Next
    Set cqObj = CreateObject("CLEARQUEST.SESSION")
    databases = cqObj.GetAccessibleDatabases("MASTR", "", "")
    For Each Db In databases
        .ListBox1.AddItem (Db.GetDatabaseName)
    Next
    
    
    .Show
    
    End With
    
End Sub

Submitter: Jason Slater

About the author

This content is developed by IBM Rational

Comments (Undergoing maintenance)

Trademarks | My developerWorks terms and conditions

Close [x]

Help: Update or add to My dW interests

What's this?

This little timesaver lets you update your My developerWorks profile with just one click! The general subject of this content (AIX and UNIX, Information Management, Lotus, Rational, Tivoli, WebSphere, Java, Linux, Open source, SOA and Web services, Web development, or XML) will be added to the interests section of your profile, if it's not there already. You only need to be logged in to My developerWorks.

And what's the point of adding your interests to your profile? That's how you find other users with the same interests as yours, and see what they're reading and contributing to the community. Your interests also help us recommend relevant developerWorks content to you.

View your My developerWorks profile

Return from help

Close [x]

Help: Remove from My dW interests

What's this?

Removing this interest does not alter your profile, but rather removes this piece of content from a list of all content for which you've indicated interest. In a future enhancement to My developerWorks, you'll be able to see a record of that content.

View your My developerWorks profile

Return from help

static.content.url=http://www.ibm.com/developerworks/js/artrating/

SITE_ID=1

Zone=Rational

ArticleID=217089

ArticleTitle=Excel macro for converting a company's phone list to an IBM Rational ClearQuest importable user file

publish-date=04212004

author1-email=dwinfo@us.ibm.com

author1-email-cc=