返回列表 上一主題 發帖

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

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
1# 跳轉到 »
發表於 2020-7-16 12:12 | 顯示全部帖子
本帖最後由 n7822123 於 2020-7-16 12:17 編輯

回復 1# tomking

最新的檔名定義是什麼?

1.檔名排序最靠後
2.最後修改時間的檔案
3.最後建立的檔案

還是讓使用者用手動方式選擇檔案吧~更彈性

新增一個副函數"GetFileFullName"即可做到

Sub 你的程式()
Workbooks.Open Filename:=GetFileFullName
Windows("C:\B\A123.xlsx").Activate
Range("A1:AG1000").Select
Selection.Copy
'...
'...
'...
End Sub

Function GetFileFullName()  As String
With Application.FileDialog(msoFileDialogFilePicker)
  .Filters.Clear                      '先清除可選檔案清單
  .Filters.Add "excel檔案", "*.xls;*.xlsx;*.xlsm"  '限定選取檔案的清單
  .InitialFileName = "C:\B"  '選取視窗最初的資料夾位置
  .AllowMultiSelect = False  '不可多選
  If .Show = 0 Then Exit Function '沒選擇就離開
  GetFileFullName = .SelectedItems(1)
End With
End Function
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題