| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 183 人关注过本帖
标题:请高手指教:如何用VBA,去尋找特定编辑日期之后的所有档案?
只看楼主 加入收藏
kihoke
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2020-4-15
收藏
 问题点数:0 回复次数:2 
请高手指教:如何用VBA,去尋找特定编辑日期之后的所有档案?
譬如,我想找2020年4月1日至今,所有修改过(或新建立的新档)
将它们都开啟,可以的话,把它们存在一个新资料夾是最好!可以辦到吗?
如果不行,是否有其他辦法或语言程式可以编辑?
搜索更多相关主题的帖子: VBA 日期 编辑 档案 特定 
2020-04-15 18:34
albertsjohns
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2020-4-25
收藏
得分:0 
Sub FileModifiedTime()
Dim fso As Object
Dim fol As Object
Dim fil As Object

Dim timePoint As String
timePoint = InputBox("时间(格式:2020-4-16 20:00):")
If timePoint = "" Then
    Exit Sub
End If

Dim timeStruct As Date

If IsDate(timePoint) Then
    timeStruct = CDate(timePoint)
Else
    Exit Sub
End If
Dim newPath As String
newPath = InputBox("请输入文件夹路径(格式:C:\Users\albert\Desktop\dir):")


Set fso = CreateObject("Scripting.filesystemobject")
Set fol = fso.GetFolder(ActiveDocument.Path)

For Each fil In fol.Files
    If InStr(1, fil.Path, "$") > 0 Then
    ElseIf InStr(1, fil.Path, ".doc") > 0 Then
        If DateDiff("s", fil.DateLastModified, timeStruct) > 0 Or DateDiff("s", fil.DateCreated, timeStruct) > 0 Then 'fil.DateCreated, fil.DateLastAccessed
            MsgBox fil.Name & " 修改或创建时间较早"
        Else
            MsgBox fil.Name & " 修改或创建时间较晚"
            Documents.Open (fil.Path)
            ActiveDocument.SaveAs2 (newPath & "\" & fil.Name)
            ActiveDocument.Close
        End If
    End If
Next fil
End Sub
2020-04-25 10:42
albertsjohns
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2020-4-25
收藏
得分:0 
代码有问题可以加我QQ:3127441363
2020-04-25 10:43
快速回复:请高手指教:如何用VBA,去尋找特定编辑日期之后的所有档案?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.051400 second(s), 8 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved