luhpro

各位前輩您好,

請教一下如果系統固定時間會產出週期性的異常報表,
其檔案名稱為W901~, W=WEEKLY,9=2019 ...
CIRCUS938 發表於 2019-1-23 20:21

  Dim sStr$, sPath$
  sPath = "D:\"   ' 請設為實際查核資料相關檔案所在的目錄
  
  ' 今天第幾周 :   範例日期 - 2019/1/23 -> 第 4 週, sStr= "04"
  sStr = Right("0" & Int((Weekday(Left(Date, InStrRev(Date, "/")) & "1", 2) - 2 + Day(Date)) / 7) + 1, 2)
  
  ' 今天產出的異常性報表檔名 :  W904.xls
  sStr = "W" & Right(Year(Date), 1) & sStr & ".xls"
  
  Workbooks.Open sPath & sStr

-----------------------------------------------------
但如果你只是單純開啟當月每週的 4 ~ 5 個檔案:
  Dim i%, sPath$
  
  sPath = "D:\"   ' 請設為實際查核資料相關檔案所在的目錄
  On Error Resume Next
  For i = 1 To 5
    Workbooks.Open sPath & "W" & Right(Year(Date), 1) & "0" & i & ".xls"
  Next