返回列表 上一主題 發帖

求助---如何Save 使其檔名尾號+1而不重複

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-1-18 23:49 | 顯示全部帖子

求助---如何Save 使其檔名尾號+1而不重複

本帖最後由 yangjie 於 2011-1-19 00:57 編輯

就教於各位板主大大:
Sub output()
    Application.DisplayAlerts = False
    path1 = ActiveWorkbook.Path
    n=1   
Sheets("學生資料").Activate
    Sheets("學生資料").Copy
    ActiveWorkbook.SaveAs FileName:= _
        path1&"\(" & Date$ & ")資料備份" & n &  ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWindow.Close
End Sub
    應如何修改 使其自動判讀n=? 才能不重複檔名

謝謝 感恩
收藏 分享

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
2#
發表於 2011-1-21 13:19 | 顯示全部帖子
回復 2# Hsieh


    謝謝版主，問題解決了。
想再請教
     f = Dir(fd & d & "*.xls")
        Do Until f = ""
            n = n + 1
            f = Dir
        Loop
為何? f = Dir 的邏輯是?????? 想不懂??
請賜教

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
3#
發表於 2011-1-22 00:30 | 顯示全部帖子
回復 4# Hsieh


    完全了解   感謝 Hseih 超級版主

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題