返回列表 上一主題 發帖

有一個問題

zaq370

帖子
13 
主題
3 
精華
0 
積分
22 
點名
0  
作業系統
WIN 7 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
註冊時間
2011-8-25 
最後登錄
2011-9-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-9-6 15:53 | 只看該作者

有一個問題

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

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

zaq370

帖子
13 
主題
3 
精華
0 
積分
22 
點名
0  
作業系統
WIN 7 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
註冊時間
2011-8-25 
最後登錄
2011-9-15 
2#
發表於 2011-9-7 09:56 | 只看該作者
本帖最後由 zaq370 於 2011-9-7 09:59 編輯

回復 1# zaq370


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

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

0901.rar (631.48 KB)

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
246  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-12 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 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)
學海無涯_不恥下問

TOP

zaq370

帖子
13 
主題
3 
精華
0 
積分
22 
點名
0  
作業系統
WIN 7 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
註冊時間
2011-8-25 
最後登錄
2011-9-15 
4#
發表於 2011-9-7 19:28 | 只看該作者
回復 3# Hsieh


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

TOP

        靜思自在 : 人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。
返回列表 上一主題