呼叫vba VBA隨記 呼叫最新日期工作簿

2021-10-25 12:48:51 字數 1964 閱讀 9360

如果呼叫指定資料夾下最新日期的工作簿?

例:見下圖,在e:vbatest下有三個工作簿,修改時間分別是2020/3/25的22:58, 22:59, 22:60 ,呼叫最新修改日期的工作簿。

'檔案操作

set fso = createobject("scripting.filesystemobject")

path = "e:vbatest"

'獲取檔名

fname = dir(path & "*.xlsx")

f0 = ""

d0 = #1/1/1900#

do while fname <> ""

set f = fso.getfile(path & fname)

if f.datelastmodified > d0 then d0 = f.datecreated: f0 = fname

fname = dir

loop

'輸出一下結果

msgbox f0 & "是最新修改的檔案。"

執行結果

**分析:

一、createobject函式可以建立並返回乙個對activex物件的引用,dim 變數 as object,採用後期繫結方式,這裡是建立檔案操作的意思。

dim fso as object

set fso = createobject("scripting.filesystemobject")

二、getfile方法返回乙個和指定路徑中檔案相對應的file物件。

set f = fso.getfile("e:vbatest" & fname)

語句:object.getfile(filespec)

引數: object是必須的,filesystemobject物件的名稱;filespec是必須的,指定檔案的路徑。

name檔名稱

datecreated檔案建立日期

datelastmodified檔案最後修改日期

datelastaccessed檔案最後訪問日期

parentfolder檔案的父資料夾

pat**件的完整路徑

type檔案型別

size以位元組表示的檔案大小

三、獲取 目標檔案f 的最後修改日期datelastmodified,並判斷。

if f.datelastmodified > d0 then d0 = f.datecreated: f0 = fname
第一次與d0=1/1/1900判斷,d0小,所以d0被賦值為f的最後修改日期,且讓f0 = fname 目標檔名,迴圈比較。

從監視視窗可以看到除了有datelastmodified,還有datecreated等等,可以根據實際需求更改。

excel 如何獲取資料夾下最新日期的乙個檔案-excelvba程式開發-excelhome技術論壇 -

dede呼叫全站的最新文章

2011 11 03 13 08 23 眾所周知,arclist一般用於當前欄目的模板,在這種情況下,arclist不用指定typeid,只會呼叫當前欄目下的文章。如果想要呼叫整站的文章就可以指定typeid 1,2,3,4.在欄目少的情況下不失為一種解決方法,但是如果欄目很多的話就有些麻煩了!莪靉...

Z blog呼叫Discuz論壇最新帖子的方法

最近,我在子目錄下面安裝了乙個discuz論壇程式。大家都知道zblog是程式設計客棧asp,discuz是php,那麼asp的zblog應該如何實現在首頁呼叫php的discuz論壇最新帖子呢?經過湖南seo的努力,終於找到解決辦法 湖南seo使用的discuz x2 版本,下面將分為discuz...

Dedecms搜尋頁面呼叫全站最新文章的方法

在dedecms搜尋頁面新增最新文章呼叫 發現不能實現文章列表呼叫,查其原程式設計客棧因是由於織夢cms的arclist標記適用範圍是封面模板index.htm 列表模板list arcitle.htm和文件模板article article.htm,所以在搜尋頁面使用最新文章標籤無法實現呼叫,而且...