標題: 有一個問題 [打印本頁]

---

作者: zaq370    時間: 2011-9-6 15:53     標題: 有一個問題

WorkDay(DateAdd("m", -1, Date), IIf(Weekday(DateAdd("m", -1, Date), vbMonday) > 5, -1, 0))

若要將最後面的0改為一個有範圍儲存格的假日要如何改？(假日表在另一個sheet)

---

作者: zaq370    時間: 2011-9-7 09:56

本帖最後由 zaq370 於 2011-9-7 09:59 編輯

回復 1# zaq370


    現在有一個問題，我是用日期名稱當檔案名稱，在抓的時候，若遇到沒有的日期(如假日或沒有產生資料的日期)就往後一天，我是用DO ...LOOP做一個找資料夾檔案，若沒有的名稱就往後找，但一直出錯，我找不到原因出在哪？幫忙一下囉！感恩!!檔案如附檔!!

目前7/2~7/6是沒有報表產生故沒有檔案!!
下一個問題會碰到中秋節，老闆不要用一個假日表!!這樣每年都要去更改那張表，目前程式碼用在"模組3"←七月份的

[attach]7751[/attach]

---

作者: Hsieh    時間: 2011-9-7 14:45

回復 2# zaq370

mydate = DateAdd("m", -2, Date) '上上月
wb = Format(mydate, "mmdd")
tt = Format(mydate, "mm")
fs = Dir(ThisWorkbook.Path & "\100" & tt & "\" & "NOC" + wb & ".xls")
Do Until fs <> ""
mydate = mydate + s
wb = Format(mydate, "mmdd")
tt = Format(mydate, "mm")
fs = Dir(ThisWorkbook.Path & "\100" & tt & "\" & "NOC" + wb & ".xls")
s = s + 1
Loop
With Workbooks.Open(fs)

---

作者: zaq370    時間: 2011-9-7 19:28

回復 3# Hsieh


    感恩大哥!!!我剛測試一下發現7/4和7/6都會抓到7/7號的檔案，可是7/5卻抓到7/8號檔案!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)