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

tonycho33

請我假設我有個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


請問要如何修改呢
謝謝

葉國洲

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

tonycho33

回復 2# 葉國洲

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

tonycho33

回復 3# tonycho33

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

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

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

Hsieh

回復 4# tonycho33

Format(date-1,"yyyymmd")