標題: [發問] 跨月抓資料的問題 [打印本頁]

---

作者: imzues    時間: 2011-6-2 15:44     標題: 跨月抓資料的問題

請問一下我想用每天的日期抓前一天的資料檔案的資料
但我遇到跨月的時候，我寫的部份就會有問題
可以協助指導一下怎麼克服跨月的問題

Dim MySheet As Worksheet
    Dim D As String
    Dim M As String
    Dim Y As String
    Dim Rowno As Integer


    D = Day(Now) - 1
    Y = Year(Now)
    M = Month(Now)


   If Len(D) = 1 Then
   D = "0" + D
   Else
   D = D
   End If

   If Len(M) = 1 Then
   M = "0" + M
   Else
   M = M
   End If

With Workbooks.Open("C:\\00" + M + "TEST\00" + M + D + "TEST.xls")

---

作者: ginbow    時間: 2011-6-2 17:33

直接在日期上減就可以了

Sub d1()
Dim mydate As Date
mydate = Date
mydate = mydate - 1
MsgBox (mydate)
End Sub

這是剛測試的 抓到是昨天
載來測試跨月份 你-2 他一樣可以抓到5/31
所以可以從日期上直接減

---

作者: imzues    時間: 2011-6-3 07:59

感謝....我大概知道要修改什麼地方了!!
謝謝幫忙!!!!

---

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