作者ezekielluc (辣辣)
看板Visual_Basic
标题[VB6 ] vb6如何侦测EXCEL的SHEET是NULL??
时间Mon Feb 18 21:11:20 2008
想请教有经验的大大
如何在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
1F：推 fumizuki:Not 摆前面 02/18 22:43
2F：→ ezekielluc:感谢~~我试试看~~ 02/19 19:59
3F：→ ezekielluc:试过了~~会在该判断式发生问题~~我改用其他方法来达到 02/19 20:05
4F：→ ezekielluc:目的~~就是利用一个计数器来计数，利用错误产生时存起 02/19 20:06
5F：→ ezekielluc:那一个值~便是我所有INDEX的总数，在用FOR来搜寻 02/19 20:07
6F：→ ezekielluc:就这样~~ 02/19 20:08