1.
If Dir(sExcelFile)="" Then msgbox "No such excel found!!"2.
Function ExistedSheet(byval sName as string) as boolean
with m_oApplication 'Excel.Application
nCount=.Sheets.Count
fExisted=False
for nIndex=1 to nCount
If .Sheets.Item(nindex).name=sName Then
fExisted=True
Exit For
End If
Next
End With
ExistedSheet=fExisted
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货