標題: 請問如何開啟依日期檔名做複製貼上 [打印本頁]

---

作者: tonycho33    時間: 2016-12-1 22:33     標題: 請問如何開啟依日期檔名做複製貼上

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


請問要如何修改呢
謝謝

---

作者: 葉國洲    時間: 2016-12-2 13:20

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

---

作者: tonycho33    時間: 2016-12-7 09:19

回復 2# 葉國洲

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

---

作者: tonycho33    時間: 2016-12-22 15:34

回復 3# tonycho33

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

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

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

---

作者: Hsieh    時間: 2016-12-22 16:11

回復 4# tonycho33

Format(date-1,"yyyymmd")

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)