返回列表 上一主題 發帖

[發問] 變更檔名

borshun88

帖子
15 
主題
5 
精華
0 
積分
62 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
20 
性別
女 
來自
taipai 
註冊時間
2012-4-1 
最後登錄
2017-4-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-12-6 01:15 | 顯示全部帖子

[發問] 變更檔名

請問大大
1.如何(搜尋)開啟"D:\AA\"下的最新日期的Excel檔案(.xlsm),並變更檔名為Text.xlsm,
然後覆蓋儲存到"D"\BB\Text.xlsm(不要有提醒對話方塊,直接存檔)
2.然後將原"D:\AA\"所有檔案刪除

如上述 第2點刪除檔案參考論壇大大如下可以做到,但第1點不知道要如何寫,
請幫幫忙

Sub 巨集1()
Dim fs
If Dir("D:\AA\*") = "" Then: MsgBox "沒檔案": Exit Sub
Set fs = CreateObject("scripting.filesystemobject")
fs.DeleteFile "D:\AA\*"
MsgBox "Done"
End Sub
收藏 分享

borshun88

帖子
15 
主題
5 
精華
0 
積分
62 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
20 
性別
女 
來自
taipai 
註冊時間
2012-4-1 
最後登錄
2017-4-22 
2#
發表於 2012-12-6 23:12 | 顯示全部帖子
回復 3# GBKEE
Dear GBKEE
大大提供程式可行,也完全match我想要達到的需求,太感恩了
但小弟涉略不深對這些程式有些難以消化,可否詳細說明

    If S > 0 Then

        S = Application.Match(Application.Max(FileDate), FileDate, 0) - 1 ''''''這句就無法連結起來,尤其是為何要-1??

懇請大大在指導一下

TOP

borshun88

帖子
15 
主題
5 
精華
0 
積分
62 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
20 
性別
女 
來自
taipai 
註冊時間
2012-4-1 
最後登錄
2017-4-22 
3#
發表於 2012-12-7 20:08 | 顯示全部帖子
回復 5# GBKEE
解釋非常詳盡,對陣列又有多一層的認識
感下大大

回復 2# Hsieh
也感謝Hsieh 大大的關心回覆

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題