返回列表 上一主題 發帖

[發問] 存檔時，自動加入存檔時的日期

mike.lee

帖子
4 
主題
0 
精華
0 
積分
52 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-10-20 
最後登錄
2020-10-2 
1# 跳轉到 »
發表於 2011-11-12 22:25 | 顯示全部帖子
回復 8# downling


   剛剛改了一下, 是這樣嗎?
  1. Sub TD()

  3.    Myname = Application.ActiveWorkbook.FullName
  4.    
  5.    Mypos = InStr(1, Myname, "_", 1)
  6.      
  7.    Application.DisplayAlerts = False
  8.      
  9.    If Mypos = 0 Then
  10.   
  11.        ActiveWorkbook.SaveCopyAs Replace(Myname, ".xls", "_" & Format(Date, "yyyymmdd") & ".xls")
  12.    
  13.    Else
  14.    
  15.      Newname = Mid(Myname, 1, Mypos - 1)
  16.      
  17.      ActiveWorkbook.SaveCopyAs Newname & "_" & Format(Date, "yyyymmdd") & ".xls"
  18.      
  19.    End If
  20.      
  21.    Application.DisplayAlerts = True
  22.    
  23. End Sub
複製代碼

TOP

mike.lee

帖子
4 
主題
0 
精華
0 
積分
52 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-10-20 
最後登錄
2020-10-2 
2#
發表於 2011-11-14 20:01 | 顯示全部帖子
回復 15# downling


   感謝GBKEE 大大詳細的說明,

如果"_"非檔名內唯一字元,上面程式就無法使用,就必須如luhpro 大大所說的,
利用"201"字串,判斷是否存在?再做檔名的取捨.

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題