返回列表 上一主題 發帖

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

downling

帖子
16 
主題
1 
精華
0 
積分
60 
點名
0  
作業系統
Windows 7 Professional 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-8-29 
最後登錄
2014-2-27 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-11-3 14:17 | 顯示全部帖子

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

請教各位高手
之前小弟在舊論壇找到一篇資料
http://gb.twbts.com/index.php?topic=660.msg2935#msg2935
  1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  2. Cancel = True
  3. Me.Save
  4. Me.SaveCopyAs Me.Path & "\" Replace(Me.Name,".xls",Format(Date,"emmdd") & ".xls")
  5. End Sub
複製代碼
但是現在不能用了
出現必須是陳述結尾的錯誤
請問是replace的用法有改嗎?

小弟是用2007版
收藏 分享

downling

帖子
16 
主題
1 
精華
0 
積分
60 
點名
0  
作業系統
Windows 7 Professional 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-8-29 
最後登錄
2014-2-27 
2#
發表於 2011-11-4 11:06 | 顯示全部帖子
感謝Hsieh版大
可以用了

TOP

downling

帖子
16 
主題
1 
精華
0 
積分
60 
點名
0  
作業系統
Windows 7 Professional 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-8-29 
最後登錄
2014-2-27 
3#
發表於 2011-11-9 17:49 | 顯示全部帖子
回復 2# Hsieh

我想再問一下
之前的vba必需為一帶巨集的xlsm檔才能使用

若是用一般的xls檔的vba要如何寫呢?

TOP

downling

帖子
16 
主題
1 
精華
0 
積分
60 
點名
0  
作業系統
Windows 7 Professional 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-8-29 
最後登錄
2014-2-27 
4#
發表於 2011-11-10 08:51 | 顯示全部帖子
回復 5# Hsieh

Hsieh 版大您誤會了

上面的程式2007是可以使用的
但是檔案必需為一個帶巨集的檔案也就是副檔名為xlsm

現在小弟因工作的需要，必需常常更新不同的檔案，由於是不同人所給的，
所以想要做成一通用的巨集或VBA
讓無巨集的檔案（也就是一般的XLS檔）也能方便的加上日期

小弟有在網路上找到類似的
但是路徑是設好的
想說要怎麼修改成原來的檔案所在的資料夾
  1. Sub TD()
  2. 　 mypath = "C:\Documents and Settings\Administrator\桌面\"
  3. 　 myfile = "NN" & Format(Date, "emmdd") & ".xls"
  4. 　 Sheets(Array("Sheet2", "Sheet3")).Copy
  5. 　 ActiveWorkbook.SaveAs mypath & myfile
  6. 　 Workbooks(myfile).Close
  7. End Sub
複製代碼

TOP

downling

帖子
16 
主題
1 
精華
0 
積分
60 
點名
0  
作業系統
Windows 7 Professional 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-8-29 
最後登錄
2014-2-27 
5#
發表於 2011-11-10 11:19 | 顯示全部帖子
剛又修改了一下
現在vba會把"你的檔名.xlsx"另存新檔為"你的檔名_yyyymmdd.xlsx"
請指教
  1. Sub TD()

  3.    myname = Application.ActiveWorkbook.FullName
  4.    Application.DisplayAlerts = False
  5.    ActiveWorkbook.SaveCopyAs Replace(myname, ".xls", "_" & Format(Date, "yyyymmdd") & ".xls")
  6.    Application.DisplayAlerts = True
  7.    
  8. End Sub
複製代碼

TOP

downling

帖子
16 
主題
1 
精華
0 
積分
60 
點名
0  
作業系統
Windows 7 Professional 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-8-29 
最後登錄
2014-2-27 
6#
發表於 2011-11-10 16:54 | 顯示全部帖子
回復 9# Hsieh

不好意思
讓您誤會了

小弟需要的是拿到檔案後
使用vba去修改檔名(加上或修改成今天日期)後另存新檔
ex:aaa.xlsx ---> aaa_20111110.xlsx or bbb_20111005.xlsx ---> bbb_20111110.xlsx

上面的程式應該只適用於沒有日期的檔名.....

至於上上面那個程式則是拿來參用一下他的思法而已囧

TOP

downling

帖子
16 
主題
1 
精華
0 
積分
60 
點名
0  
作業系統
Windows 7 Professional 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-8-29 
最後登錄
2014-2-27 
7#
發表於 2011-11-11 08:34 | 顯示全部帖子
本帖最後由 downling 於 2011-11-11 08:39 編輯

回復 11# oobird

謝謝您的回復
不過oobird 版大您這程式是只有把日期加上去而已喔

小弟拿到的檔名並沒有固定，所以還有檔案名稱跟路徑的要擷取，這部份上面小弟已經有寫出來了
加上小弟有時拿到的並非原始檔而是修改過已經加上日期的檔案
所以想問一下是不是有判斷副檔名前有沒有日期的寫法
如果沒有就加上今天日期
若有則修改成今天日期

TOP

downling

帖子
16 
主題
1 
精華
0 
積分
60 
點名
0  
作業系統
Windows 7 Professional 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-8-29 
最後登錄
2014-2-27 
8#
發表於 2011-11-14 09:26 | 顯示全部帖子
回復 13# luhpro

基本上檔名除了日期外是不會有其他的一連串數字
請問一下要用那種含數做201數字的判斷?

回復 14# mike.lee

請問mike.lee
InStr能從後面往前找嗎?
因為有些人喜觀用"_"做為空格

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題