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

[µo°Ý] ¹H¤Ï¦@¥Î­ì«h

«D±`·PÁÂsingo1232001¤j¤jªº¸Ñ´b
«D±`·PÁÂgoner¤j¤jªº¸Ñ´b

±N»yªk§ï¦¨³o¼Ë´N¨S¦³¥X²{"¹H¤Ï¦@¥Î­ì«h"ªº¿ù»~°T®§¤F
Function IsFileOpen(filePath As String) As Boolean
    Dim fso As Object
    Dim file As Object
   
    Set fso = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    Set file = fso.OpenTextFile(filePath, 1)
    If Err.Number = 0 Then
        IsFileOpen = False
        file.Close
    Else
        IsFileOpen = True
    End If
    On Error GoTo 0
    Set file = Nothing
    Set fso = Nothing
End Function
======================================
Private Sub Workbook_Open()
Application.OnTime TimeValue("17:00:00"), "full_calc"
End Sub

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD