小编Alb*_*own的帖子

此代码基本上重新格式化了xls文件并将其保存为xlsx。但是，它使用G2＆H2来获取新格式文件的文件名。因此，这意味着某些字符不能出现在文件名中。我添加了一段代码来替换这些字符（

' Remove/Replace Invalid File Name Characters
 WkbName = Range("H2")
    MyArray = Array("<", ">", "|", "/", "*", "\", ".", "?", """")
    For X = LBound(MyArray) To UBound(MyArray)
        WkbName = Replace(WkbName, MyArray(X), "_", 1)
            Next X
                'MsgBox WkbName     'dispaly file name with illegal characters removed

    ActiveWorkbook.SaveAs Filename:= _
       WBPath & "\BOM_" & Range("G2") & "_" & WkbName & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 

）activeworkbook.save始终是调试器带我的地方

我收到一条错误消息，说即使其中的普通文本中总有非法字符h2，我是否丢失了某些内容？

下面的完整代码

Sub FormatBOMExport()
'
' FormatBOMExportPnV Macro
'
Application.ScreenUpdating = …