GBKEE

¦^´_ 4# e19821223

1. Option Explicit
   
2. Private Sub Workbook_Open()
   
3.     Dim mypath As String, myfile As String
   
4.     mypath = "d:\"
   
5.     myfile = Dir(mypath & "test.TXT")
   
6.     If myfile = "" Then
   
7.         MsgBox "½Ð¦b«ü©w¹q¸£§@·~¡A¤~¯à¶}±ÒÀÉ®×", vbOKOnly
   
8.         ActiveWorkbook.Close SaveChanges:=False
   
9.     End If
   
10. End Sub

½Æ»s¥N½X