帖子: 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

中學生 Rank: 2

帖子: 15
主題: 5
精華: 0
積分: 62
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 女
來自: taipai
註冊時間: 2012-4-1
最後登錄: 2017-4-22

6^#

發表於 2012-12-7 20:08 | 只看該作者

回復 5# GBKEE
解釋非常詳盡,對陣列又有多一層的認識
感下大大

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

TOP

GBKEE

超級版主 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兔年全勤獎章

5^#

發表於 2012-12-7 07:22 | 只看該作者

本帖最後由 GBKEE 於 2012-12-7 07:27 編輯

回復 4# borshun88
Array 函數所建立的陣列預設下限必為零
Match 函數如有傳回數字必為1開始
VBA的說明

Option Base 陳述式
在模組層次中用來宣告陣列索引的預設下限。
語法
Option Base {0 | 1}
請注意
若預設的下限值為 0，則 Option Base 陳述式是不需要的。若需要使用時，此陳述式必須出現在模組中，並且在任何程序之前。Option Base 僅能在模組裏出現一次，而且必須在含有維數的陣列宣告之前。
附註在 Dim、Private、Public、ReDim 和 Static 陳述式中，To 子句提供較具彈性的方法，來控制陣列索引的範圍。然而，如果不使用 To 子句來明確的設定下限，則可用 Option Base 來改變預設值的下限為 1。Array 函數所建立的陣列預設下限必為零，不受 Option Base 所影響。

複製代碼

如果有 Option Base 1
那 S 就不須減 1

TOP

borshun88

中學生 Rank: 2

帖子: 15
主題: 5
精華: 0
積分: 62
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 女
來自: taipai
註冊時間: 2012-4-1
最後登錄: 2017-4-22

4^#

發表於 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

GBKEE

超級版主 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兔年全勤獎章

3^#

發表於 2012-12-6 11:43 | 只看該作者

回復 1# borshun88
DateLastModified 屬性傳回最後一次修改指定檔案或資料夾的日期和時間。唯讀。
幫你找到最新有修改的檔案,剩下的請自己完成

Option Explicit
Sub 巨集1()
Dim f As Object, FileDate(), FileName(), S As Variant
If Dir("D:\AA\*.xlsm") = "" Then: MsgBox "沒檔案": Exit Sub
For Each f In CreateObject("scripting.filesystemobject").GetFolder("d:\AA").Files
If InStr(f, ".xlsm") Then
ReDim Preserve FileName(S)
ReDim Preserve FileDate(S)
FileName(S) = f
FileDate(S) = CDbl(f.DateLastModified)
S = S + 1
End If
Next
If S > 0 Then
S = Application.Match(Application.Max(FileDate), FileDate, 0) - 1
MsgBox FileName(S)
End If
'fs.DeleteFile "D:\AA\*"
'MsgBox "Done"
End Sub

複製代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2012-12-6 10:31 | 只看該作者

回復 1# borshun88

日期檔案名稱的命名規則為何?

學海無涯_不恥下問

TOP