存檔時，自動加入存檔時的日期 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 存檔時，自動加入存檔時的日期

返回列表下一主題上一主題發帖

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

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

11^# 跳轉到 »

發表於 2011-11-10 17:18 | 只看該作者

Sub 改名()
Name "c:\aaa.xlsx" As "c:\aaa" & "_" & Format(Date, "yyyymmdd") & ".xlsx"
End Sub

中學生 Rank: 2

帖子: 16
主題: 1
精華: 0
積分: 60
點名: 0
作業系統: Windows 7 Professional
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-29
最後登錄: 2014-2-27

12^#

發表於 2011-11-11 08:34 | 只看該作者

本帖最後由 downling 於 2011-11-11 08:39 編輯

回復 11# oobird

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

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

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

13^#

發表於 2011-11-12 09:10 | 只看該作者

本帖最後由 luhpro 於 2011-11-12 09:12 編輯

回復 12# downling
這最好能有你實際產生出來的檔案名稱作基準才好寫程式,
在此假設你的檔案名稱不管有沒有日期檔名中都不會出現 201 這個數字(9 年後請再自己改成 202),
那麼就可以用 201 作為判斷是否檔名已有日期的依據,
有 201 就用今天日期取代 2 開始的 8 個數字,
沒有就加上日期.

當然, 如果檔名中有可能出現 201 ,
那麼寫法又會有所不同了,
這就是需要有你實際產生出來的檔案名稱作基準的原因.

中學生 Rank: 2

帖子: 4
主題: 0
精華: 0
積分: 52
點名: 0
作業系統: windows 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-10-20
最後登錄: 2020-10-2

14^#

發表於 2011-11-12 22:25 | 只看該作者

回復 8# downling

剛剛改了一下, 是這樣嗎?

Sub TD()
Myname = Application.ActiveWorkbook.FullName
Mypos = InStr(1, Myname, "_", 1)
Application.DisplayAlerts = False
If Mypos = 0 Then
ActiveWorkbook.SaveCopyAs Replace(Myname, ".xls", "_" & Format(Date, "yyyymmdd") & ".xls")
Else
Newname = Mid(Myname, 1, Mypos - 1)
ActiveWorkbook.SaveCopyAs Newname & "_" & Format(Date, "yyyymmdd") & ".xls"
End If
Application.DisplayAlerts = True
End Sub

複製代碼

中學生 Rank: 2

帖子: 16
主題: 1
精華: 0
積分: 60
點名: 0
作業系統: Windows 7 Professional
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-29
最後登錄: 2014-2-27

15^#

發表於 2011-11-14 09:26 | 只看該作者

回復 13# luhpro

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

回復 14# mike.lee

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

16^#

發表於 2011-11-14 10:46 | 只看該作者

本帖最後由 GBKEE 於 2011-11-14 11:06 編輯

回復 15# downling

Sub Ex() 'StrReverse函數 -> 傳回指定字串的字元順序是反向的。
Dim A, X
A = "A_120_78_9"
X = A Like "*120*" '找到傳回 True 反之傳回 False
MsgBox X
X = InStrRev(A, "_") '由左右向左搜尋的字串運算式
MsgBox X
A = StrReverse(A)
X = InStr( A, "_") '由左向右搜尋的字串運算式
MsgBox X
End Sub

複製代碼

Sub Ex() ''InStr , InStrRev 用法不同
Dim A, X, C
A = "A120_78_9"
'InStr([start, ]string1, string2[, compare])
' start= C string1= A 'string2="_"
C = 1 '設定從第幾個字母開始尋找
'X = InStr(A, "_") '沒指定C 預設為1
X = InStr(C, A, "_") '由左向右搜尋的字串運算式
MsgBox X
'InstrRev(stringcheck, stringmatch[, start[, compare]])
' stringcheck= A 'stringmatch="_" Start= C
C = Len(A) '設定從第幾個字母開始尋找
'X = InStrRev(A, "_") '沒指定C 預設為字串的長度 Len(A)
X = InStrRev(A, "_", C) '由右向左搜尋的字串運算式
MsgBox X
End Sub

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

17^#

發表於 2011-11-14 19:40 | 只看該作者

回復 luhpro

基本上檔名除了日期外是不會有其他的一連串數字
請問一下要用那種含數做201數字的判斷?
...
downling 發表於 2011-11-14 09:26

把檔名放進字串變數裡,
然後參照上面的方式使用 Instr 找檔名(不含目錄)字串內有沒有 "201" 就可以了.

中學生 Rank: 2

帖子: 4
主題: 0
精華: 0
積分: 52
點名: 0
作業系統: windows 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-10-20
最後登錄: 2020-10-2

18^#

發表於 2011-11-14 20:01 | 只看該作者

回復 15# downling

感謝GBKEE 大大詳細的說明,

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

中學生 Rank: 2

帖子: 32
主題: 2
精華: 0
積分: 67
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2020-12-30

19^#

發表於 2012-8-9 11:39 | 只看該作者

謝謝各位大大的討論,是初學者的福音。

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。

返回列表下一主題上一主題