請教,如何取最新的檔名? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請教,如何取最新的檔名?

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

請教,如何取最新的檔名?

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

1^# 跳轉到 »

發表於 2020-7-16 12:18 | 顯示全部帖子

取 c:\b\ 內取新以 a 開頭的 xlsx 檔案名。

Sub zz()
Dim pfn$ 'Path & file name
pfn = "c:\b\a*.xlsx"
With CreateObject("Wscript.Shell")
pfn = Split(.exec("cmd /c dir /o-d /b " & pfn).StdOut.ReadAll, vbCrLf)(0)
End With
End Sub

複製代碼

靜思自在 : 閒人無樂趣，忙人無是非。

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