帖子: 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

小學生 Rank: 1

帖子: 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

超級版主 Rank: 8 Rank: 8

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

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

小學生 Rank: 1

帖子: 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