如何每日更新不同日期的檔案，順便計算儲存格數??

返回列表下一主題上一主題發帖

zaq370

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 22
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 10
性別: 男
註冊時間: 2011-8-25
最後登錄: 2011-9-15

11^# 跳轉到 »

發表於 2011-8-31 17:59 | 只看該作者

回復 10# Hsieh

大哥，很感激你的解答，我覺得應該不是檔名的問題吧！現在今天是可以抓到7/29，但明天9/1日，卻抓了8/5日的資料而不是8/1日

若像這種排除六日算工作天利用workday函數會比較好嗎?!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

12^#

發表於 2011-8-31 18:44 | 只看該作者

回復 11# zaq370

myday = Application.WorkDay(DateAdd("m", -1, Date), IIf(Weekday(DateAdd("m", -1, Date), vbMonday) > 5, -1, 0))'前一個月
wb = Format(myday, "mmdd")
tt = Format(myday, "mm")
With Workbooks.Open(ThisWorkbook.Path & "\100" & tt & "\" & "NOC" + wb & ".xls")
不過這樣的情形如果大小月不同時不知道你要怎麼抓資料

學海無涯_不恥下問

TOP

zaq370