为什么我得到一个不存在的文件名？
我试图运行一个代码，将在一个文件夹中的所有Excel文件中进行一些replace。 首先，这里是代码：
Dim FileSystem As Object Dim HostFolder As String Dim StringA As String Dim StringB As String Sub Init() Application.DisplayAlerts = False HostFolder = "\\Pc-dell\d\Documentos\LSM2\CLIENTES\SRB CDT 2 PROGRESSO2\" Set FileSystem = CreateObject("Scripting.FileSystemObject") DoFolder FileSystem.GetFolder(HostFolder) Application.DisplayAlerts = True End Sub Sub DoFolder(Folder) Dim SubFolder For Each SubFolder In Folder.SubFolders DoFolder SubFolder Next Dim File For Each File In Folder.Files If Right(File.Name, 4) = ".xls" Or Right(File.Name, 5) = ".xlsx" Then With Workbooks.Open(File, False) Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets SwapStringsInActiveWorkbook "l1", "l2", ws SwapStringsInActiveWorkbook "L1", "L2", ws SwapStringsInActiveWorkbook "l 1", "l 2", ws SwapStringsInActiveWorkbook "L 1", "L 2", ws SwapStringsInActiveWorkbook "loja1", "loja2", ws SwapStringsInActiveWorkbook "LOJA1", "LOJA2", ws SwapStringsInActiveWorkbook "loja 1", "loja 2", ws SwapStringsInActiveWorkbook "LOJA 1", "LOJA 2", ws SwapStringsInActiveWorkbook "Loja1", "Loja2", ws SwapStringsInActiveWorkbook "Loja 1", "Loja 2", ws SwapStringsInActiveWorkbook "LOJA1", "LOJA2", ws SwapStringsInActiveWorkbook "LOJA 1", "LOJA 2", ws Next ws End With ActiveWorkbook.Save ActiveWorkbook.Close End If Continue: Next End Sub Sub SwapStringsInActiveWorkbook(StringA As String, StringB As String, ws As Worksheet) On Error Resume Next ws.Cells.SpecialCells(xlCellTypeConstants).Replace What:=StringA, Replacement:="_AUXTEMPREPL_", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False On Error Resume Next ws.Cells.SpecialCells(xlCellTypeConstants).Replace What:=StringB, Replacement:=StringA, LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False On Error Resume Next ws.Cells.SpecialCells(xlCellTypeConstants).Replace What:="_AUXTEMPREPL_", Replacement:=StringB, LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False On Error GoTo 0 End Sub 但在某些时候，经过一些replace之后，它给了我一个错误，说它无法打开一个文件：
“Excel无法打开文件”〜$ PLAN COMPARAT de CUSTOS Rancho Bom Loja2-2015.xlsx“，因为文件格式或文件扩展名无效。请检查文件是否损坏，如果扩展名与文件格式匹配“。 （这是一个来自葡萄牙语错误信息的翻译，抱歉，我不能改变语言）
事实是，我在这个文件夹上search，并没有这样的文件。 有一个名为“PLAN COMPARAT de CUSTOS RB-L2-2015.xlsx”的文件，这是一个缩写。 也许它试图打开的文件是不存在的旧文件？
我之前也有一个脚本来replaceword文件，它也会尝试打开一些不存在的文件，或者尝试打开一个名为“〜$”的文件加上存在的文件名。 这个“〜$”从哪里来？
我需要一些线索。
我只是build议，直到你find/删除不当的文件。 更换：
If Right(File.Name, 4) = ".xls" Or Right(File.Name, 5) = ".xlsx" Then
有：
If Left(File.Name, 2) <> "~$" And (Right(File.Name, 4) = ".xls" Or Right(File.Name, 5) = ".xlsx") Then
这应该只是一个临时的解决方法。