- ©«¤l
- 122
- ¥DÃD
- 26
- ºëµØ
- 0
- ¿n¤À
- 148
- ÂI¦W
- 0
- §@·~¨t²Î
- windos10
- ³nÅ骩¥»
- office2016
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2021-7-8
- ³Ì«áµn¿ý
- 2023-8-28
|
«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 |
|