返回列表 上一主題 發帖

[發問] 請高人幫忙除錯，謝謝~

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
1# 跳轉到 »
發表於 2012-12-2 12:41 | 顯示全部帖子
回復 1# 198188

不知你的 [  ]是否是真實存在   在這我假設框是沒有的!
    Sub txet1()
'單純複製更名
VBA.FileCopy "Y:\2012\Jan\a.xlsx", "C:\user\destop\1.xlsx"
VBA.FileCopy "Y:\2012\Feb\b.xlsx", "C:\user\destop\2.xlsx"
VBA.FileCopy "Y:\2012\Mar\c.xlsx", "C:\user\destop\3.xlsx"
VBA.FileCopy "Y:\2012\Apr\d.xlsx", "C:\user\destop\4.xlsx"
VBA.FileCopy "Y:\2012\e.xlsx", "C:\user\destop\5.xlsx"
End Sub


如sever每日檔案會變動
需要在路徑加上判別今天 日期的語法
p =Format(Date, "d")&"-"&Format(Date, "m")
Format(Date, "d")  <-今天的日期 取"日"
Format(Date, "m") <-今天的日期 取"月"
所以理論上 就要 改為
VBA.FileCopy "Y:\2012\Jan\a& p & .xlsx", "C:\user\destop\1.xlsx"


名子不同這部分可能還要加以修正  因為要出門了 請其他大大幫我加以修正 感謝!!
Application.OnTime TimeValue("20:00:00"), "Module1.text1"
電腦時間到以上時間就執行模組 “ MODULE 1 ” 內的 “ text1 ” 這個程式
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
2#
發表於 2012-12-2 23:25 | 顯示全部帖子
回復 3# 198188


       回答第一題    沒錯   前面不需要vba.
   回答第二題    對  那句程式是只有在電腦右下角20:00:00的時候才會執行
     半小時的話  
     Application.OnTime Now + TimeValue("00:30:00"), "Module1.text1"
   回答第三題    會自動覆蓋
   回答第四題    不要在那abcde裡面放置vba   隨便一個excel內就好
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

die78325
　暱稱: 新鮮貨幽杉

中學生Rank: 2

帖子
94 
主題
10 
精華
0 
積分
114 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-10-17 
最後登錄
2014-1-3 
3#
發表於 2012-12-3 10:14 | 顯示全部帖子
回復 5# 198188


    是的   兩句語法不一樣! 請注意
Application.OnTime Now + TimeValue("00:30:00"), "Module1.text1"  '半小時

Application.OnTime TimeValue("20:00:00"), "Module1.text1"   '20:00:00執行
自用車也可以簽帳喔!
五千元加油金加入油箱後還回饋您6200元
福利旺車友會power-want.com

TOP

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