請問如何開啟依日期檔名做複製貼上

請我假設我有個excel檔案  ：a.xls
要從某個資料夾（例如 D:\123) 中的檔案 C4~C100的資料複製，然後貼到a.xls 的  B4~B100
但D:\123中的檔案是會變化的
例如 abc1201 是12月1日生成的檔
若到12/2 就會變成abc1202
      12/3 就會變成abc1203
就是每天會貼一次到a.xls 的  B4~B100

ChDir "D:\123"
Workbooks.Open Filename:="D:\abc1202.xls"
Range("B4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("a.xls").Activate
   Range("b4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False

請問要如何修改呢
謝謝

樓主熱帖

Tony

葉國洲

小學生 Rank: 1

帖子: 31
主題: 0
精華: 0
積分: 31
點名: 0
作業系統: win10
軟體版本: office 2016
閱讀權限: 10
性別: 男
註冊時間: 2016-10-4
最後登錄: 2017-10-17

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2016-12-2 13:20 | 只看該作者

回復 1# tonycho33
"D:\abc" & Format(Date, "mmdd") & ".xls"

TOP

tonycho33

中學生 Rank: 2

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

3^#

發表於 2016-12-7 09:19 | 只看該作者

回復 2# 葉國洲

請問如果我每次要抓前一天日期的話要如何寫
或是可跳出一個視窗輸入日期幾月幾號?
謝謝

Tony

TOP

tonycho33

中學生 Rank: 2

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

4^#

發表於 2016-12-22 15:34 | 只看該作者

回復 3# tonycho33

請問一下我想每次抓取『前一天日期的檔名』
例如今天是12/22
我檔案要抓abc20161221.xls
請問要如何使用呢

程式碼好像無法達到－請協助謝謝
myday = DateAdd("m", -1, Date)

Workbooks.Open Filename:="abc" & myday & ".xls"

Tony

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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