- 帖子
- 4
- 主題
- 0
- 精華
- 0
- 積分
- 52
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-10-20
- 最後登錄
- 2020-10-2
|
回復 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
|
|
發表於 2011-11-12 22:25
| 