Excel VBA 批量操作文件，FileSystemObject 方式，避免文件名中的奇怪字符

之前使用使用Dir批量获取指定文件夹下的excel文件的时候，出现了问题。
出现的问题是：文件名中的空格被替换成了**?**，导致打开文件的时候出现无法找到的情况。
使用FileSystemObject，解决此问题。

---

以下是代码模板：

Sub MySub()
    ' 需要引用scrrun.dll
    ' 工具->引用->浏览，在“C:\Windows\System32”下可以找到
    Dim MyFSO As New FileSystemObject
    
    Application.ScreenUpdating = False  ' 页面刷新禁止，提高效率的常规操作
    On Error Resume Next    ' 忽略错误继续执行代码，常用

    Set folder = MyFSO.getfolder(ThisWorkbook.Path & "\")   ' 根据自己的需求选择。这里我默认是当前文件夹
    For Each file In folder.Files   ' 循环获取文件夹下的文件
        ' 这里就能进行文件操作了
        If file.Name Like "*关键词*" Then   ' 这里可以设定一下条件
            Set myWorkbook = Workbooks.Open(file)    ' 打开文件
            myWorkbook.Worksheets("Sheet1").Activate    ' 指定某一个sheet活动
            ' do something  ' 这里就是实际需要做的事情
            myWorkbook.Close    ' 完成后关闭
        End If
    Next

    Application.ScreenUpdating = True    
End Sub