ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

ÀˬdÀɮ׬O§_¦s¦b

If Dir("C:\TEST.XLS") = Empty Then
     MsgBox "¤å¥ó¤£¦s¦b¡C"
   End If
   On Error Resume Next
   Set B = Workbooks("TEST.XLS")
If Err.Number = 0 Then
        MsgBox testfile & "Àɮפw¶}±Ò"
    End If

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD