返回列表 上一主題 發帖

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

z71078170

帖子
5 
主題
4 
精華
0 
積分
12 
點名
0  
作業系統
win7 
軟體版本
Office2010 
閱讀權限
10 
性別
男 
註冊時間
2015-11-25 
最後登錄
2017-3-31 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-12-3 02:49 | 只看該作者

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

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

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

請各位老師提供意見，謝謝
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2015-12-3 15:04 | 只看該作者
回復 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
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題