合并文件，文件名中有特定文本；从文件夹目录到单个Excel文件

我有一个文件夹目录和几个Excel文件。我编写了代码，将该目录中的每个文件复制到单个Excel工作表中

此文件夹有几个不同类别的文件

我需要添加一个条件，说明文件名中必须包含“Marios”

选项显式
子数据（）
作为对象的Dim FSO
作为对象的Dim fsoFol
作为对象的Dim fsoFile
将wb设置为工作簿
将wksSource设置为工作表
设置FSO=CreateObject（“Scripting.FileSystemObject”）
设置fsoFol=FSO.GetFolder（“C:\Desktop”和“\”）
对于fsoFol.Files中的每个fsoFile
如果fsoFile.Type类似“Microsoft*Excel*工作”_
而不是fsoFile.Path=thiswoolk.FullName
错误转到10
设置wb=Workbooks.Open（fsoFile.Path，False，True）
设置wksSource=Nothing
出错时继续下一步
设置wksSource=wb.工作表（“摘要”）
如果不是WKSource什么都不是
wksSource.Range（“A1:i100”）。副本_
此工作簿。工作表（“任天堂”）。单元格（Rows.Count，1）。结束（xlUp）。偏移量（1）
如果结束
错误转到0
wb.关闭错误
如果结束
下一个
10
端接头

只需将检查添加到If语句中即可

If fsoFile.Type Like "Microsoft*Excel*Work*" _
   And Not fsoFile.Path = ThisWorkbook.FullName _
   And fsoFile.Name Like "Marios*" Then

---

您可以使用

InStr

或

Like

来测试文件名是否包含单词。