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

cowww

½Ð°Ý½×¾Âªº¤j¤j­Ì
"¹H¤Ï¦@¥Î­ì«h"¬O¬Æ»ò·N«ä

¤U¸ü (12.75 KB)

2023-8-10 10:04

¥[¤J©³¤Uªº»yªk´N·|¥X²{"¹H¤Ï¦@¥Î­ì«h"
Private Sub Workbook_Open()
Application.OnTime TimeValue("17:00:00"), "full_calc"
End Sub

»yªkªº¨Ó·½
https://learn.microsoft.com/zh-tw/office/vba/api/excel.application.ontime

cowww

¦^´_ 1# cowww

Function IsFileOpen(filePath As String) As Boolean
    Dim fileNum As Integer
    fileNum = FreeFile()

    On Error Resume Next
    Open filePath For Binary Access Read Write Lock Read Write As fileNum
    If Err.Number <> 0 Then
        IsFileOpen = True
    End If
    Close fileNum
    On Error GoTo 0
End Function

Dim targetFilePath As String
    targetFilePath = "\\shl-group.com\dept\MFMG\¹ï¥~³æ¦ì¶}©ñ¸ê®Æ\·|ij«Ç¼Ò¨ã°lÂܸê°T\«æ¥ó±M®×ª¬ºA°lÂÜ_v2_1.xlsm"
   
If IsFileOpen(targetFilePath) Then
    ' Àɮפw³Q¶}±Ò¡A°õ¦æ¥t¦s·sÀɪº°Ê§@
    Dim currentDate As String
    currentDate = Format(Date, "yyyymmdd") ' ¨ú±o·í¤Ñ¤é´Áªº¦r¦êªí¥Ü¡A¨Ò¦p¡G20230522
   
    Dim newFileName As String
    newFileName = "\\shl-group.com\dept\MFMG\¹ï¥~³æ¦ì¶}©ñ¸ê®Æ\·|ij«Ç¼Ò¨ã°lÂܸê°T\«æ¥ó±M®×ª¬ºA°lÂÜ_v2_1_" & currentDate & ".xlsm"
   
    ThisWorkbook.SaveAs filename:=newFileName, WriteResPassword:="6112", ReadOnlyRecommended:=True

Else
    ThisWorkbook.SaveAs filename:=targetFilePath, WriteResPassword:="6112", ReadOnlyRecommended:=True

End If
============================================================================================
Private Sub Workbook_Open()

'«ü©w07:45¶}©l°õ¦æ"full_calc"
    Application.OnTime TimeValue("17:00:00"), "full_calc"
   
End Sub

´ú¸Õµo²{¤W­z¨â¬q»yªk¦n¹³·|³y¦¨"¹H¤Ï¦@¥Î­ì«h"ªº²§±`¥X²{

½Ð°Ý³o­Ó°ÝÃD¦³¿ìªk¸Ñ¨M¶Ü??

cowww

¦^´_ 3# singo1232001

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

ÁÙ¬O·|¥X²{"¹H¤Ï¦@¥Î­ì«h"ªº¿ù»~°T®§

cowww

¦^´_ 5# singo1232001

§Ú¤]¬Oı±o¼g¦bopen©³¤U¤ñ¸û¦n
¦ý¬O§Ú¦b¤½¥q¹q¸£ªºÅv­­¥u¦³¨Ï¥ÎªÌ
¨S¿ìªk°µWindows¤u§@±Æµ{¾¹

©Ò¥H¤~·|·Q¨ì¥Îontime

cowww

¦^´_ 7# singo1232001


«D±`·PÁÂsingo1232001¤j¤jªº¸Ñ´b
¤U­±ªº¼gªk¨Ã¨S¦³¥X²{"¹H¤Ï¦@¥Î­ì«h"
Sub ±M®×_«ö¶s22_Click()
Call full_calc
End Sub

cowww

¦^´_ 8# goner

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

§Ú¬O¥t¦s¤@­ÓÀÉ®×°µ­×§ï
¤]«Ü½T©wÀɮרèS¦³¶}°_¦@¥Î

cowww

«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