锘??xml version="1.0" encoding="utf-8" standalone="yes"?>男女激情片在线观看,国产高清欧美,精品成人私密视频http://www.aygfsteel.com/sanwish/archive/2008/06/14/207909.htmlsanwishsanwishSat, 14 Jun 2008 08:05:00 GMThttp://www.aygfsteel.com/sanwish/archive/2008/06/14/207909.htmlhttp://www.aygfsteel.com/sanwish/comments/207909.htmlhttp://www.aygfsteel.com/sanwish/archive/2008/06/14/207909.html#Feedback0http://www.aygfsteel.com/sanwish/comments/commentRss/207909.htmlhttp://www.aygfsteel.com/sanwish/services/trackbacks/207909.html1錛岀涓縐嶏紝褰撳弬鏁版槸workbook鏃?br />
Function聽WorksheetExists(wb聽As聽Workbook,聽sName聽As聽String)聽As聽Boolean
聽聽Dim聽s聽As聽String
聽聽On聽Error聽GoTo聽ErrHandle
聽聽聽聽聽s聽=聽wb.Worksheets(sName).Name
聽聽聽聽聽WorksheetExists聽=聽True
聽聽聽聽聽Exit聽Function
聽聽ErrHandle:
聽聽聽聽聽WorksheetExists聽=聽False
End聽Function


鎴栬呭綋絎竴涓弬鏁版槸鏂囦歡鍚嶇殑鏃跺?br />Function WorksheetExists(wb As String, sName As String) As Boolean
聽 Dim s As String
聽 On Error GoTo ErrHandle
聽聽聽聽 Windows(GetNoPathFile(wb)).Activate
聽聽聽聽 ActiveWorkbook.Sheets(sName).Select
聽聽聽聽 WorksheetExists = True
聽聽聽聽 Exit Function
聽 ErrHandle:
聽聽聽聽 WorksheetExists = False
End Function

sanwish 2008-06-14 16:05 鍙戣〃璇勮
]]>
主站蜘蛛池模板: 云霄县| 沈丘县| 江安县| 上杭县| 贡觉县| 琼结县| 溧水县| 甘泉县| 义马市| 临潭县| 鄂伦春自治旗| 平顶山市| 永昌县| 永济市| 东辽县| 永康市| 南陵县| 济源市| 雅安市| 灵山县| 兴文县| 南康市| 汪清县| 阿鲁科尔沁旗| 朝阳区| 东乌珠穆沁旗| 宜城市| 宿州市| 和平区| 凤山县| 乌审旗| 札达县| 巩义市| 阿克陶县| 兴义市| 霍城县| 赤壁市| 农安县| 隆昌县| 开远市| 静乐县|