kzby2003的专栏

Function setPage() filePath = "C:\XXX\" fileNameFullPath = filePath + "1.txt" ' target file list Const ForReading = 1, _ ForWriting = 2, _ ForAppending = 8, _

Sub check_wk() wk = "book1.xls" On Error Resume Next If Len(Workbooks(wk).Name) > 0 Then If Err.Number = 9 Then MsgBox "Can't find " & wk Else MsgBox wk & " is open" End If End If End Sub