123
返回列表 上一主題 發帖

[發問] 更新日期+假日不更新

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
6# 跳轉到 »
發表於 2023-4-13 19:51 | 只看該作者
回復 5# cowww


    B = Format(Switch(A = 7, Date - 1, A = 1, Date - 2, A > 1, Date) -1, "yyyy.mm.dd")
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

cowww

帖子
122 
主題
26 
精華
0 
積分
148 
點名
0  
作業系統
windos10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2021-7-8 
最後登錄
2023-8-28 
5#
發表於 2023-4-13 17:23 | 只看該作者
回復 4# Andy2483

因為自動執行的時間是指定在早上06:00開始，也就是說抓的外單位檔案名稱的日期會是昨天的(過了00:00)
Private Sub Workbook_Open()
    Application.OnTime TimeValue("06:00:00"), "full_calc"
End Sub

請問Andy2483大大，可不可以把Workbooks.Open......"B"改成"B-1"就可以在早上06:00自動執行時抓到昨天日期的外單位資料??
A = Format(Date, "W")
B = Format(Switch(A = 7, Date - 1, A = 1, Date - 2, A > 1, Date), "yyyy.mm.dd")
Workbooks.Open ("\\SMK\B.各組資料 (Team inform)\E.生管組 (PPC group)\D.生產相關\2.每日模具異動\模具異動-六福\" & B - 1 & " 每日模具異動.xlsx")

TOP

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
4#
發表於 2023-4-13 13:47 | 只看該作者
回復 3# cowww

謝謝前輩再回復
"遇到六日時就讓VBA去抓星期五的日期就好"
後學對此情境的解決方案如下,請前輩參考

Sub 六日抓五() '每週的第一天是星期日
Dim A%, B$
A = Format(Date, "W")
B = Format(Switch(A = 7, Date - 1, A = 1, Date - 2, A > 1, Date), "yyyy.mm.dd")
MsgBox B
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

cowww

帖子
122 
主題
26 
精華
0 
積分
148 
點名
0  
作業系統
windos10 
軟體版本
office2016 
閱讀權限
20 
註冊時間
2021-7-8 
最後登錄
2023-8-28 
3#
發表於 2023-4-13 13:16 | 只看該作者
回復 2# Andy2483

非常感謝Andy2483大大的解答
第一個問題解決了

第二個解決辦法，小弟真的看不懂
可以請Andy2483大大說明嗎??
其實我的需求很簡單，遇到六日時就讓VBA去抓星期五的日期就好
補班or連假的問題可以先避開沒關係

TOP

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
2#
發表於 2023-4-13 12:29 | 只看該作者
回復 1# cowww


    謝謝論壇,謝謝各位前輩,謝謝前輩發表此主題
後學學習的建議如下:

Sub Format_Date() '每週的第一天是星期日
MsgBox "-六福\" & Format(Date, "yyyy.mm.dd") & " 每日模具異動.xlsx"
MsgBox Format("2023/4/13", "W")
End Sub
'其他非六.日國定假日.補假.補班須要對照表,請參考
http://forum.twbts.com/thread-23838-1-1.html
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 原諒別人就是善待自己。
123
返回列表 上一主題