VB6.0(SP6)で任意のExcelのデータを参照するには？

YCOSAP 2006-01-11 08:09:02 No: 93532

Windows2000環境で任意のエクセルが開かれた時に、GetObjectでxlAppをセットし、そのシートの値を参照するソースを作成しています。以前のURL
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1081151
を参考にそのままでは動作しなかったので、変更を加えました。しかし、依然として動作しません。
回答お願いします。他にまずいところがありましたら。指摘願います。
Do
DoEvents

        For i = 0 To 1000
            i = i + 1
        Next i
'ここで、errmain.countupflagT2は2秒毎に立てる
        If errmain.countupflagT2 Then
            If xlApp Is Nothing Then
                On Error Resume Next
                Set xlApp = GetObject _
                          (, "Excel.Application")
            End If

            If xlbk Is Nothing Then
                On Error Resume Next
                Set xlbk = xlApp.ActiveWorkbook
            End If

            On Error Resume Next
            Set xlsh = xlbk.ActiveSheet

            If xlbk.ActiveSheet Is Nothing Then

            Else
                Judge
            End If

            If xlApp.Visible = False Then
                Set xlApp = Nothing
                Set xlbk = Nothing
                Set xlsh = Nothing
            End If

        End If
    Loop
上記のような感じで、エクセルが閉じた時には、逆の処理をしたいのですが・・・。
エクセルが起動しても、xlbk以降がSetできません。
xp環境ではそれなりに動いてますが。

YCOSAP 2006-01-11 17:49:12 No: 93533

それと、通常はエクセルのシートは一定間隔で更新されるため、あるインターバルでその値を再度参照し、参照後、値が閾値を越えたとき、ラベルの文字を点滅させます。すると、点滅間隔が不均一になる時があります。対処するにはどうすればいいのでしょうか？

マルポ 2006-01-11 20:05:48 No: 93534

http://okwave.jp/kotaeru.php3?q=1888135

この人は 2006-01-11 20:31:20 No: 93535

この人は、前科４犯のマルチポスターなので
無視してたのに、案の定だね

YCOSAP 2006-01-11 22:00:00 No: 93536

こうしたサイトに質問をするのはこれで２回目です。なにぶんマナー等を知らないので、失礼致しました。緊急事態の為、2つのサイトに掲載したんですが・・・。

特攻隊長まるるう 2006-01-11 23:22:56 No: 93537

>緊急事態の為、
火に油を注いでおりますが
http://www.geocities.co.jp/SiliconValley/5634/t82AB_0006.html#1217
そんなに急ぐなら、ちゃんと対価を払って正規のサポートを受けるか
知識のある人（会社）へ外注してください。

掲示板で回答を得たいならマナーの勉強を自分でし、マナーのある
レスで謝罪するしか無いでしょう。それができるまで回答は付きません。

マルチすると回答率は下がるので逆効果です。回答者は同じ分野の
複数のサイトに出入りしてます。複数サイトに同じ内容の掲載は目に
つきますのでやめて下さい。