bwin官网网

 找回暗码
 注册

QQ登录

只需一步,快速开端

你正在寻觅更好的Excel学习教程吗?Excel技巧80集+数据透视表+bwin平台初中高全套+VBA80集,想学的这儿全都有
检查: 209|回复: 3
打印 上一主题 下一主题

[求助] VBA入门新手讨教怎样运用Dir替换Application.Filesearch

[仿制链接]
跳转到指定楼层
1楼
宣布于 2019-6-17 17:24 | 只看该作者 回帖奖赏 |倒序阅览 |阅览形式
2学分
我刚开端学VBA,写了一个顺序查找excel文件的代码,可是提示我445,我搜了一下发现现在的excel不支持Application.Filesearch了,而且我不知道怎样运用Dir对查找出来的文件进行排序,想请大佬帮助改一下,能到达经过单击单元格内的内容,以该内容为关键词,查找指定文件夹中的excel文件,对查找出来的文件进行排序和增加超链接的作用。我整了半响仍是不会,求各位大佬能不吝赐教,万分感谢!!
代码如下所示:
Sub SearchFile()
   With Application.FileSearch
       .NewSearch
       .LookIn = "C:\Users"
       .SearchSubFolders = True
       .Filename = "*.xlsx"
       .Execute SortBy:=msoSortByLastModified, sortorder:=msoSortOrderDescending
       If .FoundFiles.Count > 0 Then
          For i = 1 To .FoundFiles.Count
              Cells(i, 1).Value = .FoundFiles()
          Next
       End If
    End With
End Sub


共享到:  QQ老友和群QQ老友和群
保藏保藏
2楼
匿名  宣布于 2019-6-20 10:15
请参阅


Sub test()
    With Application.FileDialog(msoFileDialogFolderPicker)
         MsgBox "请挑选文件夹", 48, "温馨提示!"
        If .Show = -1 Then '挑选文件夹
            mp = .SelectedItems(1) & "\" '您挑选文件夹途径
        End If
    End With
    mf = Dir(mp & "*.xlsx")
    Set sht = ThisWorkbook.Sheets(1)
    sht.Range("a1:a10000").Clear
    Do
        i = i + 1
        Cells(i, 1).Value = mf
        sht.Hyperlinks.Add anchor:=sht.Cells(i, 1), Address:=mp & mf, TextToDisplay:=Left(mf, Len(mf) - 5)
        mf = Dir
    Loop While mf <> ""
    MsgBox "结束!", 48, "温馨提示!"
    sht.Activate
    ThisWorkbook.Save
End Sub
3楼
匿名  宣布于 2019-6-20 10:15
请参阅


Sub test()
    With Application.FileDialog(msoFileDialogFolderPicker)
         MsgBox "请挑选文件夹", 48, "温馨提示!"
        If .Show = -1 Then '挑选文件夹
            mp = .SelectedItems(1) & "\" '您挑选文件夹途径
        End If
    End With
    mf = Dir(mp & "*.xlsx")
    Set sht = ThisWorkbook.Sheets(1)
    sht.Range("a1:a10000").Clear
    Do
        i = i + 1
        Cells(i, 1).Value = mf
        sht.Hyperlinks.Add anchor:=sht.Cells(i, 1), Address:=mp & mf, TextToDisplay:=Left(mf, Len(mf) - 5)
        mf = Dir
    Loop While mf <> ""
    MsgBox "结束!", 48, "温馨提示!"
    sht.Activate
    ThisWorkbook.Save
End Sub
4楼
 楼主| 宣布于 2019-6-21 13:01 | 只看该作者

哇谢谢大佬!我想问一下,有没有方法不挑选文件夹,用相似Lookin这样的句子提早编入方针文件夹呢?
您需求登录后才能够回帖 登录 | 注册

本版积分规矩

小黑屋|手机版|Archiver|bwin官网 ( 豫ICP备11015029号 )

GMT+8, 2019-9-9 22:15 , Processed in 0.031200 second(s), 3 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 回来顶部 回来列表