返回列表 上一主題 發帖

[發問] 跨月抓資料的問題

imzues

帖子
72 
主題
24 
精華
0 
積分
172 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-7-16 
最後登錄
2023-7-6 
1# 跳轉到 » 正序看帖
打印
tT
發表於 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")
收藏 分享

imzues

帖子
72 
主題
24 
精華
0 
積分
172 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-7-16 
最後登錄
2023-7-6 
3#
發表於 2011-6-3 07:59 | 只看該作者
感謝....我大概知道要修改什麼地方了!!
謝謝幫忙!!!!

TOP

ginbow

帖子
28 
主題
4 
精華
0 
積分
54 
點名
0  
作業系統
windows xp pro 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
台南市 
註冊時間
2010-5-5 
最後登錄
2016-6-8 
2#
發表於 2011-6-2 17:33 | 只看該作者
直接在日期上減就可以了

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

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

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題