[VB6 ] vb6如何偵測EXCEL的SHEET是NULL??

[ezekielluc (辣辣)]

想請教有經驗的大大
如何在vb6裡面之到excel的檔案裡面的頁是不存在的
我寫的程式如下

Private Sub Command2_Click()
On Error GoTo ErrHandle
If OP = True Then
If StockNum.Text <> "" Then

i = 1
    While MyExcelAp.Sheets(i).Select Is Not Nothing   <==
        i = i + 1
        MyExcelAp.Sheets(i).Select
        If MyExcelAp.Cells(1, 2) = StockNum.Text Then
        'Label4.Caption = MyExcelAp.Cells(1, 1)
            StockName.Text = CStr(MyExcelAp.Cells(1, 1)) 'Label4.Caption
            MyExcelAp.Visible = True
        End If
    Wend

MyExcelAp.Visible = True
Exit Sub
箭頭是我想的判斷式，可是有問題想請教如何才能夠成立我想要的判斷
感謝~~~~

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 122.124.35.250
推 fumizuki:Not 擺前面
→ ezekielluc:感謝~~我試試看~~
→ ezekielluc:試過了~~會在該判斷式發生問題~~我改用其他方法來達到
→ ezekielluc:目的~~就是利用一個計數器來計數，利用錯誤產生時存起
→ ezekielluc:那一個值~便是我所有INDEX的總數，在用FOR來搜尋
→ ezekielluc:就這樣~~