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

z71078170

您好，版上的老師們因公司的需求，
故每天都需要抓資料夾裡最新的xls檔
其複製活頁簿A3欄位，
貼上於新的檔案以便一天工作的開始
想指教在Excel中如何在按下按鈕後
開啟指定的資料夾中
建立時間最新的檔案呢？

或抓檔名排序最後的方式也行
(檔名皆以儲存格式ex:2015-12-03)
而開啟檔案後的複製動作，
小弟打算用錄製巨集的方式完成

請各位老師提供意見，謝謝

stillfish00

回復 1# z71078170

1. Sub Test()
   
2.     Dim oFS As Object, oFD As Object
   
3.     Dim newFile As String, newDate As Date
   
4.    
   
5.     Set oFS = CreateObject("Scripting.FileSystemObject")
   
6.     Set oFD = oFS.GetFolder("C:\資料夾路徑")
   
7.    
   
8.     For Each x In oFD.Files
   
9.         If x.DateCreated > newDate Then
   
10.             newDate = x.DateCreated
    
11.             newFile = x.Path
    
12.         End If
    
13.     Next
    
14.     Workbooks.Open newFile
    
15. End Sub

複製代碼