請教如何開啟資料夾中的檔案呢？ - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請教如何開啟資料夾中的檔案呢？

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

[發問] 請教如何開啟資料夾中的檔案呢？

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2015-12-3 15:04 | 顯示全部帖子

回復 1# z71078170

Sub Test()
Dim oFS As Object, oFD As Object
Dim newFile As String, newDate As Date
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oFD = oFS.GetFolder("C:\資料夾路徑")
For Each x In oFD.Files
If x.DateCreated > newDate Then
newDate = x.DateCreated
newFile = x.Path
End If
Next
Workbooks.Open newFile
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。

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