2­Óvba°ÝÃD

basarasy

1. ¦³2­Óexcel   book1 & book2 ,¶}¤Fbook1 ¥Îvba¶}book2, ¦pªGtest
if book2¶}±Ò¤F then  end
end if

2. ¦p¦ó°µ·íoff excel®É   a1·|¦Û°Ê=1?

½Ð¤j¤jªùÀ°À°¦£.

et5323

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

basarasy

¦^´_ 2# et5323


    ÁÂÁ¤j¤j
¥i§_§ï¦¨ book1¥H¶}®É
msgbox ½ÐÃöbook1