将文件另存为xlsx无法正常工作

Question

在我的工作簿中，我正在尝试使用vba代码将工作表另存为我的每个产品的单独文件。其中一些保存为文件，而不是 .xlsx ，而其余保存为 .xlsx ，这就是我想要的。运行代码时没有错误，所以我不确定为什么文件不能保持一致 .xlsx

对于文件名，我有“ - ”和/或“。”在它，但不一定是同一个地方。即2018年4月 - All Cars Inc. DBA A. C.，Inc所以它只取决于我的产品名称。

我的代码，

Option Explicit
Sub monthly_L21_save()
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Sheets
If ws.Name <> "0140" Then
Else
Sheets("0140").Name = "Renewal Policies"
Sheets("All Cars Inc. DBA A.C Inc.").Name = "YOC data"
Dim newFile140 As String, fName140 As String
fName140 = "All Cars Inc. DBA A.C Inc."
newFile140 = "April 2018 - " & fName140
Sheets(Array("Renewal Policies", "YOC data")).Copy
With ActiveWorkbook
    .SaveAs Filename:=newFile140, FileFormat:=51
    .Close
End With
Sheets(Array("Renewal Policies", "YOC data")).Delete
End If
Next ws
End Sub

我还尝试将fileformat替换为FileFormat：= xlOpenXMLWorkbook，但结果相同。 下面是运行vba后文件的保存方式。