Excel VBA打开以指定字符开头的文件

最新推荐文章于 2025-02-11 01:33:11 发布

iShare_123

最新推荐文章于 2025-02-11 01:33:11 发布

阅读量3.4k

点赞数 1

分类专栏： Excel VBA 文章标签： microsoft

本文链接：https://blog.csdn.net/xyxing87/article/details/120916466

版权

Excel VBA 专栏收录该内容

1 篇文章

订阅专栏

这篇博客介绍了如何使用VBA（Visual Basic for Applications）编写代码，实现自动打开桌面上以'abc'开头的文件。通过mypath变量设定文件路径，使用Dir函数遍历目录，结合If条件判断，实现特定文件的筛选与打开。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

适用场景：

桌面上只有一个此类文件，此时可以通过以下代码自动打开该文件。

代码中关键在于使用myfile Like "abc*"进行匹配，即自动打开以abc开头的文件。

Sub OpenFileStartWithabc()
mypath = "C:\Users\Administrator\Desktop\"
myfile = Dir(mypath, vbDirectory)
Do While myfile <> ""
    If myfile <> "." And myfile <> ".." Then
        If myfile Like "abc*" Then
            Workbooks.Open ("C:\Users\Administrator\Desktop\" + myfile)
        End If
        myfile = Dir
    Else
        myfile = Dir
    End If
Loop
End Sub