返回列表 上一主題 發帖

[發問] 請教自動開啟開啟活頁簿

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
1  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2019-1-23 23:15 | 顯示全部帖子
本帖最後由 luhpro 於 2019-1-23 23:26 編輯
各位前輩您好,

請教一下如果系統固定時間會產出週期性的異常報表,
其檔案名稱為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

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題