excel - 如何在 VBA 中忽略以 2 个字母开头的文件

Question

我试图在我的 VBA 代码中创建一个条件，该条件将只搜索名称不以 2 个字母开头的文件。用户将选择一个文件夹并搜索文件夹中的所有文件，除非文件名以 2 个字母的任意组合开头。

IE 如果我在选定的文件夹中有这些文件：

22A.xls

2B2.xls

C2D.xls

EF2.xls

我希望分析除“EF2.xls”文件之外的每个文件。文件名会有所不同，所以我需要它忽略所有两个起始字符都是字母的文件名。

标签： excelvba

Answer 1

1. 用于Dir遍历文件夹中的文件。
2. 测试文件名的左边两个字符是否是使用Like "[A-z][A-z]*". 如果没有，那么继续。

Sub Test()
    Debug.Print Not "22A.xls" Like "[A-z][A-z]*" ' returns True
    Debug.Print Not "2B2.xls" Like "[A-z][A-z]*" ' returns True
    Debug.Print Not "C2D.xls" Like "[A-z][A-z]*" ' returns True
    Debug.Print Not "EF2.xls" Like "[A-z][A-z]*" ' returns False
End Sub