' 最上位の ClearCase オブジェクトに接続します。 Dim CC As New ClearCase.Application Dim VOB as CCVOB Dim Act as CCActivity ' ClearCase.Application オブジェクトから VOB を取得します (IClearCase を使用)。 ' その際、VOB タグの指定とエラーのチェックを行います。 On Error Resume Next Set VOB = CC.VOB("¥code") If Err.Number <> 0 Then MsgBox "CC.VOB returned error: " & Err.Description End If ' VOB から特定のアクティビティを取得し、エラーをチェックします。 On Error Resume Next Set Act = VOB.Activity("activity990513.133238") If Err.Number <> 0 Then MsgBox "VOB.Activity returned error: " & Err.Description Else MsgBox "Got activity named " & Act & " from VOB named " & VOB End If