- 帖子
- 128
- 主題
- 13
- 精華
- 1
- 積分
- 118
- 點名
- 0
- 作業系統
- WinXP
- 軟體版本
- Office2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 四川成都邛崃
- 註冊時間
- 2010-9-13
- 最後登錄
- 2017-5-12
|
Function bWkOpen(sTargetWkName) As Boolean
Dim xlWk As Workbook
On Error Resume Next
Err.Clear
Set xlWk = Workbooks(sTargetWkName)
If Err.Number = 0 Then
bWkOpen = True
Else
bWkOpen = False
Err.Clear
End If
Set xlWk = Nothing
End Function
Sub test()
MsgBox bWkOpen("Book1.xls")
End Sub |
|
發表於 2010-9-24 18:31
| 