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

看板Visual_Basic作者ezekielluc (辣辣)時間18年前 (2008/02/18 21:11)推噓1(1推 0噓 5→)

留言6則, 2人參與討論串1/1

想請教有經驗的大大如何在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

02/18 22:43, , 1^F

02/18 22:43, 1^F

→

ezekielluc

02/19 19:59, , 2^F

02/19 19:59, 2^F

→

ezekielluc

02/19 20:05, , 3^F

02/19 20:05, 3^F